Gnom3
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
implementation
{$R *.dfm}
type
TControlCrack = class(TControl)
public
property Font;
end;
procedure SetClearType(Form: TForm);
var
Fnt: TLogFont;
const
ANTIALIASED_QUALITY = 4;
CLEARTYPE_QUALITY = 5;
var
I: Integer;
begin
if not Assigned(Form) then Exit;
for I := 0 to Form.ControlCount - 1 do
with TControlCrack(Form.Controls[I]) do
begin
GetObject(Font.Handle, SizeOf(TLogFont), @Fnt);
Fnt.lfQuality := ANTIALIASED_QUALITY;
Font.Handle := CreateFontIndirect(Fnt);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SetClearType(Self);
end; |
Всего записей: 864 | Зарегистр. 14-11-2010 | Отправлено: 17:50 09-08-2011 | Исправлено: Gnom3, 17:52 09-08-2011 |
|
