Auch wenn es hier schonmal einen Beitrag zum Zeichnen in StringGrid's gibt, warum geht folgendes nicht bei nem Image?
Delphi-Quellcode:
Image1.Canvas.Font.Size := Sign[i].Font.Size;
Image1.Canvas.Font.Style := Sign[i].Font.Style;
Image1.Canvas.Font.Name := Sign[i].Font.Name;
Image1.Canvas.Font.Color := Sign[i].Font.Color;
if Sign[i].Horizontal = false then begin
tf:=TFont.Create;
try
tf.Assign(Image1.Canvas.Font);
GetObject(tf.Handle, sizeof(lf), @lf);
lf.lfEscapement:=900;
lf.lfOrientation:=0;
tf.Handle:=CreateFontIndirect(lf);
Image1.Canvas.Font.Assign(tf);
finally
tf.Free;
end;
end;
Image1.Canvas.TextOut(Sign[i].Left, Sign[i].Top, sign_s);
Der Text bleibt ledier Horizontal.