Facharbeit Minigame-Editor- Ladenproblem

[BUG]

Mhm, Raster.Canvas := Self.Canvas; steht ja drin

Wilde Vermutung:
Ich könnte mir vorstelle, das self.Canvas in FormCreate noch nicht initialisiert ist.
Probiere mal Render.Canvas erst zu einem späteren Zeitpunkt auf self.Canvas zu setzten z.B. vor dem ersten aufruf von Render.

[Black sheep]

im verlauf des programms kommt an der gleichen stelle der gleiche fehler...

[Black sheep]

hat sonst vielleicht irgendwer noch eine idee?

[fui-tak]

Zuerst: benutze bitte hier im Forum nicht die "CODE" Tags, sondern die "DELPHI"-Tags (der Römerhelm), dann lässt sich der Code besser lesen


dann schreib mal in deine Render Prozedur folgendes rein:

Delphi-Quellcode:

 if not assigned(rCanvas) then
     showmessage('rCanvas ist noch nicht gesetzt');

 rCanvas.Pen.Color := clWhite;
 rCanvas.Rectangle(0, 0, 720, 480);
 ...//was da noch so alles kommt

wenn jetzt beim Testen des Programms eine Meldung mit den Worten "rCanvas ist noch nicht gesetzt" erscheint, wurde rCanvas noch nicht gesetzt.
Heißt also Raster.Canvas := Self.Canvas; hat nicht funktioniert, oder rCanvas wurde danach auf etwas anderes gesetzt.

[generic]

Schau dir mal das Tutorial auf dieser Seite an:
http://vimeo.com/14920760
http://impactjs.com/documentation/vi...al-weltmeister
Das hat zwar nichts mit Delphi zu tun, aber du kannst für dein Gameaufbau sehr viel lernen.

[hoika]

Hallo,

werden denn Warnungen beim Compilieren angezeigt ?
Ist es Absicht, dass du 2 Raster-Objekte hast, einmal in TForm1, einmal global ?



Heiko

[Blup]

Deine Objekte brauchen kein Canvas-Property.
Der Canvas wird nur beim Rendern benötigt, übergib den dort als Parameter.

type TObjekt = class(TObject) Diese Namensähnlichkeit ruft geradezu nach Fehlern.

Delphi-Quellcode:

Blockwrite(Datei, Datenarray, Max);
{...}

So werden keine Objekte sondern nur Zeiger auf diese gespeichert.
Entsprechend werden dann auch nur ungültige Zeiger geladen.
Das Speichern und Laden von Objekten ist deutlich komplexer.
Sie dir dazu die Klassen TPersistent, TWriter, TReader und eventuell TComponent genauer an.

[Black sheep]

Zitat von Blup:

Deine Objekte brauchen kein Canvas-Property.
Der Canvas wird nur beim Rendern benötigt, übergib den dort als Parameter.

Wie mach ich das am besten? Vllt ein code möglich?
möchte jetzt auch das ganze auf ein Bild zeichnen lassen, und dann das Bild auf der Form neu zeichnen lassen, damit das flackern weggeht.
allerdings hab ich gelesen, dass das gleiche mit doublebuffered := true auch umgangen werden kann, weil das genau das bezweckt. bei mir flackerts allerdings immernoch... hat irgendwer ne ahnung, warum?

[DeddyH]

Code wofür? Für einen Parameter vom Typ TCanvas? Bitteschön:

Delphi-Quellcode:

procedure PaintEllipse(const DestCanvas: TCanvas);
begin
  if Assigned(DestCanvas) then
    begin
      DestCanvas.Brush.Color := clYellow;
      DestCanvas.Ellipse(0,0,100,100);
    end;
end;

Als Parameter kannst Du nun die Zeichenfläche angeben, auf die gezeichnet werden soll.

[Black sheep]

hat sich inzwischen erledigt, habs gelöst

-close-