| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Oleg_ ©   (2005-10-17 15:14:00) 

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

---

oleg_   (2005-10-17 16:23:00) [1]

Делаю так
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;

---

oleg_   (2005-10-17 15:20:00) [2]

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

---

Наверх