You've already forked lazarus-ccr
e138543a0b
- different text representation of digitset - custom editor for DigitSets - forbid editing cells taht are already locked (in FRawData) - disable RangeSelect in the grids git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7245 8e941d3f-bd1b-0410-a28a-d453659cc2b4
96 lines
2.0 KiB
Plaintext
96 lines
2.0 KiB
Plaintext
object Form1: TForm1
|
|
Left = 566
|
|
Height = 380
|
|
Top = 203
|
|
Width = 333
|
|
HorzScrollBar.Page = 271
|
|
VertScrollBar.Page = 280
|
|
ActiveControl = btnEdit
|
|
BorderStyle = bsDialog
|
|
Caption = 'Sudoku Solver'
|
|
ClientHeight = 380
|
|
ClientWidth = 333
|
|
OnActivate = FormActivate
|
|
OnCreate = FormCreate
|
|
LCLVersion = '2.1.0.0'
|
|
object SGrid: TStringGrid
|
|
Left = 16
|
|
Height = 280
|
|
Top = 16
|
|
Width = 292
|
|
ColCount = 9
|
|
DefaultColWidth = 30
|
|
DefaultRowHeight = 30
|
|
FixedCols = 0
|
|
FixedRows = 0
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goSmoothScroll]
|
|
RowCount = 9
|
|
ScrollBars = ssNone
|
|
TabOrder = 2
|
|
OnPrepareCanvas = SGridPrepareCanvas
|
|
OnSelectEditor = SGridSelectEditor
|
|
end
|
|
object btnEdit: TButton
|
|
Left = 16
|
|
Height = 25
|
|
Top = 312
|
|
Width = 75
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'Edit'
|
|
OnClick = btnEditClick
|
|
TabOrder = 0
|
|
end
|
|
object btnSolve: TButton
|
|
AnchorSideRight.Control = SGrid
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 208
|
|
Height = 25
|
|
Top = 312
|
|
Width = 100
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.InnerBorder = 2
|
|
Caption = 'Solve'
|
|
OnClick = btnSolveClick
|
|
TabOrder = 1
|
|
end
|
|
object btnClear: TButton
|
|
Left = 96
|
|
Height = 25
|
|
Top = 312
|
|
Width = 75
|
|
Caption = 'Clear'
|
|
OnClick = btnClearClick
|
|
TabOrder = 3
|
|
end
|
|
object btnSave: TButton
|
|
Left = 120
|
|
Height = 25
|
|
Top = 344
|
|
Width = 100
|
|
Caption = 'Save to file'
|
|
OnClick = btnSaveClick
|
|
TabOrder = 4
|
|
end
|
|
object btnLoad: TButton
|
|
Left = 16
|
|
Height = 25
|
|
Top = 344
|
|
Width = 100
|
|
Caption = 'Load from file'
|
|
OnClick = btnLoadClick
|
|
TabOrder = 5
|
|
end
|
|
object OpenDialog: TOpenDialog
|
|
Title = 'Open a Sudoku text file'
|
|
Filter = 'Sudoku files|*.sudoku|All files|*'
|
|
Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing]
|
|
left = 264
|
|
top = 16
|
|
end
|
|
object SaveDialog: TSaveDialog
|
|
Options = [ofPathMustExist, ofEnableSizing]
|
|
left = 208
|
|
top = 16
|
|
end
|
|
end
|