Cursor nur 1pt breit, damit dicke Linien noch zu sehen sind

2 files changed, 52 insertions, 49 deletions

diff --git a/raetsel.lps b/raetsel.lps
index 24d557b..294c5d3 100644
--- a/raetsel.lps
+++ b/raetsel.lps
@@ -9,7 +9,7 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="2"/>
         <CursorPos X="30" Y="19"/>
-        <UsageCount Value="81"/>
+        <UsageCount Value="84"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
@@ -19,7 +19,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <CursorPos Y="16"/>
-        <UsageCount Value="81"/>
+        <UsageCount Value="84"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit1>
@@ -32,24 +32,25 @@
         <UnitName Value="Unit2"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="11" Y="27"/>
-        <UsageCount Value="80"/>
+        <UsageCount Value="83"/>
       </Unit2>
       <Unit3>
         <Filename Value="raetselunit.pas"/>
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="651"/>
-        <CursorPos X="41" Y="659"/>
-        <UsageCount Value="75"/>
+        <TopLine Value="186"/>
+        <CursorPos Y="213"/>
+        <UsageCount Value="78"/>
         <Loaded Value="True"/>
       </Unit3>
       <Unit4>
         <Filename Value="raetselunit.inc"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="6"/>
-        <CursorPos X="15" Y="15"/>
-        <UsageCount Value="61"/>
+        <TopLine Value="443"/>
+        <CursorPos X="51" Y="456"/>
+        <UsageCount Value="64"/>
         <Loaded Value="True"/>
       </Unit4>
       <Unit5>
@@ -112,7 +113,7 @@
       <Unit13>
         <Filename Value="../units/lowlevelunit.pas"/>
         <EditorIndex Value="4"/>
-        <UsageCount Value="18"/>
+        <UsageCount Value="19"/>
         <Loaded Value="True"/>
       </Unit13>
       <Unit14>
@@ -127,7 +128,7 @@
         <EditorIndex Value="5"/>
         <TopLine Value="983"/>
         <CursorPos X="17" Y="1009"/>
-        <UsageCount Value="18"/>
+        <UsageCount Value="19"/>
         <Loaded Value="True"/>
       </Unit15>
       <Unit16>
@@ -151,7 +152,7 @@
         <EditorIndex Value="3"/>
         <TopLine Value="22"/>
         <CursorPos X="59" Y="58"/>
-        <UsageCount Value="18"/>
+        <UsageCount Value="19"/>
         <Loaded Value="True"/>
       </Unit19>
     </Units>
@@ -161,121 +162,121 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="1181" Column="52" TopLine="1162"/>
+        <Caret Line="532" Column="11" TopLine="505"/>
       </Position1>
       <Position2>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="1185" Column="54" TopLine="1162"/>
+        <Caret Line="546" Column="13" TopLine="519"/>
       </Position2>
       <Position3>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="1179" Column="42" TopLine="1162"/>
+        <Caret Line="578" Column="11" TopLine="552"/>
       </Position3>
       <Position4>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="654" TopLine="642"/>
+        <Caret Line="587" Column="11" TopLine="560"/>
       </Position4>
       <Position5>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="660" Column="35" TopLine="644"/>
+        <Caret Line="726" Column="11" TopLine="699"/>
       </Position5>
       <Position6>
         <Filename Value="raetselunit.pas"/>
+        <Caret Line="861" Column="37" TopLine="835"/>
       </Position6>
       <Position7>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="108" TopLine="86"/>
+        <Caret Line="105" Column="32" TopLine="89"/>
       </Position7>
       <Position8>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="570" Column="35" TopLine="544"/>
+        <Caret Line="763" Column="14" TopLine="753"/>
       </Position8>
       <Position9>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="573" Column="35" TopLine="547"/>
+        <Caret Line="65" Column="31" TopLine="50"/>
       </Position9>
       <Position10>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="697" TopLine="675"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="763" Column="28" TopLine="736"/>
       </Position10>
       <Position11>
-        <Filename Value="raetselunit.pas"/>
-        <Caret Line="1192" Column="11" TopLine="1176"/>
+        <Filename Value="raetselunit.inc"/>
+        <Caret Line="15" Column="15"/>
       </Position11>
       <Position12>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="1100" Column="20" TopLine="1085"/>
+        <Caret Line="1173" Column="26" TopLine="1146"/>
       </Position12>
       <Position13>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="697" TopLine="633"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="1174" Column="44" TopLine="1147"/>
       </Position13>
       <Position14>
-        <Filename Value="raetselunit.inc"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="1178" Column="46" TopLine="1151"/>
       </Position14>
       <Position15>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="12" Column="15"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="1182" Column="25" TopLine="1155"/>
       </Position15>
       <Position16>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="1196" Column="67" TopLine="1179"/>
+        <Caret Line="65" Column="31" TopLine="50"/>
       </Position16>
       <Position17>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="61" Column="21" TopLine="46"/>
+        <Caret Line="763" Column="28" TopLine="745"/>
       </Position17>
       <Position18>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="100" Column="21" TopLine="72"/>
       </Position18>
       <Position19>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="351" Column="9" TopLine="324"/>
+        <Caret Line="76" Column="23" TopLine="49"/>
       </Position19>
       <Position20>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="12" Column="28"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="118" Column="23" TopLine="91"/>
       </Position20>
       <Position21>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="694" Column="13" TopLine="671"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="353" Column="11" TopLine="326"/>
       </Position21>
       <Position22>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="656" Column="31" TopLine="646"/>
+        <Caret Line="383" Column="13" TopLine="356"/>
       </Position22>
       <Position23>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="657" Column="19" TopLine="643"/>
+        <Caret Line="400" Column="13" TopLine="373"/>
       </Position23>
       <Position24>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="64" Column="27" TopLine="48"/>
+        <Caret Line="532" Column="11" TopLine="505"/>
       </Position24>
       <Position25>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="660" Column="25" TopLine="633"/>
+        <Caret Line="546" Column="13" TopLine="519"/>
       </Position25>
       <Position26>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="661" Column="22" TopLine="634"/>
+        <Caret Line="578" Column="11" TopLine="552"/>
       </Position26>
       <Position27>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="678" Column="20" TopLine="652"/>
+        <Caret Line="587" Column="11" TopLine="560"/>
       </Position27>
       <Position28>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="12" Column="62"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="726" Column="11" TopLine="699"/>
       </Position28>
       <Position29>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="20" Column="27"/>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="819" Column="59" TopLine="800"/>
       </Position29>
       <Position30>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="796" Column="31" TopLine="778"/>
+        <Filename Value="raetselunit.pas"/>
       </Position30>
     </JumpHistory>
     <RunParams>
diff --git a/raetselunit.pas b/raetselunit.pas
index 4ea8d77..5eae72a 100644
--- a/raetselunit.pas
+++ b/raetselunit.pas
@@ -811,6 +811,7 @@ begin
           end;
   end;
   zeichenFlaeche.canvas.pen.color:=$8080ff;
+  zeichenFlaeche.canvas.pen.width:=1;
   if (cursorPosition>=0) and (dim>0) and cursor then begin
     zeichenFlaeche.canvas.brush.color:=
       $ffffff - $181818 * byte(
@@ -826,6 +827,7 @@ begin
       round(((cursorPosition div dim)+2)*zellGroesze+1)
       );
   end;
+  zeichenFlaeche.canvas.pen.width:=3;
   zeichenFlaeche.canvas.brush.color:=$ffffff;
   for i:=0 to dim-1 do begin
     schreibeZentriert(i,-1,rand[i]);