Форум: "Основная";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
ВнизКак не дать значку пропасть? Найти похожие ветки
← →
Егор (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 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c