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

как задать шрифт заголовка окна под 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;

---

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

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



Память: 0.45 MB
Время: 0.042 c