Hallo lieber Programmierer,
hab da ein kleines Problem bei einem Programm bin gerade dabei ein Koordinatensystem zu zeichnen und es auf eins drauf zu legen was auf einer Imagedatei bereits gezeichnet ist.
Soweit so gut hab die Koordinatenlinien hinbekommen und bin gerade bei den Skallierungsstrichen/Gitterstrichen die für die X-Achse habe ich bereits hinbekommen und habe gerade Probleme bei der Y-Achse schauts euch mal an und wer nett wen der ein oder andere einen Tipp hätte am besten Quellcode
Delphi-Quellcode:
procedure TForm2.Image1Click(Sender: TObject);
var ax,ay :INTEGER;
begin
image1.Canvas.Pen.Width:=3;
with image1.canvas do
begin
//Koordinaten-Linien
moveto(79,0);
lineto(79,321);
moveto(79,321);
lineto(600,321);
//Striche x-Achse
for ax:=1 to 9 do
begin
moveto(Round(92+(ax-1)*61.7),0);
lineto(Round(92+(ax-1)*61.7),321);
end;
//Striche y-Achse
for ay:=1 to 9 do
begin
moveto(Round(80+(ay-1)*33),89);
lineto(Round(321+(ay-1)*33),89);
end;
Das sieht so aus:
http://i61.tinypic.com/5xifdj.jpg
wie ihr auf dem Foto sehen könnt wiederholt sich das nicht Wieso???
Dankee