Привет!

Создаю свой контрол, все содержимое рисую сам. Соответственно, перерисовка фона нафиг не нужна (ибо моргает только). Старый добрый "апишный" прием с ловлей WM_ERASEBKGND никакого эффекта не дал (или я как-то не так это делаю) — видимо, в недрах VCL фон перерисовывется другим путем. Чего можно сделать?

Здравствуйте Vladik, Вы писали:

V>Привет!

V>Создаю свой контрол, все содержимое рисую сам. Соответственно, перерисовка фона нафиг не нужна (ибо моргает только). Старый добрый "апишный" прием с ловлей WM_ERASEBKGND никакого эффекта не дал (или я как-то не так это делаю) — видимо, в недрах VCL фон перерисовывется другим путем. Чего можно сделать?

Brush.Style:= bsClear; // поможет отцу русской демократии.

(сам не проверял, но хелп уверяет что:
Tip: Set the Style property to bsClear to eliminate flicker when the object repaints.)

Здравствуйте zaiats_2k, Вы писали:

Z2>

Z2>Brush.Style:= bsClear; // поможет отцу русской демократии.

Z2>

Не поможет. Все равно идет явная перерисовка фона. Да и где этот код вставлять, если я сам использую кисть для рисования? В конце обработчика Paint?

Здравствуйте, Vladik, Вы писали:

V>Здравствуйте zaiats_2k, Вы писали:

Z2>>

Z2>>Brush.Style:= bsClear; // поможет отцу русской демократии.

Z2>>

V>Не поможет. Все равно идет явная перерисовка фона. Да и где этот код вставлять, если я сам использую кисть для рисования? В конце обработчика Paint?

Та же проблема. Кто-нибудь знает решение? Поделитесь плиз.

Здравствуйте, Vladik, Вы писали:

V>Привет!

V>Создаю свой контрол, все содержимое рисую сам. Соответственно, перерисовка фона нафиг не нужна (ибо моргает только). Старый добрый "апишный" прием с ловлей WM_ERASEBKGND никакого эффекта не дал (или я как-то не так это делаю) — видимо, в недрах VCL фон перерисовывется другим путем. Чего можно сделать?

Давайте-ка посмотрим на код объявления и обработчика WM_ERASEBKGND

Здравствуйте, Flamer, Вы писали:

F>Здравствуйте, Vladik, Вы писали:

V>>Привет!

V>>Создаю свой контрол, все содержимое рисую сам. Соответственно, перерисовка фона нафиг не нужна (ибо моргает только). Старый добрый "апишный" прием с ловлей WM_ERASEBKGND никакого эффекта не дал (или я как-то не так это делаю) — видимо, в недрах VCL фон перерисовывется другим путем. Чего можно сделать?

F>Давайте-ка посмотрим на код объявления и обработчика WM_ERASEBKGND

Это точно без кода решать проблему...
Вот работающий код:

type
  TMyControl = class (TWinControl)
  private
    procedure WMEraseBkgnd(var Message: TWmEraseBkgnd); message WM_ERASEBKGND;
  end;

...

procedure TMyControl.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
  Message.Result := 1;
end;

Здравствуйте, Danchik, Вы писали:

D>

D>procedure TMyControl.WMEraseBkgnd(var Message: TWMEraseBkgnd);
D>begin
D>  Message.Result := 1;
D>end;
D>

Здесь наверное ещё нужно позаботиться о том, чтобы не вызывалась процедура родительского класса.
В Билдере я перекрываю WndProc, и там если надо вызываю её явно, если не надо — не вызываю. В Delphi наверное тоже так можно сделать?

Здравствуйте, ak_miass, Вы писали:
_>Здесь наверное ещё нужно позаботиться о том, чтобы не вызывалась процедура родительского класса.
обо всем уже позаботились.