Ein simpler Leveleditor

[Matze]

Hallo zusammen!

Ich möchte einen Level-Editor machen.
Dazu benutze ich ein StringGrid mit DefaultColWidth und -Heigt = 15.

Wenn ich jetzt über das StringGrig mit der Maus gehe (OnMouseMove), dann sollte nur das Kästchen, auf dem sich der Cursor befindet schwarz werden, wenn ich mit der linken Maustaste darauf klicke, dann soll es schwarz bleiben, bei Klick mit der rechten Maustaste soll es wieder weiß werden.

Mit diesem Code habe ich versucht, das aktuelle Kästchen schwarz zu bekommen, aber es wird dann sofort wieder weiß.

Delphi-Quellcode:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  StringGrid1.Canvas.Brush.Color:=clBlack;
  StringGrid1.Canvas.Rectangle(ACol*16,ARow*16,ACol*16+16,ARow*16+16);
end;

Danach möchte ich das ganze in einem 2-dimensionalen Array speichern (W für weiß und S für Schwarz).

das habe ich so gelöst:

Delphi-Quellcode:

const Spalten=15;
      Zeilen=15;

var Level: array[1..Spalten,1..Zeilen] of char;

...

procedure TForm1.Button1Click(Sender: TObject);
var s,z: integer;
begin
  for z:=1 to Zeilen do
  for s:=1 to Spalten do
  if StringGrid1.Canvas.Pixels[z*16-8,s*16-8]=clBlack then Level[s,z]:='S' else Level[s,z]:='W';
end;

Ich schätze mal, dass es eine bessere Lösung gibt, über diese wäre ich dankbar.

Das müsste doch irgendwie mit Cells gehen.
So könnte ich ja genausogut ein Image nehmen.

So lese ich das Array dann wieder aus:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var s,z: integer;
begin
  for z:=1 to Zeilen do
  for s:=1 to Spalten do
  begin
    if Level[s,z]='S' then StringGrid2.Canvas.Brush.Color:=clBlack
    else StringGrid2.Canvas.Brush.Color:=clWindow;
    StringGrid2.Canvas.Rectangle(z*16-16,s*16-16,z*16,s*16);
  end;
end;

Hier wäre ich ebenfalls für eine schönere Lösung dankbar.

Dann möchte ich das array noch in einer Datei speichern, wie geht denn das?

Ich weiß, es ist jetzt sehr viel auf einmal, ich hoffe, ihr verzeiht es mir.
Es wäre schön, wenn mir jemand helfen könnte.