Вниз
Скачать: 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 вся ветка

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



Память: 0.46 MB
Время: 0.009 c
1-24082
URustam
2002-07-26 14:03
2002.08.08
Помогите!!!


1-24091
Nox
2002-07-26 15:07
2002.08.08
<<<Народ, как написать алгоритмы решения следующих задач:>>>


1-24079
U-Rustam
2002-07-26 13:17
2002.08.08
Перевод из Delphi 3 в Delphi 5


3-23944
Explorer
2002-07-18 14:55
2002.08.08
Как из StringGrid вставить данные в БД(MSSQL)?


1-24108
Soler
2002-07-26 17:30
2002.08.08
Как создать Label




   Наверх