Hallo Smudo ...
in etwa so ... is aber nur ganz grob ..
Delphi-Quellcode:
procedure Letter_1;
begin
TextMoveTo(0,0);
TextLineTo(0,7);
end;
wobei in TextMoveto und TextLineTo direkt in eine Stringlist geschrieben wird
und noch diverse Transformationen durchgeführt werden...
Delphi-Quellcode:
procedure TextMoveTo(x,y: Double);
begin
Transform(x,y); // eigene procedure
List.Add(FloatToStr(x) + ' ' + FloatToStr(y) + ' m') // String-List
end;
Den Text lass ich dann ungefähr so zeichnen
Delphi-Quellcode:
procedure TextDraw(StartX,StartY,Winkel: Double; Text: String);
var
i,c : integer
begin
for i := 1 to length(Text) do
begin
c := ord(Text[i]);
case c of
49 : Letter_1;
end;
end;
end;
Steve