Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#5

Re: Langton Ameise

  Alt 7. Okt 2008, 23:21
Schön in Klassen verpakt. aber warum erzeugst du das Offscreen Bitmap im Paint Ereignis jedes mal neu:
Delphi-Quellcode:
procedure TForm1.PaintBox1Paint(Sender: TObject);
var bit: TBitmap;
      p: PRGBQuad;
    i,j: Integer;
begin
  if (Field.Width = 0) or (Field.Height = 0) then
  begin
    PaintBox1.Canvas.Rectangle(Rect(0,0,PaintBox1.Width,PaintBox1.Height));
    exit;
  end;
  
  bit := TBitmap.Create;
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat