2020-01-05 13:56:22 +00:00
|
|
|
object ScratchForm: TScratchForm
|
|
|
|
Left = 755
|
|
|
|
Height = 545
|
|
|
|
Top = 113
|
|
|
|
Width = 799
|
2020-01-10 11:11:56 +00:00
|
|
|
BorderIcons = [biSystemMenu]
|
2020-01-05 13:56:22 +00:00
|
|
|
Caption = 'ScratchPad'
|
|
|
|
ClientHeight = 545
|
|
|
|
ClientWidth = 799
|
|
|
|
OnActivate = FormActivate
|
|
|
|
OnCreate = FormCreate
|
|
|
|
LCLVersion = '2.1.0.0'
|
|
|
|
object ScratchGrid: TStringGrid
|
|
|
|
Left = 16
|
|
|
|
Height = 283
|
|
|
|
Top = 13
|
|
|
|
Width = 736
|
|
|
|
ColCount = 9
|
|
|
|
DefaultColWidth = 80
|
|
|
|
DefaultRowHeight = 30
|
|
|
|
FixedCols = 0
|
|
|
|
FixedRows = 0
|
|
|
|
RowCount = 9
|
|
|
|
ScrollBars = ssNone
|
|
|
|
TabOrder = 0
|
2020-01-06 18:21:54 +00:00
|
|
|
OnClick = ScratchGridClick
|
|
|
|
OnPrepareCanvas = ScratchGridPrepareCanvas
|
2020-01-05 13:56:22 +00:00
|
|
|
end
|
|
|
|
object btnCopy: TButton
|
|
|
|
AnchorSideLeft.Control = ScratchGrid
|
|
|
|
AnchorSideTop.Control = ScratchGrid
|
|
|
|
AnchorSideTop.Side = asrBottom
|
2020-01-10 11:11:56 +00:00
|
|
|
AnchorSideRight.Control = btnCopyRaw
|
|
|
|
AnchorSideRight.Side = asrBottom
|
2020-01-05 13:56:22 +00:00
|
|
|
Left = 16
|
|
|
|
Height = 25
|
|
|
|
Top = 306
|
2020-01-10 11:11:56 +00:00
|
|
|
Width = 279
|
2020-01-05 13:56:22 +00:00
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Top = 10
|
2020-01-10 11:11:56 +00:00
|
|
|
Caption = 'Copy only values back and close the ScratchPad'
|
2020-01-05 13:56:22 +00:00
|
|
|
OnClick = btnCopyClick
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
2020-01-10 11:11:56 +00:00
|
|
|
object btnCopyRaw: TButton
|
|
|
|
AnchorSideLeft.Control = btnCopy
|
|
|
|
AnchorSideTop.Control = btnCopy
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 16
|
|
|
|
Height = 25
|
|
|
|
Top = 341
|
|
|
|
Width = 354
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Top = 10
|
|
|
|
Caption = 'Copy values and possible digits back and close the ScratchPad'
|
|
|
|
OnClick = btnCopyRawClick
|
|
|
|
TabOrder = 2
|
|
|
|
end
|
2020-01-05 13:56:22 +00:00
|
|
|
end
|