diff options
| author | Erich Eckner <git@eckner.net> | 2018-10-02 10:26:31 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2018-10-02 10:26:31 +0200 |
| commit | 842e89c229ccc8d77c69622a6cc7e5fe974a33ae (patch) | |
| tree | a796477bdbc21d05473c4e35c2b44a87e1447b07 | |
| parent | b89e7cd8fcbcc6d893d3dd53408c8f42aebef30a (diff) | |
| download | Raetsel-842e89c229ccc8d77c69622a6cc7e5fe974a33ae.tar.xz | |
richtige Diagonalenfelder markieren
| -rw-r--r-- | raetsel.lps | 30 | ||||
| -rw-r--r-- | 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 |