Как не дать значку пропасть?

← →
Егор (2002-08-23 15:18) [0]

Слеедующая функция рисует значок на Канве:

procedure TForm1.Button3Click(Sender: TObject); var Icon : hIcon; begin Icon := ExtractIcon(HInstance, "pfdimg.dll", 8); DrawIcon(Canvas.Handle, 24, 136, Icon); end;

Как не дать этому значку пропасть после сворачивания/разворачивания формы и т.д?

← →
Skier © (2002-08-23 15:19) [1]

>Егор
Вставь этот код в обработчик
TForm1.OnPaint(...)

← →
lenin © (2002-08-23 15:20) [2]

Отлавливаешь у формы OnPaint, и заново рисуешь.

← →
Егор (2002-08-23 15:34) [3]

А если я рисую не на Canvas.Handle, а на TabShate (PageControl), то значок всё-равно затираеться, даже если код поместить в OnPaint.

← →
Skier © (2002-08-23 15:34) [4]

>Егор
TTabSheet.OnPaint(...)

← →
Skier © (2002-08-23 15:37) [5]

>Егор
Ё! нет у него OnPaint(...). Извиняюсь.

А у TabSheet-а и канваса нет.

>Егор
Как рисуешь ?
Покажи.

А если я рисую на рабочем столе? и мне надо узнать, когда перерисоваться и что перерисовать и когда нажали и т.д. и т.п. Где тогда OnPaint? (другимим словами как перехватить WM_PAINT дэсктопа)

Как не дать значку пропасть? Найти похожие ветки