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

1
applications/sudoku/sudokumain.pas
View File

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