Galgenmännchen

[Tomislav]

Erstmal eine Frage zu der Paintbox: Ich möchte den Galgen usw. in einer Paintbox zeichnen lassen. Beim Start des Spiels soll der Boden gezeichnet werden, warum zeichnet er ihn nicht wie ich vorgebe.

Code:

procedure Button.Click {ka halt}
var a, b: TPoint;
begin
 PaintBox.Canvas.Rectangle (0,0,PaintBox.height,PaintBox.width);
   with PaintBox do
   begin
    a.x := 1;
    a.y := height-1;
    b.x := width-1;
    b.y := a.y;
    canvas.moveto(a.x, a.y);
    canvas.lineto(b.x, b.y);
   end;
end;

hmm? :?

[tigerman33]

Zeichnen tut ers vermute ich mal schon. Aber beim nächsten Neuzeichnen der Paintbox wird alles wieder übergepinselt, deswegen ist nichts zu sehen. Sieh dir dazu mal das OnPaint-Ereignis an.

Wenn du selbst auf dem Canvas rumzeichnest, bist du auch selbst dafür verantwortlich, dass bei jedem Neuzeichnen der Paintbox bzw des Controls auf dessen Canvas du malst auch deine eigene Grafik wieder ausgegeben wird.

[Tomislav]

ich mache aber doch nur diesen einen Klick und dann kommt nichts!!!

[tigerman33]

Ich hab deinen Code mit Copy-Paste eingefügt, und bei mir kommt beim Klick ein schwarzes Rechteck.

[Tomislav]

echt? bei mir kommt garnichts hmm

[Tomislav]

bei mir gehts auch
ich hatte visible auf false
hab aber auch auf button click halt visible true funktionierte trotzdem nicht hmm

[tigerman33]

Zitat:

Zitat von Tomislav

hab aber auch auf button click halt visible true funktionierte trotzdem nicht hmm

:?: :?: :?:

[Tomislav]

egal


so was als nächstes ansteht^^
ich möchte gerne die wörter in eine txt datei
wie kann ich das wort daraus laden (geht das wie mit C++ mit zufall (random)?? und loadfromfile???)
und wie kann ich das Wort dann in einzelne Buchstaben zerlegen??

[Nils_13]

Zitat:

Zitat von Tomislav

egal


so was als nächstes ansteht^^
ich möchte gerne die wörter in eine txt datei
wie kann ich das wort daraus laden (geht das wie mit C++ mit zufall (random)?? und loadfromfile???)
und wie kann ich das Wort dann in einzelne Buchstaben zerlegen??

Eine Methode ist, dass du den ganzen Kram per SaveToFile und LoadFromFile speicherst und lädst, eine andere ist INI-Dateien zu benutzen, such einfach mal hier im Forum nach ini.

[tigerman33]

Neue Frage -> neuer Thread.
Aber ja, du kannst mit TStringList.LoadFromFile die Wörter einlesen und dann mit random eins aussuchen (wenn es das war was du meintest).
Und auf die einzelnen Zeichen kannst du per Indizierung, wie bei Arrays, zugreifen:

AString := 'XYZ';
AString[0] = X
AString[1] = Y
AString[2] = Z

//edit
Dafür muss in der Textdatei jeweils jede Zeile nur ein Wort enthalten