diff options
| author | Erich Eckner <git@eckner.net> | 2020-04-08 12:28:07 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2020-04-08 12:28:07 +0200 |
| commit | cf9cd4659fbfb3198507a19bdfcca11a8f88df6d (patch) | |
| tree | f3bf7247a769d185be31331f75e1f3163c9014b4 | |
| parent | bf31481db80acd7fc90541655a8a7b81fbd8124d (diff) | |
| download | Raetsel-cf9cd4659fbfb3198507a19bdfcca11a8f88df6d.tar.xz | |
Liniendicke korrigiert
| -rw-r--r-- | raetselunit.pas | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/raetselunit.pas b/raetselunit.pas index b61358d..48adb03 100644 --- a/raetselunit.pas +++ b/raetselunit.pas @@ -89,6 +89,7 @@ type startFeld: array of boolean; zuege: array of tZug; procedure anzSEsOnChange(sender: tObject); + procedure cbOnChange(sender: tObject); procedure onKeyDown(sender: tObject; var key: word; shiftState: tShiftState); override; procedure onMouseDown(sender: tObject; button: tMouseButton; shiftState: tShiftState; x,y: longint); override; procedure aktualisiereGroesze; @@ -463,12 +464,14 @@ begin diagonalenCB.top:=spinEdits[length(spinEdits)-1].top+spinEdits[length(spinEdits)-1].height+spacing; diagonalenCB.left:=spacing; diagonalenCB.onKeyDown:=@onKeyDown; + diagonalenCB.onChange:=@cbOnChange; sudokuCB:=tSmarterCheckBox.create(besitzer); sudokuCB.parent:=besitzer; sudokuCB.caption:='Sudoku'; sudokuCB.top:=diagonalenCB.top; sudokuCB.left:=diagonalenCB.left+diagonalenCB.width+spacing; sudokuCB.onKeyDown:=@onKeyDown; + sudokuCB.onChange:=@cbOnChange; farbWahlFlaeche.left:=spacing; farbWahlFlaeche.top:=diagonalenCB.top+diagonalenCB.height+spacing; farbWahlFlaeche.height:=16; @@ -493,6 +496,11 @@ begin aktualisiereGroesze; end; +procedure tFelderRaetsel.cbOnChange(sender: tObject); +begin + zeichnen; +end; + procedure tFelderRaetsel.onKeyDown(sender: tObject; var key: word; shiftState: tShiftState); begin if ssCtrl in shiftState then begin @@ -713,7 +721,7 @@ begin exit; zeichenFlaeche.canvas.brush.color:=$ffffff; zeichenFlaeche.canvas.rectangle(-10,-10,zeichenFlaeche.width+10,zeichenFlaeche.height+10); - zeichenFlaeche.canvas.pen.width:=3-2*byte(sudokuCB.checked); + zeichenFlaeche.canvas.pen.width:=1; zeichenFlaeche.canvas.pen.color:=$000000; if diagonalenCB.checked then for i:=1 to dim do begin @@ -733,7 +741,7 @@ begin end; for i:=0 to dim do with zeichenFlaeche.canvas do begin - pen.width:=3-2*byte(sudokuCB.checked and (i mod nSqrt <> 0)); + pen.width:=3-2*byte((not sudokuCB.checked or (i mod nSqrt <> 0)) and (i>0) and (i<dim)); moveTo(round((i+1)*zellGroesze),round(zellGroesze)); lineTo(round((i+1)*zellGroesze),round((dim+1)*zellGroesze)); moveTo(round(zellGroesze),round((i+1)*zellGroesze)); |