Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.08;
Скачать: CL | DM;

Вниз

Глюк у меня или где то еще?   Найти похожие ветки 

 
BOPOH ©   (2002-07-26 13:56) [0]

Вот код:
Rect.Left := 0;
Rect.Top := 10;
Rect.Right := 300;
Rect.Bottom := 30;
DrawCaption(Form1.Handle, Form1.Canvas.Handle, Rect, DC_ICON or DC_TEXT or DC_ACTIVE or DC_GRADIENT);

вроде должна нарисоватся строка заголовка, но рисуется почему-то только одна иконка, даже прямоугольник заданный в Rect не рисуется целиком. Если не указывать DC_ICON, то вообще ничего не рисуется, но функция говорит, что выполнелась нормально. Что я не правильно делаю?


 
Alx2 ©   (2002-07-26 14:07) [1]

Попробуй так (у меня получилось):
DrawCaption(Form1.Handle, GetWindowDC(Form1.Handle), Rect, DC_ICON or DC_TEXT or DC_ACTIVE or DC_GRADIENT);
Только потом DC освободи.


 
Alx2 ©   (2002-07-26 14:13) [2]

Нюанс:
Для рисования в клиентской части лучше так:
Rect.Left := 0;
Rect.Top := 10;
Rect.Right := 300;
Rect.Bottom := 30;
OffsetRect(Rect,ClientOrigin.X,ClientOrigin.Y); // Смещаемся к началу клиента.
dc := GetWindowDC(ClientHandle); // Handle для клиентскаой части
DrawCaption(Handle, dc, Rect, DC_ICON or DC_TEXT or DC_ACTIVE or DC_GRADIENT);
ReleaseDC(ClientHandle,dc); // освобождаем dc


 
Игорь Шевченко ©   (2002-07-26 14:16) [3]

Alx2 © (26.07.02 14:13)

ClientHandle - Provides access to the handle of the form’s internal MDI client window.

Имеет смысл только для MDI


 
Alx2 ©   (2002-07-26 14:25) [4]

>Игорь Шевченко © (26.07.02 14:16)
блин, точно :)


 
BOPOH ©   (2002-07-26 14:57) [5]

Благодарю за помощь



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

Текущий архив: 2002.08.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
14-24226
alex9999
2002-07-11 07:00
2002.08.08
Экстрим


7-24244
Bosss20000
2002-05-23 19:02
2002.08.08
Запуск win-приложения из Delphi


1-24026
Andy BitOff
2002-07-28 23:32
2002.08.08
Работа с указателем


1-23989
MikeZ
2002-07-27 19:14
2002.08.08
Использование найденого свойства компонента


3-23877
AngeL B.
2002-07-17 12:12
2002.08.08
Как сохранить доступ к записи с Автоинкрементными полями