sry für den doppelpost,aber mir ergibt sich leider wieder ein weiteres problem,ich möchte die x-achse gerne mit strichen einteilen,und bei jedem 5. strich eine zahl haben,also 5,10,15 usw.
bis jetzt gelang es mir das der 5. strich größer als die anderen ist und ich darunter etwas schreiben kann,allerdings verstehe ich nicht wie ich es anstellen soll,das die zahl immer um 5 erhöht wird,hier erst einmal mein ansatz:
Delphi-Quellcode:
//Beschriftung
for h:=1 to Width-15 do ;
xt:=26 ;
xab:=f div (xt+1) ;
for i:=1 to xt do
begin
if i mod 5=0 then
begin
Font.color:=clblack ;
Font.size:=10 ;
Image1.Canvas.Textout(x0+i*xab,y0+L+10,'5') ;
end ;
end;
ein weiteres problem hab ich generell mit der skalierung der y-achse,hier war mein ansatz
Delphi-Quellcode:
//Skala y-achse
q:=0 ;
for i:=y0 to ymax do
begin
q:=q+50 ;
Image1.Canvas.MoveTo(x0+q,y0-10) ;
Image1.Canvas.LineTo(x0+q,y0+10) ;
end;
b:=0 ;
for i:=y0 to ymax do
begin
b:=b+10 ;
Image1.Canvas.MoveTo(y0+b,x0-5) ;
Image1.Canvas.LineTo(y0+b,x0+5) ;
end;
vllt. hat wieder jemand lösungs vorschläge,wäre dankbar!