Mann ist das kompliziert oder ich zu blöd
.
Für heute leg ich die Sache wahrscheinlich erstmal aufs Eis.
Hier mein aktueller Code, der auch nicht so funktioniert wie er soll:
Delphi-Quellcode:
procedure TFFluchtpunkt.PaintBox1Paint(Sender: TObject);
var
pcanvas : TCanvas; // Hilfsvariable
i,x: Integer;
begin
// Canvas der Paintbox besorgen
pcanvas := (sender as TPaintbox).Canvas;
pcanvas.pen.color := ClBlack;
setmapmode(pcanvas.handle,MM_LOMETRIC);
x:=Paintbox1.Left+10000;
for i := 1 to 28 do
begin
pcanvas.LineTo(x,-50000);
pcanvas.MoveTo(0,0);
x:=x+1000;
end;
pcanvas.MoveTo(Paintbox1.Width,0);
x:=Paintbox1.Width+10000;
for i := 1 to 29 do
begin
pcanvas.Lineto(x,-50000);
pcanvas.MoveTo(Paintbox1.Width,0);
x:=x-1000;
end;
end;
Ich bin so verwirrt, dass ich kaum noch weiss, welche Zahl was macht...
Ich schlaf nochmal drüber.
Gruß
Stefan