Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2012-02-14 21:58:40 ЛС | профиль | цитата
1. В ini добавить скрытую точку.
2. В pas добавить строку (ДОБАВИТЬ Tad)
#pas
procedure THIImg_Text.SetNewFont;
begin
   if Assigned(GFont) then GFont.free;
   GFont := NewFont;
   GFont.Color:= Value.Color;
   Share.SetFont(GFont,Value.Style);
   GFont.FontName:= Value.Name;
   GFont.FontHeight:= _hi_SizeFnt(Value.Size);
   GFont.FontCharset:= Value.CharSet;
   GFont.FontOrientation:=90*10; // ДОБАВИТЬ Tad
end;

Вася.png
------------ Дoбавленo в 21.58:
nesco, и выбрать другой Font.
Не все font-ы крутятся. Наш любимый MS Sans Serif из таких
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 2Вася.png [16KB] [534], code_26873.txt [352B] [394]