как задать шрифт заголовка окна под win 2003

← →
Oleg_ (2005-10-17 15:14) [0]

Обычно задаешь font.charset and form.name и спокойно пишешь себе русскими. А вот под win2003 все содержимое формы нормально пишется, при этом заголовок продолжает иероглифы выводить.
В чем может быть проблема? Спасибо

← →
oleg_ (2005-10-17 15:20) [1]

Тфу опечатался- form.font.name

← →
oleg_ (2005-10-17 16:23) [2]

Делаю так
caption:="";
и далле вызов процедуры прорисовки

procedure paint_caption(f:tform;text_cap:string);
var c : TCanvas;
begin

c := TCanvas.Create;
try
c.Brush.Style := bsClear;
c.Font.Assign(f.Font);
c.Font.Color:=clwhite;
c.Font.Height:=h[18];
c.Handle := GetDC(GetWindow(GetDesktopWindow, GW_OWNER));
c.TextOut(f.Left+6, f.Top+2, text_cap);
finally
c.Free;
end;
end;

как задать шрифт заголовка окна под win 2003 Найти похожие ветки