richtige Diagonalenfelder markieren

1 files changed, 2 insertions, 1 deletions

diff --git a/raetselunit.pas b/raetselunit.pas
index 04052b9..1819408 100644
--- a/raetselunit.pas
+++ b/raetselunit.pas
@@ -244,6 +244,7 @@ begin
   zufallSE.hint:='Nummer';
   progressbar1:=tProgressBar.create(besitzer);
   progressbar1.visible:=false;
+  progressbar1.smooth:=true;
   progressbar1.parent:=besitzer;
 end;
 
@@ -646,7 +647,7 @@ begin
   s:=uebersetze(i);
   with zeichenflaeche.canvas do begin
     brush.color:=$FFFFFF;
-    if (x>=0) and (y>=0) and (x<dim) and (y<dim) and (diagonalenCB.checked and ((x=y) or (x+y=dim+1))) then
+    if (x>=0) and (y>=0) and (x<dim) and (y<dim) and (diagonalenCB.checked and ((x=y) or (x+y=dim-1))) then
       brush.color:=brush.color - $181818;
     if not passtZumZeichnen(x,y) then
       font.color:=$0000FF