Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как рисовать на шапке разными цветами? [D7, WinXP]

tytus © (2006-10-17 15:09:00)
Вот захотелось написать на шапке текст красными буквами.
private
WDC:HDC;

procedureTForm1.FormCreate(Sender: TObject);
begin
WDC:=GetWindowDC(Handle);
end;

procedureTForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ReleaseDC(Handle,WDC);
end;

procedureTForm1.FormPaint(Sender: TObject);
var
s: string;
begin
s:='TEST';
SetBkMode(WDC,Transparent);
TextOut(WDC,200,4,PChar(s),Length(s));
end;
Рисует черным цветом, а как сделать чтобы красным?

Игорь Шевченко (2006-10-17 16:20:00) [1]

> Как рисовать на шапке разными цветами?

http://kladovka.net.ru/download.cgi?id=194

Ketmar (2006-10-17 15:43:00) [2]
>[6] DVM(c) 17-Oct-2006, 15:40
>Кстати, насчет координат, если изменить толщину рамки окна,
>то текст будет мимо "шапки" в твоем коде.
если б это была единственная проблема... %-)

DVM (2006-10-17 15:40:00) [3]

> Ketmar © (17.10.06 15:33) [5]
> >[4] DVM(c) 17-Oct-2006, 15:28
> о. хоть кто-то понял, что есть "шапка". я -- не догадался.
> %-(

Ну судя по его координатам в TextOut(WDC,200,4,PChar(s),Length(s)); это точно "шапка"

> tytus (17.10.06 15:09)

Кстати, насчет координат, если изменить толщину рамки окна, то текст будет мимо "шапки" в твоем коде.

Ketmar (2006-10-17 15:33:00) [4]
>[4] DVM(c) 17-Oct-2006, 15:28
о. хоть кто-то понял, что есть "шапка". я -- не догадался. %-(

DVM (2006-10-17 15:28:00) [5]

> tytus (17.10.06 15:09)

Вообще то для "шапки" лучше обрабатывать сообщения WM_NC******

Ketmar (2006-10-17 15:24:00) [6]
>[2] tytus 17-Oct-2006, 15:21
>тока не забываем переключать RU/EN...
а кто забывает? %-)

tytus (2006-10-17 15:21:00) [7]
>Ketmar[1]
Спасибо, не заметил...
зыж - тока не забываем переключать RU/EN...

Ketmar (2006-10-17 15:13:00) [8]
а что такое "шапка"?

зыж справка -- она рулит. например, там можно заметить любопытную штуку. SetTextColor() называется.

Наверх

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