[Snake-Spiel] - brauche eure Hilfe

[oxmox.]

Zitat von DeddyH:

Zeichenoperationen schreibt man im Allgemeinen ins OnPaint-Ereignis der entsprechenden Komponente (Form, Paintbox, etc.), dann tritt dieser Effekt auch nicht auf.

ok, aber wie wird diese Prozedur dann auch aufgerufen?

Delphi-Quellcode:

procedure TForm1.PaintBox1Paint(Sender: TObject);
var i, j: Integer;
    col: TColor;
begin
  for i := 0 to breite do
    for j := 0 to hoehe do
    begin
      case map[i, j] of
        -1: col := farben[1];
         0: col:= farben[0];
      else
        col:= farben[2];
      end;
      PaintBox1.Canvas.Brush.Color:=col;
      PaintBox1.Canvas.FillRect(Rect(i*raster, j*raster, (i+1)*raster, (j+1)*raster));
    end;
end;

mit if button1.click hat es nicht funktioniert