From cf9cd4659fbfb3198507a19bdfcca11a8f88df6d Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 8 Apr 2020 12:28:07 +0200
Subject: Liniendicke korrigiert

---
 raetselunit.pas | 12 ++++++++++--
 1 file 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));
-- 
cgit v1.2.3-54-g00ecf