Statistikprogramm

[ichbinesnur]

Das ist der Quellcod für das Koordinatensystem, die Beschriftung der Achsen und deren Einteilung. Es funktioniert einwandfrei.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
with pb_diagramm.Canvas do begin
Moveto (20,10);                         //Ordinatenachse mit Pfeilspitzen
Lineto (20,400);
Moveto (20,10);
Lineto (25,20);
Moveto (20,10);
Lineto (15,20);

For i:=1 to 18 do begin               //Einteilung der Achse
Moveto (20,400-i*21);
Lineto (15,400-i*21);
end;

Textout (30,10,'Platzierungen');     //Beschriftung
Textout (5,17,'1');
Textout (5,38,'2');
Textout (5,59,'3');
Textout (5,80,'4');
Textout (5,101,'5');
Textout (5,121,'6');
Textout (5,142,'7');
Textout (5,163,'8');
Textout (5,184,'9');
Textout (1,205,'10');
Textout (1,226,'11');
Textout (1,247,'12');
Textout (1,268,'13');
Textout (1,289,'14');
Textout (1,310,'15');
Textout (1,331,'16');
Textout (1,352,'17');
Textout (1,373,'18');

Moveto (20,400);                    //Abzissenachse mit Pfeilspitzen
Lineto (410,400);
Moveto (410,400);
Lineto (400,395);
Moveto (410,400);
Lineto (400,405);

For i:=1 to 10 do begin
Moveto (410-i*35,400);
Lineto (410-i*35,405);

Textout (45,405,'95/96');
Textout (80,405,'96/97');
Textout (115,405,'97/98');
Textout (150,405,'98/99');
Textout (185,405,'99/00');
Textout (220,405,'00/01');
Textout (255,405,'01/02');
Textout (290,405,'02/03');
Textout (325,405,'03/04');
Textout (360,405,'04/05');
Textout (400,405,'Saisons');








end;
end;
end;
end.

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]