summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--raetsel.lps30
-rw-r--r--raetselunit.pas3
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