From 842e89c229ccc8d77c69622a6cc7e5fe974a33ae Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 2 Oct 2018 10:26:31 +0200
Subject: richtige Diagonalenfelder markieren

---
 raetsel.lps     | 30 +++++++++++-------------------
 raetselunit.pas |  3 ++-
 2 files changed, 13 insertions(+), 20 deletions(-)

diff --git a/raetsel.lps b/raetsel.lps
index c6e99c4..011dd81 100644
--- a/raetsel.lps
+++ b/raetsel.lps
@@ -35,15 +35,17 @@
       <Unit3>
         <Filename Value="raetselunit.pas"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <CursorPos X="3" Y="11"/>
+        <TopLine Value="637"/>
+        <CursorPos X="99" Y="649"/>
         <UsageCount Value="53"/>
         <Loaded Value="True"/>
       </Unit3>
       <Unit4>
         <Filename Value="raetselunit.inc"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="4"/>
+        <EditorIndex Value="3"/>
         <TopLine Value="785"/>
         <CursorPos Y="807"/>
         <UsageCount Value="39"/>
@@ -85,7 +87,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <EditorIndex Value="5"/>
+        <EditorIndex Value="4"/>
         <TopLine Value="2341"/>
         <CursorPos X="13" Y="2380"/>
         <UsageCount Value="20"/>
@@ -146,15 +148,13 @@
       </Unit18>
       <Unit19>
         <Filename Value="../units/mystringlistunit.pas"/>
-        <IsVisibleTab Value="True"/>
-        <EditorIndex Value="3"/>
+        <EditorIndex Value="-1"/>
         <TopLine Value="31"/>
         <CursorPos X="59" Y="58"/>
         <UsageCount Value="10"/>
-        <Loaded Value="True"/>
       </Unit19>
     </Units>
-    <JumpHistory Count="24" HistoryIndex="23">
+    <JumpHistory Count="22" HistoryIndex="21">
       <Position1>
         <Filename Value="raetselunit.pas"/>
         <Caret Line="408" Column="39" TopLine="373"/>
@@ -235,21 +235,13 @@
         <Caret Line="11" Column="47"/>
       </Position20>
       <Position21>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="161" Column="9" TopLine="130"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="11" Column="3" TopLine="46"/>
       </Position21>
       <Position22>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="151" Column="56" TopLine="131"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="375" Column="31" TopLine="343"/>
       </Position22>
-      <Position23>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="58" Column="77" TopLine="36"/>
-      </Position23>
-      <Position24>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="152" Column="42" TopLine="130"/>
-      </Position24>
     </JumpHistory>
   </ProjectSession>
   <Debugging>
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
-- 
cgit v1.2.3-70-g09d2