"Мягкое" перетаскивание потомков TGraphicControl

Тема в разделе "Delphi - Компоненты", создана пользователем BrigOS, 12 авг 2004.

Статус темы:
Закрыта.
  1. BrigOS

    BrigOS Гость

    Есть у меня на форме множество потомков TGraphicControl. Их можно перетаскивать мышкой. Однако при этом они сильно мерцают.
    В конструкторе устанавливаю ControlStyle := ControlStyle - [csOpaque].
    Сообщения WM_PAINT и WM_ERASEBKGND обрабатываю так:
    procedure TMyCompo.WMPaint(var Msg: TWMPaint);
    begin
    Canvas.Draw(0,0,FMetafile);
    end;
    ...
    procedure TMyCompo.WMEraseBkGnd(var Msg: TWMEraseBkGnd);
    begin
    SetBkMode(Msg.DC, TRANSPARENT);
    Msg.Result := -1;
    end;

    FMetafile - это небольшой метафайлик который я загрузаю тоже в конструкторе.
    Можно ли сделать так чтобы при перетаскивании TGraphicControl не мерцал постоянно.
     
Статус темы:
Закрыта.

Поделиться этой страницей