home *** CD-ROM | disk | FTP | other *** search
- object MainForm: TMainForm
- Left = 275
- Top = 98
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'BDE - Delphi Filter Example'
- ClientHeight = 246
- ClientWidth = 562
- Color = clGreen
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnCreate = FormCreate
- TextHeight = 16
- object DBGrid1: TDBGrid
- Left = 0
- Top = 0
- Width = 562
- Height = 168
- Align = alTop
- DataSource = DataSource1
- FixedColor = clGreen
- Font.Color = clWhite
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = True
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- TitleFont.Color = clBlack
- TitleFont.Height = -12
- TitleFont.Name = 'Arial'
- TitleFont.Style = []
- end
- object DBImage1: TDBImage
- Left = 0
- Top = 168
- Width = 149
- Height = 78
- Align = alLeft
- Color = clGreen
- DataField = 'Graphic'
- DataSource = DataSource1
- Stretch = True
- TabOrder = 1
- end
- object DBMemo1: TDBMemo
- Left = 149
- Top = 168
- Width = 224
- Height = 78
- Align = alLeft
- DataField = 'Notes'
- DataSource = DataSource1
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = True
- ParentFont = False
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 2
- end
- object Panel1: TPanel
- Left = 373
- Top = 168
- Width = 189
- Height = 78
- Align = alClient
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Color = clGreen
- TabOrder = 3
- object BeginLbl: TLabel
- Left = 9
- Top = 16
- Width = 95
- Height = 15
- Caption = 'BeginFilter: None'
- Font.Color = clWhite
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object EndLbl: TLabel
- Left = 9
- Top = 48
- Width = 88
- Height = 15
- Caption = 'End Filter: None'
- Font.Color = clWhite
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object AddFilterBtn: TButton
- Left = 117
- Top = 10
- Width = 63
- Height = 26
- Caption = '&Add Filter'
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = AddFilterBtnClick
- end
- object DropFilterBtn: TButton
- Left = 117
- Top = 43
- Width = 63
- Height = 25
- Caption = '&Drop Filter'
- Enabled = False
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = DropFilterBtnClick
- end
- end
- object BiolifeTable: TTable
- DatabaseName = 'DBDEMOS'
- ReadOnly = True
- TableName = 'BIOLIFE.DB'
- TableType = ttParadox
- Left = 396
- Top = 4
- end
- object DataSource1: TDataSource
- DataSet = BiolifeTable
- Left = 424
- Top = 4
- end
- object OpenDialog1: TOpenDialog
- DefaultExt = 'DB'
- FileEditStyle = fsComboBox
- FileName = 'biolife.db'
- Filter = 'Paradox Tables (*.DB)|*.DB'
- Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
- Left = 452
- Top = 4
- end
- end
-