home *** CD-ROM | disk | FTP | other *** search
- object Grid: TGrid
- Left = 440
- Top = 119
- ActiveControl = BOk
- BorderStyle = bsDialog
- Caption = 'SetGrid'
- ClientHeight = 339
- ClientWidth = 242
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- TextHeight = 13
- object GroupBox1: TGroupBox
- Left = 4
- Top = 240
- Width = 233
- Height = 68
- Caption = ' Join next database '
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- object Label1: TLabel
- Left = 6
- Top = 18
- Width = 67
- Height = 13
- Caption = 'Main data:'
- end
- object Label2: TLabel
- Left = 6
- Top = 42
- Width = 67
- Height = 13
- Caption = 'Open data:'
- end
- object Button1: TButton
- Left = 155
- Top = 16
- Width = 73
- Height = 22
- Hint = 'Open dataBase file for join'
- Caption = 'Open DBase'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 155
- Top = 40
- Width = 36
- Height = 22
- Hint = 'Join select dataBase file'
- Caption = 'Join'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 192
- Top = 40
- Width = 36
- Height = 22
- Hint = 'Clear all join'
- Caption = 'Clear'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = Button3Click
- end
- end
- object HG: TStringGrid
- Left = 4
- Top = 8
- Width = 233
- Height = 233
- Hint = '.column:drag and move... 2.:Edit... 3.: show/hide'
- ColCount = 3
- DefaultColWidth = 80
- DefaultRowHeight = 20
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowMoving]
- ParentFont = False
- ParentShowHint = False
- ScrollBars = ssVertical
- ShowHint = True
- TabOrder = 0
- OnDblClick = HGDblClick
- OnDrawCell = HGDrawCell
- ColWidths = (
- 80
- 87
- 38)
- end
- object BOk: TButton
- Left = 52
- Top = 312
- Width = 67
- Height = 25
- Caption = 'Ok'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- OnClick = BOkClick
- end
- object BCan: TButton
- Left = 128
- Top = 312
- Width = 65
- Height = 25
- Caption = 'Cancel'
- TabOrder = 2
- OnClick = BCanClick
- end
- object CBJMain: TComboBox
- Left = 78
- Top = 256
- Width = 81
- Height = 21
- Hint = 'Select main databaseField for join'
- ItemHeight = 13
- ParentShowHint = False
- ShowHint = True
- Sorted = True
- TabOrder = 3
- Text = '...join field'
- end
- object CBOpen: TComboBox
- Left = 78
- Top = 280
- Width = 81
- Height = 21
- Hint = 'Select open databaseField for join'
- Enabled = False
- ItemHeight = 13
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- Text = '...join field'
- end
- object OD: TOpenDialog
- DefaultExt = 'dbf'
- FileEditStyle = fsEdit
- Left = 200
- Top = 312
- end
- end
-