Hallo Andreas,
hier sind zwei Routinen zum Erfragen und Setzen der
font quality:
Delphi-Quellcode:
// mögliche Werte (siehe Windows.pas):
// DEFAULT_QUALITY = 0
// DRAFT_QUALITY = 1
// PROOF_QUALITY = 2
// NONANTIALIASED_QUALITY = 3
// ANTIALIASED_QUALITY = 4
function GetFontQuality (aFont: TFont): Byte;
var
LF : TLogFont;
begin
GetObject(aFont.Handle, SizeOf(TLogFont), @LF);
Result := LF.lfQuality;
end;
procedure SetFontQuality (aFont: TFont; aQuality: Byte);
var
LF : TLogFont;
begin
GetObject(aFont.Handle, SizeOf(TLogFont), @LF);
LF.lfQuality := aQuality;
aFont.Handle := CreateFontIndirect(LF);
end;
Das Rendern über ClearType könntest du so ausschalten:
SetFontQuality (Label1.Font, NONANTIALIASED_QUALITY);
Gruß Hawkeye