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

1 files changed, 2 insertions, 0 deletions

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]);