Hangman: Galgen zeichnen..

[vator]

haben dieses galgenprojekt auch zu letzt in info gehabt und habe es folgendermaßen gelöst:

Delphi-Quellcode:

procedure TfoGalgen.GalgenZeichnen(Fehlversuche:integer);
begin
    with imGalgen.canvas do
       begin
          case fehlversuche of
             1 : begin
                   moveto(..);
                   lineto(...);
                 end;
             2 : begin
                   moveto(..);
                   lineto(..);
                 end;
                 ...
          end;
       end;
end;

Also musst du bei dir nur noch das Fehlversuche mit F ersetzen und die prozedur nach jedem btErgebnisClick aufrufen.

vator