From 21c87d826675e1b6e02db03cbadc23a4de966b2b Mon Sep 17 00:00:00 2001 From: lazarus-bart <lazarus-bart@8e941d3f-bd1b-0410-a28a-d453659cc2b4> Date: Wed, 8 Jan 2020 11:33:04 +0000 Subject: [PATCH] Sudoku: change visula representation of "possible digits" for the sake if better human pattern recognition (as suggested by wp). git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7249 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- applications/sudoku/scratchpad.pas | 4 ++-- applications/sudoku/sudoku.lpi | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/applications/sudoku/scratchpad.pas b/applications/sudoku/scratchpad.pas index bc0953ce9..f3512e18f 100644 --- a/applications/sudoku/scratchpad.pas +++ b/applications/sudoku/scratchpad.pas @@ -49,10 +49,10 @@ function DigitSetToStr(ASet: TDigitSet): String; if (D in ASet) then Result := Char(Ord('0') + D) else - Result := 'x';//#32; + Result := #32;//'x' end; begin - Result := Format('%s-%s-%s'+LineEnding+'%s-%s-%s'+LineEnding+'%s-%s-%s',[Get(1),Get(2),Get(3),Get(4),Get(5),Get(6),Get(7),Get(8),Get(9)]); + Result := Format('%s %s %s'+LineEnding+'%s %s %s'+LineEnding+'%s %s %s',[Get(1),Get(2),Get(3),Get(4),Get(5),Get(6),Get(7),Get(8),Get(9)]); end; function StrToDigitSet(const S: String): TDigitSet; diff --git a/applications/sudoku/sudoku.lpi b/applications/sudoku/sudoku.lpi index 4c89073a4..156bb8d2d 100644 --- a/applications/sudoku/sudoku.lpi +++ b/applications/sudoku/sudoku.lpi @@ -85,6 +85,7 @@ <Filename Value="digitseteditor.pas"/> <IsPartOfProject Value="True"/> <ComponentName Value="DigitSetEditorForm"/> + <HasResources Value="True"/> <ResourceBaseClass Value="Form"/> <UnitName Value="DigitSetEditor"/> </Unit4>