Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Exception Fehler beim neuem Zeichnen

    Delphi
    by baumina, 27. Aug 2013
  procedure TForm1.Darstellen;
  var
  I,j : Integer;
  begin
  FGrafik.Canvas.Pen.Color := clBlack; //Weißes Feld zeichnen
  FGrafik.Canvas.Brush.Color := clWhite;
  FGrafik.Canvas.Rectangle(0,0,FGrafik.Width, FGrafik.Height);
  
  GitterZeichnen(FSpielfeldBreite, FSpielfeldHoehe, FFelderBreite); //Gitter erstellen & auf der Paintbox zeichnen
  pbxAnzeigeflaeche.Canvas.Draw(0,0,FGrafik);