Почему мерцает TMemo

← →
Alex_C © (2006-10-13 10:09) [0]

Хочу сделать свой мемо, чтоб не мерцало при перерисовке. Делаю свой компонент, переопределяю WMPaint:

procedure TMyMemo.WMPaint(var Message: TWMPaint);
var
i, dy : Integer;
PS: TPaintStruct;
DC: HDC;
aCanvas: TCanvas;
BitMap: TBitMap;
begin
DC:= Message.DC;
if DC= 0 then
DC:= BeginPaint(Handle, PS);
aCanvas:=TCanvas.Create;
BitMap := TBitMap.Create;
try
aCanvas.Handle:= DC;
aCanvas.Font:= Font;

BitMap.Height := Height;
BitMap.Width := Width;
BitMap.Canvas.FillRect(ClientRect);

with BitMap.Canvas do
begin
dy := 1;
for i:= 0 to Lines.Count-1 do
begin
Font.Color:= clBlack;
TextOut(1, dy, Lines[i]);
dy:= dy+ TextHeight("X");
end;
end;
BitBlt( aCanvas.Handle, 0, 0, BitMap.Width, BitMap.Height, BitMap.Canvas.Handle, 0, 0, SRCCOPY );
finally
if Message.DC = 0 then EndPaint(Handle, PS);
aCanvas.Free;
BitMap.Free;
end;
end;

еще добавляю:
constructor TMyMemo.Create(AOwner: TComponent);
begin
inherited;
ControlStyle := ControlStyle + [csOpaque];
end;

Однако все равно мерцает. Почему? Как запретить мемо перед WMPain очищать себя (я так понимаю из-за этого и мерцает).

← →
Kolan © (2006-10-13 10:10) [1]

RichEdit?

ЗЫ
У меня Memo не мерцает...

Используй двойную буферизацию при выводе текста.

Почему мерцает TMemo Найти похожие ветки