Скачать: CL | DM;

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

← →
Егор   (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(...). Извиняюсь.

---

← →
lenin ©   (2002-08-23 15:39) [6]

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

---

← →
Skier ©   (2002-08-23 15:44) [7]

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

---

← →
Yaro ©   (2002-08-23 22:46) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c