Schiffe versenken (zum XX-ten Mal :3 )

[DeddyH]

Eine einfache If-Abfrage vor dem Zugriff sollte genügen.

Delphi-Quellcode:

if Spalte > Low(Spielfeld1) then 
  If (Spielfeld1[Spalte-1,Reihe]=0) then inc(ges);

Das Gleiche dann äquivalent auf der anderen Seite.

[Grayknife]

Okey, und dieses low(Spielfeld1), gibt genau welchen wert an?

[DeddyH]

Guckst Du Hilfe

[Grayknife]

ok, jetzt kann jeder spieler 6 schiffe setzen mit verschiedener Größe, nur an Positionen die erlaubt sind. Cool

Jetzt wollte ich theoretisch einfach die Zahlen durch Bilder ersetzen, aber ich habe keinen Plan wie ich das machen soll Wenn ich zum beispiel mit canvas eine Bitmap grafik in das stringgrid einfügen möchte, verschwindet das sofort wieder >.< . Kann ich das auch noch anders lösen? (wie sieht es mit drawgrid aus? ist das anders? habe auch gelesen einfach ein riesiges TImage machen?)

[Sir Rufo]

Im Prinzip ist es Wurst, wie du es machst. Wenn du auf den Canvas zeichnest, dann musst du dafür sorgen, dass es bei einem Refresh/Repaint wieder gezeichnet wird.

Dafür gibt es bei den (grafischen) Komponenten das Ereignis OnPaint und die Grids haben so ein Ereignis auch noch für jede Zelle.

[Grayknife]

Kannst du mir das genauer erklären? Wo genau finde ich das Ereignis OnPaint? o: Wenn ich jetzt im OI in die Ereignisse vom Stringgrid gehe, finde ich da nichts was sich wie OnPaint und Zelle anhört

[Sir Rufo]

TStringGrid.OnDrawCell hört sich doch gut an