Spielfeld für Bomberman Spiel

[Dansen]

Hallo Delphi-Forum User!

Wir suchen eine Möglichkeit, ein Spielfeld auf das Formular zu zaubern. Es soll aus mehreren Bitmaps bestehen (zb. 16x16). Dies soll mit einem StringGrid verwirklicht werden. Dabei dürfen die Bilder nicht von einem bestimmten Verzeicnis abhängen. (also nicht \IMages\ zum Beispiel).

Wir wissen nicht wie wir das lösen sollen. Habt Ihr eine Idee. Wie fügt man Bilder, die irgendwo auf der Platte liegen in StringGrids ein?

MFG Dansen

[nailor]

Ähm, ich würde kein StringGrid (oder was auch immer) nehmen, sondern alles auf das Canvas von einem Bitmap packen.

[Dansen]

Hallo!

Habe jetzt mal folgendes gecodet:
Code:

Code:

unit U_Leveledit; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Grids, StdCtrls, ExtCtrls; 

type 
  Tform_leveledit = class(TForm) 
    drawgrid_edit: TDrawGrid; 
    drawgrid_auswahl: TDrawGrid; 
    btn_laden: TButton; 
    btn_speichern: TButton; 
    btn_ok: TButton; 
    Image1: TImage; 
    procedure FormCreate(Sender: TObject); 
    procedure drawgrid_auswahldrawcell(Sender: TObject; ACol: Integer; Rect: TRect; State: TGridDrawState); 




  private 
    { Private-Deklarationen } 

  public 
    { Public-Deklarationen } 
  end; 

var 
  form_leveledit: Tform_leveledit; 
  Bildfeld : Array[1..24] of TBitmap; 
  Spielfeld: Array[1..16,1..16] of TBitmap; 

implementation 

{$R *.dfm} 


// Bilder in Auswahlliste laden 

procedure Tform_leveledit.FormCreate(Sender: TObject); 
begin 
  Bildfeld[1] := TBitmap.Create; 
  Bildfeld[1].LoadFromFile('Bilder\busch.bmp'); 

end; 

procedure Tform_leveledit.drawgrid_auswahlDrawCell 
  (Sender: TObject; ACol : Integer; Rect: TRect; State: TGridDrawState); 
begin 
  with sender as TDrawGrid do 
    Canvas.Draw(Rect.Left,Rect.Top,Bildfeld[1]); 
end; 

end.

Das funktioniert jetzt, ABER: Wie bekomme ich jetzt das Bild in die Anzeige? Ich schaffe es nicht. Ich will die Prozedur Tform.leveledit.drawgrid_auswahlDrawCell gleich am OnFormCreate starten. Wie mache ich das ? Wenn ich es aufrufe, dann erhalte ich immer die Fehlermeldung "Nicht genügend wirkliche Parameter" Wie ist genau der Aufruf ???

MFG Dennis

[Basti]

Versuch doch mal, die
procedure Tform_leveledit.drawgrid_auswahlDrawCell
gleich in die procedure Tform_Create Methode zu packen.