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