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.