windows 8.1 и WM_PAINT...

[volod3000]

Здравствуйте.

Возник вопрос и ни как не получается его решить
У меня Windows 8.1 x64 + Delphi XE8

Хотел у Form.caption изменить шрифт, но процедуры :

procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
procedure WMACTIVATE(var Message : TWMActivate); message WM_ACTIVATE;
procedure WMSize(var Msg: TWMSIZE); message WM_SIZE;

не работают.

Я, так понимаю windows 8.1 их заглушает, т.е. запросы выполняются, но после
windows делает свою перерисовку. И ничего не получается.

Объясните как правильно сделать, пожалуйста (Замучился уже),
что бы работали: WM_PAINT, WM_ACTIVATE....

[Stilet]

Я, так понимаю

Ты в низ бряк ставил? Он не срабатывает?

[volod3000]

Сообщение от Stilet

Ты в низ бряк ставил? Он не срабатывает?

Пока писал, понял, что проблема, не в процедурах.
Они нормально работают.

А вот способ перерисовки Form.caption, т.е. изменение его шрифта, который
работал до Windows 7 (включительно), для windows 8.1 не подходит.

Отсюда вопрос.
Как это правильно сделать для windows 8.1

Делал через canvas и DrawText .

Вот делал компонент, но для windows 8.1 не работает.

[volod3000]

Вот смотрите если запустить следующий код:

Type
  TForm1 = class(TForm)
   
  private
    procedure WMNCPaint(var Mes: TWMNCPaint); message WM_NCPAINT;
.....................
.....................
.....................

procedure TForm1.WMNCPaint(var Mes: TWMNCPaint);
  var
  ACanvas: TCanvas;
  begin
  ACanvas := TCanvas.Create;
  try
  ACanvas.Handle := GetWindowDC(Form1.Handle);
  with ACanvas do
  begin
  Brush.Color := clActiveCaption;
  Font.Name := 'Verdana';
  Font.Size := 10;
  Font.Color := clCaptionText;
  Font.Style := [fsBold];
  TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER),
  Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height)) / 2) + 1,
  ' SwissDelphiCenter');
  end;
  finally

  ReleaseDC(Form1.Handle, ACanvas.Handle);
  ACanvas.Free;

  end;
  end;

На windows 8.1 ничего не произойдет, вопрос почему ?
Хотя на меньших версия windows все нормально.

[waleri]

Для начала проверьте что возвращает GetWindowDC...

[volod3000]

Сообщение от waleri

Для начала проверьте что возвращает GetWindowDC...

А, что его проверять, больше нуля.

[volod3000]

Так понимаю вариантов нет ?