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

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

← →
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
о. хоть кто-то понял, что есть "шапка". я -- не догадался. %-(

---

← →
DVM ©   (2006-10-17 15:40) [6]

> 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:43) [7]

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

---

← →
Игорь Шевченко ©   (2006-10-17 16:20) [8]

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


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

---

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

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



Память: 0.46 MB
Время: 0.058 c