Рисование на форме.

← →
Tldrmyh (2003-02-03 04:26) [0]

Rectangle(x1, y1, x2, y2), нарисованный на канве форме, стирается при свёртывании/развёртывании окна. Приходится вешать на форму TImage. Как этого избежать?

Rectangle(x1, y1, x2, y2) на канве TImage в цикле по событию таймера иногда прорисовывается в 2 этапа - сначала около 90%, а через некоторое время остальные 10. Откуда задержка?

← →
PKT (2003-02-03 05:12) [1]

Рисуй при обработке WM_PAINT

procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;

procedure TForm1.WMPaint(var Msg: TWMPaint);
begin
inherited;
Canvas.Rectangle(30, 30, 50, 50);
end;

Рисование на форме. Найти похожие ветки