pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Sudoku: make grid en cell sizes larger, add gridlines, remove unised label.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7222 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart
2020-01-04 15:09:59 +00:00
parent 20fbfe933f
commit 36975bdaef
2 changed files with 15 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
applications/sudoku/sudokumain.lfm
View File

@ -1,33 +1,25 @@
object Form1: TForm1
Left = 571
Height = 281
Top = 355
Width = 272
Left = 566
Height = 359
Top = 203
Width = 333
HorzScrollBar.Page = 271
VertScrollBar.Page = 280
ActiveControl = ButtonFill
Caption = 'Form1'
ClientHeight = 281
ClientWidth = 272
ClientHeight = 359
ClientWidth = 333
LCLVersion = '2.1.0.0'
object Label1: TLabel
Left = 44
Height = 15
Top = 8
Width = 34
Caption = 'Label1'
ParentColor = False
end
object StringGrid1: TStringGrid
Left = 44
Height = 182
Top = 40
Width = 182
Left = 16
Height = 280
Top = 16
Width = 292
ColCount = 9
DefaultColWidth = 20
DefaultColWidth = 30
DefaultRowHeight = 30
FixedCols = 0
FixedRows = 0
GridLineWidth = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
RowCount = 9
TabOrder = 2
@ -35,9 +27,9 @@ object Form1: TForm1
OnSetEditText = StringGrid1SetEditText
end
object ButtonFill: TButton
Left = 44
Left = 16
Height = 25
Top = 228
Top = 312
Width = 75
BorderSpacing.InnerBorder = 2
Caption = 'Fill'
@ -47,7 +39,7 @@ object Form1: TForm1
object ButtonSolve: TButton
Left = 151
Height = 25
Top = 228
Top = 312
Width = 75
BorderSpacing.InnerBorder = 2
Caption = 'Solve'

1
applications/sudoku/sudokumain.pas
View File

@ -37,7 +37,6 @@ type
TForm1 = class(TForm)
ButtonSolve: TButton;
ButtonFill: TButton;
Label1: TLabel;
StringGrid1: TStringGrid;
procedure ButtonFillClick(Sender: TObject);
procedure ButtonSolveClick(Sender: TObject);