Не перерисовывать окно если оно невидимо.

[Человек_Борща]

Доброго времени!

Дело о Delphi и его горе-компоненто-разработчиках.

И так-симеет пакет компонент локализации i18n Package.

Пакет мощьный, хороший и удобный и бесплатный. Лучшее что встерчал, даже если с платным сравнить.
Разработчик упертый, поддерживаются только UNICODE версии delphi и только Delphi 2009 и 2010.
Потому доведением проекта до ума на старших версиях IDE, приходтся занимать самостоятельно(Упомянутый не хочет этим заниматься).

Итого ситуация:
Имеем XE2 или XE, пусть у нас есть какие-то background окна, которые не видны, и они автоматом создаются(в списке auto-create forms).

В пользование ушёл компонент TFWTrayIcon от Rouse, с использованием свойства FStartMinimized в такой реализации(строка 901, FWTrayIcon.pas):

//  Данная процедура выполнится в RunTime и по необходимости
//  скроет наше приложение при запуске
// =============================================================================
procedure TFWTrayIcon.Loaded;
begin
  inherited Loaded;
  if (csDesigning in ComponentState) then Exit;

  DoLoaded;
  // В самом начале смотрим: если мы не поместили в св-во Icon свою иконку,
  // то основная иконка компонента будет взята из иконки приложения
  if FIcon.Handle = 0 then
    FIcon.Assign(Application.Icon);
  FCurrentIcon.Assign(FIcon);
  FTrayIcon.hIcon := FCurrentIcon.Handle;

  FIcon.OnChange := OnImageChange;

  // Прячем главную форму приложения
  if (FStartMinimized) and not (csDesigning in ComponentState) then
  begin
    Application.ShowMainForm := False;
    ShowWindow(Application.Handle, SW_HIDE);
  end;
  // Добавляем иконку в трей
  if FVisible then
    Shell_NotifyIcon(NIM_ADD, @FTrayIcon);
  UpdateTray;
end;

Событие окна OnPaint происходит 2 раза:
1 окно, рисует Application и прячет из-за TFWTrayIcon, потом его берет на обработку TTranslator из i18n, в итоге происходит сабж(строка 2377, i18nLocalizer.pas), синим:

procedure TTranslator.EndUpdate;
begin
  Dec(fUpdateCount);
  if (fUpdateCount = 0) and (Owner is TWinControl) then
  begin
    if TWinControl(Owner).HandleAllocated and IsWindowVisible(TWinControl(Owner).Handle) then
    begin
      TWinControl(Owner).Perform(WM_SETREDRAW, 1, 0);
      RedrawWindow(TWinControl(Owner).Handle, nil, 0,
        RDW_ERASE or RDW_INVALIDATE or RDW_ALLCHILDREN or RDW_UPDATENOW);
    end;
    if (Owner is TCustomForm) and Assigned(fActiveControl) then
      TCustomForm(Owner).ActiveControl := fActiveControl;
  end;
end;

В итоге у на есть 1 не видимое, настоящее окно, и одно видимое, Redraw'нутое окно, которое нельзя убрать(спрятать, свернуть, и на нем нет компонент). Думаю это происходит по этой причине:
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

If the application sends the WM_SETREDRAW message to a hidden window, the window becomes visible (that is, the operating system adds the WS_VISIBLE style to the window).

Демо этого здесь: http://forum.delphiarea.com/download/file.php?id=314
В демке только 4 формы, которые, все, появляются на экране, хотя на самом деле там только 1 главное окно, с которым можно что-нибудь сотворить.

Я комментировал отмеченные синим строки, в итоге получалось очень забавно, 2-е окно не рисовалось, однако при смене языка можно было мышкой крутые лесенки рисовать.

В итоге нужно было поставить проверку, виден ли сабж, как оказалось это не сработало(красненькое), и я продолжаю рисовать лесенки в получающемся баге при смене языка.

Вопрос:
Как перерисовать то, что нужно, только если это что-то видимо?

У компонента есть события, после смены языка. Однако Repaint и Refresh окна не помогают.

[Человек_Борща]

Тему можно закрывать =) Проблема исправлена разработчиком =)