sudoku repariert

1 files changed, 3 insertions, 1 deletions

diff --git a/raetselunit.pas b/raetselunit.pas
index 1819408..982d7ff 100644
--- a/raetselunit.pas
+++ b/raetselunit.pas
@@ -676,7 +676,7 @@ var
 begin
   zeichenflaeche.canvas.brush.color:=$ffffff;
   zeichenflaeche.canvas.rectangle(-10,-10,zeichenflaeche.width+10,zeichenflaeche.height+10);
-  zeichenflaeche.canvas.pen.width:=3;
+  zeichenflaeche.canvas.pen.width:=3-2*byte(sudokuCB.checked);
   zeichenflaeche.canvas.pen.color:=$000000;
   if diagonalenCB.checked then
     for i:=1 to dim do begin
@@ -696,11 +696,13 @@ 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));
       moveTo(round((i+1)*zellGroesze),round(zellGroesze));
       lineTo(round((i+1)*zellGroesze),round((dim+1)*zellGroesze));
       moveTo(round(zellGroesze),round((i+1)*zellGroesze));
       lineTo(round((dim+1)*zellGroesze),round((i+1)*zellGroesze));
     end;
+  zeichenflaeche.canvas.pen.width:=3;
   zeichenflaeche.canvas.pen.color:=$8080ff;
   if (cursorPosition>=0) and (dim>0) then begin
     zeichenflaeche.canvas.brush.color:=