Das ist doch ganz einfach.
Eure Zahlen sind doch an nem festen Punkt. Dann nehmt einfach eine For Schleife und zieht ne Linie
Delphi-Quellcode:
For i:=0 to 8 do
begin
if i<>4 then Pen.Color:=ClBtnFace else pen.color:=clblack;
MoveTo(40+i*50,0); //Linien -
LineTo(40+i*50,Height);
MoveTo(0,40+50*i); //Linien |
LineTo(Width,i*50+40);
Pen.Color:=ClBlack;
MoveTo(Bild.Width div 2 - 4,40+i*50); //Striche -
LineTo(Bild.Width div 2 + 4,40+i*50);
MoveTo(i*50+40,Bild.Height div 2 - 4); //Striche |
LineTo(i*50+40,Bild.Height div 2 + 4);
end;
//klammer falsch gesetzt
