Facharbeit Minigame-Editor- Ladenproblem

[Black sheep]

da gehts schon los...
was ist das besondere an einer echten canvas und wie könnte das aussehen?
hilft es vllt, wenn ich die komplette unit mal reinstellen würde?

[WM_CLOSE]

Ja,es würde helfen.

Es geht im Prinzip darum, woher das Canvas kommt:
Vielleicht hat du irgentdwo
rCanvas:=TCanvas.create(...) stehen.
oder rCanvas:=Form1.Canvas In der 1. Version kreierst du ein neues Canvas. Soweit ich weiss hat das Canvas noch keine "echte" Zeichenfläche.
Bei der 2. Variante nimmst du das bestehende Canvas des Formulars
Wenn du gar nichts stehen hast, "gibt" es rCanvas gar nicht. man muss es zuerst Instanzieren ("Createn"). SO geht das aber mit jedem Objekt.

[Black sheep]

Code:

unit uControl;



////////////////////////////////////////////////////////////////////////////////
                                 INTERFACE
////////////////////////////////////////////////////////////////////////////////

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, uObjekt, Buttons, StdCtrls;


const Max = 100;

type Datentyp = record
                  Typ : Objekttyp;
                  Nummer: integer;
                  StartX: integer;
                  StartY: integer;
                end;

type Dateityp = file of Datentyp;

var Datensatz: Datentyp;
    Datei: Dateityp;

type TRaster = class(TObject)
  private
   // private Deklarationen
    rCanvas : TCanvas;

  public
   // öffentliche Deklarationen
    property Canvas : TCanvas read rCanvas write rCanvas;

    procedure Render();

  end;

type Welttyp = array[1..Max] of TObjekt;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Beenden1: TMenuItem;
    Datei1: TMenuItem;
    Speichern1: TMenuItem;
    Laden1: TMenuItem;
    Neu1: TMenuItem;
    Bearbeiten1: TMenuItem;
    Rueckgaengig1: TMenuItem;
    GroupBox1: TGroupBox;
    SpBtLeer: TSpeedButton;
    SpBtSW: TSpeedButton;
    SpBtWS: TSpeedButton;
    SpBtVoll: TSpeedButton;
    Image1: TImage;
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    BtStart: TButton;
    procedure FormCreate(Sender: TObject);
      // Das Raster wird erschaffen

    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    // Der belegte Speicherplatz des Rasters wird freigegeben

    procedure Speichern;

    procedure Beenden1Click(Sender: TObject);

    procedure Neu1Click(Sender: TObject);

    procedure Speichern1Click(Sender: TObject);

    procedure Laden1Click(Sender: TObject);

    procedure Rueckgaengig1Click(Sender: TObject);

    procedure SpBtLeerClick(Sender: TObject);

    procedure SpBtSWClick(Sender: TObject);

    procedure SpBtWSClick(Sender: TObject);

    procedure SpBtVollClick(Sender: TObject);

    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BtStartClick(Sender: TObject);


     



  private
   // private Deklarationen
    Raster : TRaster;
    zBild: TBitmap;
  public
   // öffentliche Deklarationen
    function Bild: TBitmap;

  end;


var
  Form1: TForm1;
  Raster: TRaster;
  Welt: Welttyp;
  NummerAktuell: integer;
  Typ : Objekttyp;

////////////////////////////////////////////////////////////////////////////////
                               IMPLEMENTATION
////////////////////////////////////////////////////////////////////////////////


//=============================================== Teil 1 - TRaster ===========//


//-------------------------------------------------- Raster Render -----------//

procedure TRaster.Render();
 // Das Raster mit 12 * 12 Pixeln Feldgröße wird gezeichnet

var i: integer;

begin
 rCanvas.Pen.Color := clWhite;
 rCanvas.Rectangle(0, 0, 720, 480);
 Form1.Image1.Picture.LoadFromFile('Ressources\Bitmaps\Stickman_Ruhe.bmp');
 rCanvas.Pen.Color := clGray;
 for i := 1 to 60 do
  begin
   rCanvas.MoveTo(12*i,0);
   rCanvas.LineTo(12*i,480);
  end;
 for i := 1 to 40 do
  begin
   rCanvas.MoveTo(0,12*i);
   rCanvas.LineTo(720,12*i);
  end;
 for i := 1 to Max do Welt[i].draw;
end;


////////////////////////////////////////////////////////////////////////////////

//================================================= Teil 2 - TForm ===========//

////////////////////////////////////////////////////////////////////////////////

hier vielleicht? :

Code:

//----------------------------------------------------- Form Create ----------//

procedure TForm1.FormCreate(Sender: TObject);
 // Das Raster wird erschaffen

var i : integer;

begin
 NummerAktuell := 0;
 Raster := TRaster.Create;
 Raster.Canvas := Self.Canvas;
 zBild := TBitmap.Create;
 zBild.HandleType := bmDIB;
 self.DoubleBuffered := true;
 for i := 1 to Max do
  Welt[i] := TObjekt.create(Leer,i,(-11),(-11));
