Forum: Multimedia
Delphi
by Klaus01,
27. Mai 2008
Benutze doch die Prozedur arc (procedure Arc(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);).
Da kannst Du mit den x und y Koordinaten ein umschliessendes Quadrat definieren.
Ein Kante des Quadrates sollte dann mit dem Galgen verbunden sein.
Grüße
Klaus
Forum: Multimedia
Delphi
by Klaus01,
27. Mai 2008
Warum in dem Zitat von bigben37 das steht: if falsch < 1 then
und im Original von DeddyH if falsch > 1 then ist mir ein Rätsel.
Aber es macht schon Sinn immer auf if falsch > x zu prüfen,
denn dann wird die Grafik immer wieder neu gezeichnet.
Im Fall von Case werden nur die neuen Teile des Hangmans gezeichnet.
Grüße
Klaus
Forum: Multimedia
Delphi
by Klaus01,
27. Mai 2008
Hallo,
in Deinem Code fehler so einige begin und ends.
Wenn Du in einer if Abfrage mehrere Befehle ausführen wills
solltest Du diese in begin end einfassen.
Ansonsten wird nur der erste Befehl ausgeführt.
Der zweite wird unabhängig vom Ausgang der if Abfrage
im ausgegührt.
if erraten = 0 then
Forum: Multimedia
Delphi
by Klaus01,
19. Mai 2008
Guten Abend,
habe mal in deinem Quelltext herumgeschrieben.
- eine ImageList hinzugefügt (die Bilder mußt Du noch selber hineinladen)
- einen Fehlerzähler implementiert (wie Rollstulfahrer schon beschrieben hat)
Was passiert wenn der Galgen fertig ist (nach 12 Fehlversuchen)?
Das mußt Du auch noch implementieren.
Meine Schritte habe ich soweit wie möglich kommentiert.
Forum: Multimedia
Delphi
by Klaus01,
19. Mai 2008
Du kannst Dir ja mal diesen Beitrag als Inspiration
anschauen.
Grüße
Klaus
Forum: Multimedia
Delphi
by Klaus01,
19. Mai 2008
Guten Morgen,
was hast Du denn bereits fertig?
Stelle den Code doch mal ein.
Ich würde das Problem mit einer TImageList angehen,
wo dann als Bild die verschiedenen Zustände des Galgenmännchens
hinterlegt sind.
Grüße