diff options
author | Erich Eckner <git@eckner.net> | 2018-10-01 13:46:00 +0200 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2018-10-01 13:46:00 +0200 |
commit | 667f65d6f46dc71482e307ee483e994f8f78b522 (patch) | |
tree | 9b5e8f575d285de2373c00fe4610d8e8745b8c07 /raetselunit.pas | |
parent | fe01ae9355e0fddf2100e165d07fb41ae68b3470 (diff) | |
download | Raetsel-667f65d6f46dc71482e307ee483e994f8f78b522.tar.xz |
mehr Fortschritt
Diffstat (limited to 'raetselunit.pas')
-rw-r--r-- | raetselunit.pas | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/raetselunit.pas b/raetselunit.pas index b0cea36..6c77ce6 100644 --- a/raetselunit.pas +++ b/raetselunit.pas @@ -18,10 +18,11 @@ type tRaetsel = class private - besitzer: tForm; - zeichenflaeche: tImage; - erzeugeBtn: tButtonWithArrowKeys; - progressbar1: tProgressBar; + besitzer: tForm; + farbWahlFlaeche, + zeichenflaeche: tImage; + erzeugeBtn: tButtonWithArrowKeys; + progressbar1: tProgressBar; function besitzerHoehe: longint; dynamic; function besitzerBreite: longint; dynamic; procedure zeichenFlaecheNeuKreieren; @@ -60,6 +61,7 @@ type procedure schreibeZentriert(x,y,i: longint); procedure relativeInhaltsAenderung(diff: longint); dynamic; abstract; function absoluteInhaltsAenderung(key: word): boolean; dynamic; abstract; + procedure gesamtRaenderErzeugen; dynamic; abstract; public constructor create(aOwner: tForm; anzInhTypen: longint; alphabetFunktion: tAlphabetFunktion); destructor destroy; override; @@ -285,6 +287,7 @@ begin setlength(rand,4*(dim+1)); loeschen; cursorPosition:=0; + gesamtRaenderErzeugen; aktualisiereZeichenflaechenGroesze; end; @@ -367,7 +370,7 @@ begin s:=uebersetze(i); with zeichenflaeche.canvas do begin brush.color:=$FFFFFF - $181818*byte(diagonalenCB.checked and ((x=y) or (x+y=dim+1))); - if not passtZumZeichnen(x,y) then + if (x>=0) and (y>=0) and (x<dim) and (y<dim) and not passtZumZeichnen(x,y) then font.color:=$0000FF else if geloest then font.color:=$007F00 |