| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Егор ©   (2002-08-23 15:18:00) 

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

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

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

---

Yaro   (2002-08-23 22:46:00) [1]

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

---

Skier   (2002-08-23 15:44:00) [2]

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

---

lenin   (2002-08-23 15:39:00) [3]

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

---

Skier   (2002-08-23 15:37:00) [4]

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

---

Егор   (2002-08-23 15:34:00) [5]

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

---

Skier   (2002-08-23 15:34:00) [6]

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

---

lenin   (2002-08-23 15:20:00) [7]

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

---

Skier   (2002-08-23 15:19:00) [8]

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

---

Наверх