Tweet
Hallo,
unter Delphi will ich einen Text um 90 Grad drehen.
Dazu habe ich auf Button-Click folgenden Code
eingefügt, erstmal zum testen:
procedure TMainForm.Button1Click(Sender: TObject);
Var Dc : HDC;
hFont, FontOld : Integer;
begin
Dc := Canvas.Handle;
hFont := CreateFont(12,0,900,0,0,0,0,0,
DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,
PROOF_QUALITY,
DEFAULT_PITCH,'ARIAL');
FontOld := SelectObject(Dc,hFont);
Canvas.Textout(20,20,'12');
SelectObject(Dc,FontOld);
DeleteObject(hFont);
Canvas.Textout(40,20,'12');
end;
Leider bekomme ich, wenn ich auf den Button klicke,
die Fehlermeldung "Fehler bei Bereichsüberprüfung "
und zwar bei CreateFont.
Warum ? Welcher Bereich wird überschritten ?
Wir setzen Delphi4.0 unter WinNT, XP ein.
Vielen Dank.
Gruß
Ralf Eberhard
unter Delphi will ich einen Text um 90 Grad drehen.
Dazu habe ich auf Button-Click folgenden Code
eingefügt, erstmal zum testen:
procedure TMainForm.Button1Click(Sender: TObject);
Var Dc : HDC;
hFont, FontOld : Integer;
begin
Dc := Canvas.Handle;
hFont := CreateFont(12,0,900,0,0,0,0,0,
DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,
PROOF_QUALITY,
DEFAULT_PITCH,'ARIAL');
FontOld := SelectObject(Dc,hFont);
Canvas.Textout(20,20,'12');
SelectObject(Dc,FontOld);
DeleteObject(hFont);
Canvas.Textout(40,20,'12');
end;
Leider bekomme ich, wenn ich auf den Button klicke,
die Fehlermeldung "Fehler bei Bereichsüberprüfung "
und zwar bei CreateFont.
Warum ? Welcher Bereich wird überschritten ?
Wir setzen Delphi4.0 unter WinNT, XP ein.
Vielen Dank.
Gruß
Ralf Eberhard
Comment