Thema: Delphi Lösung für 2D Brett

Einzelnen Beitrag anzeigen

Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.429 Beiträge
 
Delphi 10.4 Sydney
 
#35

Re: Lösung für 2D Brett

  Alt 18. Mai 2009, 08:28
Das Bitmap existiert doch schon, du musst keine neue Bitmap erzeugen sondern nur das Bild aus der Liste der Feldvariablen zuweisen.
Delphi-Quellcode:
With fields[1,1] do //für Feld(1,1)
begin
  pic := piclist[0]; // oben geladenes Bild zuweisen
  picpos.top:=21;
  picpos.left:=212;
end;
Für was du allerdings picpos benötigst ist mir schleierhaft.
Die Position auf dem Bildschirm ergibt sich doch aus der Position im Array und der Breite der Bilder + Rand.

Das Zeichnen auf dem Bildschirm musst du natürlich selbst vornehmen.
Nimm einfach eine TPaintbox und im Ereignis OnPaint zeichnest du alle Felder auf den Canvas diese Komponente.
(Hier würde ich auch die Position berechnen.)
Das Neuzeichnen nach Änderungen am Array löst man mit Paintbox1.Invalidate aus.
  Mit Zitat antworten Zitat