jvcl driver development envionment
源代码在线查看： mainfrm.dfm
object Form1: TForm1
Left = 247
Top = 137
Width = 568
Height = 366
Caption = 'JvStringGrid Demo'
Color = clBtnFace
Constraints.MinHeight = 360
Constraints.MinWidth = 500
DefaultMonitor = dmDesktop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Scaled = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object JvSg: TJvStringGrid
Left = 0
Top = 0
Width = 293
Height = 332
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.Charset = DEFAULT_CHARSET
FixedFont.Color = clWindowText
FixedFont.Height = -11
FixedFont.Name = 'MS Shell Dlg 2'
FixedFont.Style = []
end
object Panel1: TPanel
Left = 293
Top = 0
Width = 267
Height = 332
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object Label1: TLabel
Left = 24
Top = 24
Width = 21
Height = 13
Caption = 'Row'
end
object Label2: TLabel
Left = 136
Top = 24
Width = 15
Height = 13
Caption = 'Col'
end
object Label3: TLabel
Left = 24
Top = 232
Width = 23
Height = 13
Caption = 'Data'
end
object edRow: TEdit
Left = 24
Top = 40
Width = 65
Height = 21
TabOrder = 4
Text = '0'
end
object udRows: TUpDown
Left = 89
Top = 40
Width = 15
Height = 21
Associate = edRow
Min = 0
Position = 0
TabOrder = 5
Wrap = False
end
object edCol: TEdit
Left = 136
Top = 40
Width = 65
Height = 21
TabOrder = 6
Text = '0'
end
object udCols: TUpDown
Left = 201
Top = 40
Width = 15
Height = 21
Associate = edCol
Min = 0
Position = 0
TabOrder = 7
Wrap = False
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 reData: TRichEdit
Left = 24
Top = 248
Width = 225
Height = 77
Anchors = [akLeft, akTop, akRight, akBottom]
Lines.Strings = (
'The content of this memo will be inserted into '
'the stringgrid when you click either of the '
'"Insert" buttons.')
PlainText = True
ScrollBars = ssBoth
TabOrder = 16
WordWrap = False
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 = '+'
TabOrder = 0
OnClick = btnAddRowClick
end
object btnDelRow: TButton
Left = 46
Top = 3
Width = 17
Height = 17
Caption = '-'
TabOrder = 1
OnClick = btnDelRowClick
end
object btnAddCol: TButton
Left = 134
Top = 3
Width = 17
Height = 17
Caption = '+'
TabOrder = 2
OnClick = btnAddColClick
end
object btnDelCol: TButton
Left = 158
Top = 3
Width = 17
Height = 17
Caption = '-'
TabOrder = 3
OnClick = btnDelColClick
end
end
end
