Einzelnen Beitrag anzeigen

Benutzerbild von Corpsman
Corpsman

Registriert seit: 8. Nov 2005
Ort: nähe Stuttgart
981 Beiträge
 
Delphi XE2 Professional
 
#12

Re: Sudoku - For windows

  Alt 15. Mär 2006, 16:15
Hi Win-Manww.

Um Zahlen Löschen zu können darfst du in den Anderen Modi nur die "0" benutzen. Da ich da keine so große Lust mehr hatte das so genau aus zu Programmieren.

Was mit den Sachend er Farben ist kann ich so nicht Nachvollziehen.

Hier folgt der Orginal Quellcode aus dem Spiel.

Delphi-Quellcode:
Procedure TForm2.Image2Click(Sender: TObject);
Begin
  // Auswahl einer Farbe
  Colordialog1.color := Timage(Sender).Canvas.brush.color;
  If Colordialog1.Execute Then Begin
    Timage(Sender).Canvas.brush.color := Colordialog1.color;
    Redraw;// Neu Zeichnen des Vorschau fensters
  End;
End;
Kannst ja mal schaun ob du so nen Code bei dir laufen lassen kannst.

Das Erstellen der Großen Sudoku's ist in der Tat ein Rechner Killer bei meinem 1,8 GHZ Rechner mit 512MB Arbeitspeicher tut es auch nicht immer.
Uwe
My Sitewww.Corpsman.de

My marble madness clone Balanced ( ca. 70,0 mb ) aktuell ver 2.01
  Mit Zitat antworten Zitat