Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alzaimar,
8. Dez 2005
Hier:
Procedure VerticalText(Rotation, x, y: Integer; aText: String; aCanvas: TCanvas);
Var
aFt: LOGFONT;
hOldFont: THandle;
Begin
hOldFont := aCanvas.Font.Handle;
Try
aCanvas.Font.Name :='Arial'; // Muss TrueType sein
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by alzaimar,
7. Dez 2005
Rotierten Text gibt man so aus (vorausgesetzt, der Font kann das, z.b. TrueType):
Var
aFt : LOGFONT;
begin
...
GetObject (aCanvas.Font.Handle, SizeOf (aFt), @Aft);
aFt.lfEscapement := 10 * Rotation; // Rotate ist der Winkel in Grad
aFt.lfOrientation := aft.lfEscapement;