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

← →
tytus (2006-10-17 15:09) [0]

Вот захотелось написать на шапке текст красными буквами.
private
WDC:HDC;

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

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

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

← →
Ketmar © (2006-10-17 15:13) [1]

а что такое "шапка"?

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

← →
tytus (2006-10-17 15:21) [2]

>Ketmar[1]
Спасибо, не заметил...
зыж - тока не забываем переключать RU/EN...

← →
Ketmar © (2006-10-17 15:24) [3]

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

← →
DVM © (2006-10-17 15:28) [4]

> tytus (17.10.06 15:09)

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

← →
Ketmar © (2006-10-17 15:33) [5]

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

> 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)

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

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

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

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

Как рисовать на шапке разными цветами? Найти похожие ветки