end;

hier ist der rest:

Code:

//------------------------------------------------------ Form Close ----------//

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 // Der belegte Speicherplatz des Rasters wird freigegeben

var i : integer;

begin
 if MessageDlg('Vor dem Beenden speichern?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
 then Speichern;
 Raster.Free;
 for i := 1 to Max do Welt[i].Free;
end;


//-------------------------------------------------- Form MouseDown ----------//

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if Form1.SpBtLeer.Down then Typ := Leer else
 if Form1.SpBtSW.Down then Typ := SW else
 if Form1.SpBtWS.Down then Typ := WS else
 if Form1.SpBtVoll.Down then Typ := Voll else abort;
 NummerAktuell := NummerAktuell +1;
 Welt[NummerAktuell].Reset(Typ,NummerAktuell,(x - x mod 12),(y - y mod 12));
 Raster.Render;
end;


//-------------------------------------------------- Form Speichern ----------//

procedure TForm1.Speichern;
var Datum: Datentyp;
    x: Datentyp;
    i: integer;
    Datenarray: array [1..Max] of TObjekt;
begin
 if SaveDialog.Execute then
//  if SaveDialog.Exist                                   // Prüfen

  assignfile(Datei, SaveDialog.FileName);
  rewrite(Datei);
  for i := 1 to Max do Datenarray[i] := Welt[i];
  Blockwrite(Datei, Datenarray, Max);
  closefile(Datei);
end;


//------------------------------------------------------- Form Bild ----------//

function TForm1.Bild: TBitmap;

begin
 result := zBild;
end;


//---------------------------------------------------- Menü Beenden ----------//

procedure TForm1.Beenden1Click(Sender: TObject);
begin
 Close;
end;


//-------------------------------------------------------- Menü Neu ----------//

procedure TForm1.Neu1Click(Sender: TObject);

var i : integer;

begin
 if MessageDlg('Wollen sie vorher speichern?', mtConfirmation,
        [mbYes, mbNo], 0) = mrYes
 then Speichern;
{ for i := 1 to Max do Welt[i].Free;
 NummerAktuell := 0;
 Counter := 0;
 Raster.Free;
 Raster := TRaster.Create;
 Raster.Canvas := Self.Canvas;
 Raster.zStickman := TBitmap.Create;
 Raster.zStickman.HandleType := bmDIB;
 Raster.zStickman.LoadFromFile('Ressources\Bitmaps\Stickman_Ruhe.bmp');
 Form1.Canvas.Rectangle(0,0,);
 zBild.Free;
 zBild := TBitmap.Create;
 zBild.HandleType := bmDIB; }
end;


//-------------------------------------------------- Menü Speichern ----------//

procedure TForm1.Speichern1Click(Sender: TObject);
begin
 Speichern;
end;


//------------------------------------------------------ Menü Laden ----------//

procedure TForm1.Laden1Click(Sender: TObject);

var Datum: Datentyp;
    i: integer;
    x : Datentyp;
    Datenarray: array [1..Max] of TObjekt;
    count: integer;

begin
 if MessageDlg('Wollen sie vorher speichern?', mtConfirmation,
        [mbYes, mbNo], 0) = mrYes
 then Speichern;
 if OpenDialog.Execute then
  begin
   assignfile(Datei, OpenDialog.FileName);
   reset(Datei);
   Blockread(Datei, Datenarray, Max, count);
   for i := 1 to count
     do Welt[i].reset(Datenarray[i].Typ, Datenarray[i].Nummer,
                        Datenarray[i].StartX, Datenarray[i].StartY);
   closefile(Datei);
   Raster.Render;
   BtStart.Visible := true;
  end;
end;



//------------------------------------------------- Menü Rückgängig ----------//

procedure TForm1.Rueckgaengig1Click(Sender: TObject);
begin

end;


//------------------------------------------------------- SpBtLeer ----------//

procedure TForm1.SpBtLeerClick(Sender: TObject);
begin
 zBild.LoadFromFile('Ressources\Bitmaps\Leer.bmp');
end;


//--------------------------------------------------------- SpBtSW ----------//

procedure TForm1.SpBtSWClick(Sender: TObject);
begin
 zBild.LoadFromFile('Ressources\Bitmaps\Schwarz-Weiß.bmp');
end;


//--------------------------------------------------------- SpBtWS ----------//

procedure TForm1.SpBtWSClick(Sender: TObject);
begin
 zBild.LoadFromFile('Ressources\Bitmaps\Weiß-Schwarz.bmp');
end;


//------------------------------------------------------- SpBtVoll ----------//

procedure TForm1.SpBtVollClick(Sender: TObject);
begin
 zBild.LoadFromFile('Ressources\Bitmaps\Voll.bmp');
end;



{$R *.dfm}

procedure TForm1.BtStartClick(Sender: TObject);
begin
 BtStart.Visible := false;
 Self.Refresh;
 Raster.Render;
end;


end.

[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.

[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]

hat sich inzwischen erledigt, habs gelöst

-close-