264 lines
5.7 KiB
Plaintext
264 lines
5.7 KiB
Plaintext
object Form1: TForm1
|
|
Left = 269
|
|
Top = 358
|
|
Width = 568
|
|
Height = 366
|
|
HorzScrollBar.Range = 267
|
|
ActiveControl = JvSg
|
|
Caption = 'JvStringGrid Demo'
|
|
Color = clButton
|
|
Constraints.MinHeight = 360
|
|
Constraints.MinWidth = 500
|
|
Font.Color = clText
|
|
Font.Height = 11
|
|
Font.Name = 'MS Shell Dlg 2'
|
|
Font.Pitch = fpVariable
|
|
Font.Style = []
|
|
Font.Weight = 40
|
|
ParentFont = False
|
|
Position = poDesktopCenter
|
|
Scaled = False
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 113
|
|
object JvSg: TJvStringGrid
|
|
Left = 0
|
|
Top = 0
|
|
Width = 301
|
|
Height = 366
|
|
Align = alClient
|
|
ColCount = 2
|
|
FixedCols = 0
|
|
RowCount = 2
|
|
FixedRows = 0
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goRowMoving, goColMoving, goEditing, goTabs, goAlwaysShowEditor, goThumbTracking]
|
|
TabOrder = 0
|
|
Alignment = taLeftJustify
|
|
FixedFont.Color = clText
|
|
FixedFont.Height = 11
|
|
FixedFont.Name = 'MS Shell Dlg 2'
|
|
FixedFont.Pitch = fpVariable
|
|
FixedFont.Style = []
|
|
FixedFont.Weight = 40
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 301
|
|
Top = 0
|
|
Width = 267
|
|
Height = 366
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object Label1: TLabel
|
|
Left = 24
|
|
Top = 24
|
|
Width = 21
|
|
Height = 18
|
|
Caption = 'Row'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 136
|
|
Top = 24
|
|
Width = 16
|
|
Height = 18
|
|
Caption = 'Col'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 24
|
|
Top = 232
|
|
Width = 22
|
|
Height = 18
|
|
Caption = 'Data'
|
|
end
|
|
object edRow: TEdit
|
|
Left = 24
|
|
Top = 40
|
|
Width = 65
|
|
Height = 26
|
|
TabOrder = 4
|
|
Text = '0'
|
|
end
|
|
object udRows: TUpDown
|
|
Left = 90
|
|
Top = 40
|
|
Width = 15
|
|
Height = 21
|
|
Associate = edRow
|
|
ArrowKeys = False
|
|
TabOrder = 5
|
|
end
|
|
object edCol: TEdit
|
|
Left = 136
|
|
Top = 40
|
|
Width = 65
|
|
Height = 26
|
|
TabOrder = 6
|
|
Text = '0'
|
|
end
|
|
object udCols: TUpDown
|
|
Left = 202
|
|
Top = 40
|
|
Width = 15
|
|
Height = 21
|
|
Associate = edCol
|
|
ArrowKeys = False
|
|
TabOrder = 7
|
|
end
|
|
object RowInsert: TButton
|
|
Left = 24
|
|
Top = 80
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Insert'
|
|
TabOrder = 8
|
|
OnClick = RowInsertClick
|
|
end
|
|
object RowDelete: TButton
|
|
Left = 24
|
|
Top = 112
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Delete'
|
|
TabOrder = 9
|
|
OnClick = RowDeleteClick
|
|
end
|
|
object RowHide: TButton
|
|
Left = 24
|
|
Top = 144
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Hide'
|
|
TabOrder = 10
|
|
OnClick = RowHideClick
|
|
end
|
|
object RowShow: TButton
|
|
Left = 24
|
|
Top = 176
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Show'
|
|
TabOrder = 11
|
|
OnClick = RowShowClick
|
|
end
|
|
object ColInsert: TButton
|
|
Left = 136
|
|
Top = 80
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Insert'
|
|
TabOrder = 12
|
|
OnClick = ColInsertClick
|
|
end
|
|
object ColDelete: TButton
|
|
Left = 136
|
|
Top = 112
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Delete'
|
|
TabOrder = 13
|
|
OnClick = ColDeleteClick
|
|
end
|
|
object ColHide: TButton
|
|
Left = 136
|
|
Top = 144
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Hide'
|
|
TabOrder = 14
|
|
OnClick = ColHideClick
|
|
end
|
|
object ColShow: TButton
|
|
Left = 136
|
|
Top = 176
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Show'
|
|
TabOrder = 15
|
|
OnClick = ColShowClick
|
|
end
|
|
object Clear: TButton
|
|
Left = 87
|
|
Top = 210
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Clear'
|
|
TabOrder = 17
|
|
OnClick = ClearClick
|
|
end
|
|
object btnAddRow: TButton
|
|
Left = 22
|
|
Top = 3
|
|
Width = 17
|
|
Height = 17
|
|
Caption = '+'
|
|
Font.Color = clText
|
|
Font.Height = 11
|
|
Font.Name = 'MS Shell Dlg 2'
|
|
Font.Pitch = fpVariable
|
|
Font.Style = []
|
|
Font.Weight = 40
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
OnClick = btnAddRowClick
|
|
end
|
|
object btnDelRow: TButton
|
|
Left = 46
|
|
Top = 3
|
|
Width = 17
|
|
Height = 17
|
|
Caption = '-'
|
|
Font.Color = clText
|
|
Font.Height = 11
|
|
Font.Name = 'MS Shell Dlg 2'
|
|
Font.Pitch = fpVariable
|
|
Font.Style = []
|
|
Font.Weight = 40
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
OnClick = btnDelRowClick
|
|
end
|
|
object btnAddCol: TButton
|
|
Left = 134
|
|
Top = 3
|
|
Width = 17
|
|
Height = 17
|
|
Caption = '+'
|
|
Font.Color = clText
|
|
Font.Height = 11
|
|
Font.Name = 'MS Shell Dlg 2'
|
|
Font.Pitch = fpVariable
|
|
Font.Style = []
|
|
Font.Weight = 40
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
OnClick = btnAddColClick
|
|
end
|
|
object btnDelCol: TButton
|
|
Left = 158
|
|
Top = 3
|
|
Width = 17
|
|
Height = 17
|
|
Caption = '-'
|
|
Font.Color = clText
|
|
Font.Height = 11
|
|
Font.Name = 'MS Shell Dlg 2'
|
|
Font.Pitch = fpVariable
|
|
Font.Style = []
|
|
Font.Weight = 40
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
OnClick = btnDelColClick
|
|
end
|
|
object reData: TMemo
|
|
Left = 8
|
|
Top = 248
|
|
Width = 257
|
|
Height = 113
|
|
Lines.Strings = (
|
|
'The content of this memo will be inserted into '
|
|
'the stringgrid when you click either of the '
|
|
'"Insert" buttons.')
|
|
TabOrder = 20
|
|
end
|
|
end
|
|
end
|