VPF::Смена цвета заголовка формы - Форум программистов

GORA

Дата 15.10.2007, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 28.8.2007
Где: Stavropol

Репутация: нет
Всего: нет

Появилась загвостка: нужно сменить цвет заголовка окна, либо можно конечно использовать например IMAGE, на котором отрисовывать заголовок. Есть ли у кого предложения по обоим вариантам, предпочтительнее конечно вариант первый

Это сообщение отредактировал(а) GORA - 15.10.2007, 21:59

Savek

Дата 16.10.2007, 08:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: нет
Всего: 7

В простейшем случае так:

Код


procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
...

...
procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
 var
   ACanvas: TCanvas;
 begin
   inherited;
   ACanvas := TCanvas.Create;
   try
     ACanvas.Handle := GetWindowDC(Form1.Handle);
     with ACanvas do
      begin
       Brush.Color := clRed;
       FillRect(Rect(0,0,Form1.Width,30));
     end;
   finally
     ReleaseDC(Form1.Handle, ACanvas.Handle);
     ACanvas.Free;
   end;

 end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »