home *** CD-ROM | disk | FTP | other *** search
- object ApplAct: TApplAct
- Left = 338
- Top = 223
- BorderStyle = bsDialog
- Caption = 'Dbf Action ...'
- ClientHeight = 314
- ClientWidth = 466
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 280
- Width = 466
- Height = 34
- Align = alBottom
- TabOrder = 0
- object Button1: TButton
- Left = 200
- Top = 4
- Width = 75
- Height = 25
- Caption = 'OK'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- OnClick = Button1Click
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 466
- Height = 129
- Align = alTop
- Caption = 'Panel2'
- TabOrder = 1
- object SG: TStringGrid
- Left = 1
- Top = 1
- Width = 464
- Height = 127
- Align = alClient
- DefaultColWidth = 30
- DefaultRowHeight = 20
- ScrollBars = ssVertical
- TabOrder = 0
- OnClick = SGClick
- OnDrawCell = SGDrawCell
- ColWidths = (
- 30
- 69
- 157
- 64
- 120)
- end
- object PList: TPanel
- Left = 168
- Top = 0
- Width = 137
- Height = 129
- Enabled = False
- Caption = 'PList'
- TabOrder = 1
- Visible = False
- object PLab: TLabel
- Left = 8
- Top = 8
- Width = 121
- Height = 13
- Alignment = taCenter
- Caption = 'Select database field:'
- Enabled = False
- Visible = False
- end
- object PListB: TListBox
- Left = 8
- Top = 24
- Width = 121
- Height = 97
- Enabled = False
- ItemHeight = 13
- TabOrder = 0
- Visible = False
- OnDblClick = PListBDblClick
- end
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 129
- Width = 466
- Height = 32
- Align = alTop
- Caption = 'AppletProjects list'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 2
- object Button3: TButton
- Left = 8
- Top = 2
- Width = 75
- Height = 20
- Caption = 'Clear line'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 384
- Top = 2
- Width = 75
- Height = 20
- Caption = 'Clear all'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- end
- object Panel4: TPanel
- Left = 0
- Top = 161
- Width = 466
- Height = 119
- Align = alClient
- Caption = 'Panel4'
- TabOrder = 3
- object SG1: TStringGrid
- Left = 1
- Top = 1
- Width = 464
- Height = 117
- Hint = 'Key [Del/Ins]:delete/insert row'
- Align = alClient
- ColCount = 3
- DefaultColWidth = 30
- DefaultRowHeight = 20
- RowCount = 2
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnKeyDown = SG1KeyDown
- ColWidths = (
- 30
- 198
- 210)
- end
- end
- end
-