TFahrzeug - Eine Fahrzeug-Klasse

[Flare]

Ok, ich habe es jetzt eingefügt, ich zeige es lieber nochmal komplett mit Code, aber lasse die komplett unwichtigen Stellen heraus.

Delphi-Quellcode:

procedure TFahrzeug.refresh();
begin
  FForm.Refresh;
  fBuffer.FreeImage;
end;

procedure TFahrzeug.draw();
begin
  fBuffer.Canvas.Pixels[round(position.X), round(position.Y)] := clBlack;
  FForm.Canvas.CopyRect(Rect(0,0,fBuffer.Width,fBuffer.Height), fBuffer.Canvas, 
                        Rect(0,0,fBuffer.Width,fBuffer.Height));
end;

constructor TFahrzeug.Create(form: TForm);
begin
  fBuffer := TBitmap.Create;
  FForm := form;
end;

destructor TFahrzeug.Destroy;
begin 
  fBuffer.Free; 
  inherited;
end;

procedure TFahrzeug.vtimerTimer(Sender: TObject);
var newpos: TExtPoint; 
begin
  refresh;
  draw;
end;

Das habe ich jetzt eben so geändert, aber jetzt bekomme ich kein Bild, es wird einfach keins angezeigt.
Weißt du/wisst ihr woran das liegt?


Flare