Hi Messie,
hatte das auch mal gebraucht und kurz in einem alten Source nachgesehen.
Hier ein Auschnitt
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var
LF : TLogFont;
TF : TFont;
begin
Form1.Canvas.Font.Color := clBlack;
Form1.Canvas.Font.Name :='Arial';
TF := TFont.Create;
TF.Assign(Form1.Canvas.Font);
GetObject(tf.Handle, sizeof(LF), @LF);
LF.lfEscapement := 900;
LF.lfOrientation := 900;
TF.Handle := CreateFontIndirect(LF);
Form1.Canvas.Font.Assign(TF);
TF := TFont.Create;
Form1.Canvas.TextOut(100,100,'Hallo');
tf.free;
end;
Habe es nur auf die schnelle den Canvas auf Form1 geändert und das wichtigste rauskopiert.
Nicht getestet sollte aber funktionieren.