Главная страница
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.01 c
3-23940
Dimedrol
2002-07-17 18:55
2002.08.08
Creating TRIGGER (FireBird, QuickDesk)


3-23866
BJValentine
2002-07-18 15:48
2002.08.08
ADO ADO ADO


3-23941
Sergeyy
2002-07-17 09:12
2002.08.08
Invalid variant type conversion при работе с рекордсетом


14-24229
dimanew
2002-07-15 11:51
2002.08.08
Разрезал AVI файл WinCmd на 3 части, понимаю что 2 и 3 куски


1-24022
Denvor
2002-07-25 02:37
2002.08.08
Events Excel in Delphi?