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.

[kiar]

hallo matze nimm ein Drawgrid, damit habe ich so etwas ähnlichen hinbekomen, was du machen willst. ich suche......

[Matze]

Auja, wäre nett, wenn du das finden würdest. Aber wieso ein DrawGrid, geht das nicht mit Canvas?

Ich habe mein Programm nämlich auf ein StringGrid ausgelegt.

[kiar]

matze , das wird ne weile dauern, mein laptop hat sich gerade verabschiedet, und da muss der code draufsein.

raik

[Matze]

Achso, naja, ich probiere es trotzdem weiter, nur kein Stress.

[woki]

Hi,

ich denke Du mußt deine Routine im Onpaint- Ereignis ausführen.

Grüsse
Woki

[Matze]

Welche? Diese hier?
StringGrid1SelectCell

[kiar]

hi matze, hab es gefunden. mit dem click im drawgrid habe ich es folgender maßen gelöst

Delphi-Quellcode:

   with drawgrid1 do begin
             rect:=CellRect(drawgrid1.col,drawgrid1.row);
             if canvas.Pixels[rect.left+5,rect.top+5]= clwhite then
             Canvas.Brush.color:= clred
             else
             canvas.brush.color:= clwhite;
             Canvas.FillRect(rect);      
   end;
       //array_einlesen;
       //ArrayInFile;

beim stringgrid war das alles nicht so zu realisieren und es ist auch schneller als ein stringgrid.

[Matze]

Danke! Das probiere ich gleich mal aus.

Ich hoffe, du hast das Problem mit deinem Labtop gelöst.

Nachtrag: Das geht bei mir aber nicht so richtig.

Ich möchte ja nur per Linkssklick das Feld, unter dem Cursor schwarz färben und per Rechtsklick weiß.
Ach, übrigens: Das geht auch mit dem StringGrid.

[kiar]

bei mir war die aufgabenstellung ein wenig anders, deshalb hab ich alles mit click realisiert, um mir den rechtsclick nicht zu zumachen. hier wird ja nur ausgewertet ob die fläche weis ist.wenn ja den rot wenn nein denn weiss. wenn rot wird über row und col in ein array geschrieben.

das war meine ausgangslage.