diff options
author | Erich Eckner <git@eckner.net> | 2018-10-01 11:21:32 +0200 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2018-10-01 11:21:32 +0200 |
commit | fe01ae9355e0fddf2100e165d07fb41ae68b3470 (patch) | |
tree | a766e156d5367ed4b40213cf57b38d74882ec575 /raetselunit.pas | |
parent | 0c70d338a4157e59cb25f4881a349105957486a0 (diff) | |
download | Raetsel-fe01ae9355e0fddf2100e165d07fb41ae68b3470.tar.xz |
raetselunit.inc: passtZumZeichnen neu
Diffstat (limited to 'raetselunit.pas')
-rw-r--r-- | raetselunit.pas | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/raetselunit.pas b/raetselunit.pas index 5f1033b..b0cea36 100644 --- a/raetselunit.pas +++ b/raetselunit.pas @@ -30,12 +30,13 @@ type procedure erzeugeOnClick(sender: tObject); procedure loeschen; dynamic; abstract; procedure leeren; dynamic; abstract; + function loesen(inhaltBehalten: boolean; lPos: longint): longint; dynamic; abstract; + function passtZumZeichnen(spalte,zeile: integer): boolean; dynamic; abstract; + function passt(spalte,zeile: integer): boolean; dynamic; abstract; + function geloest: boolean; dynamic; abstract; public constructor create(aOwner: tForm); destructor destroy; override; - function loesen(inhaltBehalten: boolean; lPos: longint): longint; dynamic; abstract; - function passt(spalte,zeile: integer): boolean; dynamic; abstract; - function geloest: boolean; dynamic; abstract; procedure zeichnen; dynamic; abstract; end; @@ -120,6 +121,9 @@ begin erzeugeBtn.caption:='Erzeugen!'; erzeugeBtn.onClick:=@erzeugeOnClick; erzeugeBtn.onKeyDown:=@onKeyDown; + progressbar1:=tProgressBar.create(besitzer); + progressbar1.visible:=false; + progressbar1.parent:=besitzer; end; destructor tRaetsel.destroy; @@ -331,6 +335,7 @@ begin zeichenflaeche.height:=round((dim+2)*zellGroesze); zeichenflaeche.width:=zeichenflaeche.height; zeichenFlaecheNeuKreieren; + progressbar1.width:=besitzerBreite; besitzer.height:=besitzerHoehe; besitzer.width:=besitzerBreite; zeichnen; @@ -362,7 +367,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 passt(x,y) then + if not passtZumZeichnen(x,y) then font.color:=$0000FF else if geloest then font.color:=$007F00 @@ -471,5 +476,16 @@ procedure tBuchstabenRaetsel.gesamtRaenderErzeugen; {$UNDEF buchstaben} {$UNDEF gesamtRaenderErzeugen} +{$DEFINE passtZumZeichnen} +function tHochhausRaetsel.passtZumZeichnen(spalte,zeile: integer): boolean; +{$DEFINE hochhaus} +{$I raetselunit.inc} +{$UNDEF hochhaus} +function tBuchstabenRaetsel.passtZumZeichnen(spalte,zeile: integer): boolean; +{$DEFINE buchstaben} +{$I raetselunit.inc} +{$UNDEF buchstaben} +{$UNDEF passtZumZeichnen} + end. |