Ich will mithilfe Delphi mein Mühlenspielfeld zeichen doch sobald ich das Programm starte bleibt alles grau, also es wird nix gezeichnet, die im programmcode definierte Formgröße wird übernommen aber onst auch nichtx hier mein quellcode. Der die form zeichnen soll:
procedure TForm1.FormPaint(Sender: TObject);
var I, J: integer;
begin
with Form1.Canvas do
begin
// Zeichnen des Spielfelds
pen.color := clblack;
pen.width := 6;
Form1.brush.style := bsclear;
rectangle(3,3,600,600);
pen.width :=3;
rectangle(8,8,600-7,600-7);
pen.width:=1;
rectangle(12,12,600-11,600-11);
pen.width:=3;
rectangle(75,75,525,525);
rectangle(150,150,450,450);
rectangle(225,225,375,375);
moveto(300,75);
lineto(300,225);
moveto(300,375);
lineto(300,524);
moveto(75,300);
lineto(225,300);
moveto(375,300);
lineto(524,300);
Form1.brush.color := clwhite;
//Zeichnen der Eckpunkte
for I := 0 to 6 do
for J := 0 to 6 do
begin
if Spielfeld[I,J].Bewertung >= 1 then
ellipse(65+75*I,65+75*J,85+75*I,85+75*J);
end;
for I := 1 to 9 do
begin
if Spieler[1].Stein[I].gesetzt = 1 then
begin
Canvas.Brush.Color := clwhite;
ellipse((Spieler[1].Stein[I].pos.x)*75+55,(Spieler[1].Stein[I].pos.y)*75+55,(Spieler[1].Stein[I].pos.x)*75+95,(Spieler[1].Stein[I].pos.y)*75+95);
end;
if Spieler[2].Stein[I].gesetzt = 1 then
begin
Canvas.Brush.color := clblack;
ellipse((Spieler[2].Stein[I].pos.x)*75+55,(Spieler[2].Stein[I].pos.y)*75+55,(Spieler[2].Stein[I].pos.x)*75+95,(Spieler[2].Stein[I].pos.y)*75+95);
end;
end;
end;
end;