home *** CD-ROM | disk | FTP | other *** search
- object AnswerForm: TAnswerForm
- Left = 284
- Top = 147
- Width = 651
- Height = 414
- Caption = 'Query Results'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Default'
- Font.Style = []
- KeyPreview = True
- Position = poDefault
- OnActivate = FormActivate
- OnDeactivate = FormDeactivate
- OnKeyDown = FormKeyDown
- PixelsPerInch = 96
- TextHeight = 13
- object AnswerGrid: TDBGrid
- Left = 0
- Top = 31
- Width = 643
- Height = 356
- Align = alClient
- DataSource = QDataSource
- Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
- TabOrder = 0
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'Default'
- TitleFont.Style = []
- end
- object ToolBar1: TToolBar
- Left = 0
- Top = 0
- Width = 643
- Height = 31
- AutoSize = True
- ButtonHeight = 25
- EdgeBorders = [ebTop, ebRight, ebBottom]
- TabOrder = 1
- object DBNavigator1: TDBNavigator
- Left = 0
- Top = 2
- Width = 128
- Height = 25
- Cursor = crArrow
- DataSource = QDataSource
- VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
- Hints.Strings = (
- 'First Record'
- 'Previous Record'
- 'Next Record'
- 'Last Record')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object ToolButton1: TToolButton
- Left = 128
- Top = 2
- Width = 8
- Height = 25
- Caption = 'ToolButton1'
- ImageIndex = 0
- Style = tbsSeparator
- end
- object tbbCopy: TSpeedButton
- Left = 136
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Copy to Clipboard'
- Flat = True
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000FFFFFF000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF000000000000FFFF00FF000000FF00FF00FFFF000000666600888888888888
- 8888888888888888888888888884444444448888888400000004888888840AAA
- AA048AAAAAA4000000048A0000040AAAAA048A0AAAA4000000048A0000040AA0
- 44448A0AAAA4000040488A000004000044888A0AA0A4444448888A0000A0A888
- 88888A0000AA888888888AAAAAA8888888888888888888888888}
- ParentShowHint = False
- ShowHint = True
- OnClick = tbbCopyClick
- end
- end
- object QDataSource: TDataSource
- DataSet = SQLQuery
- Left = 614
- Top = 2
- end
- object SQLQuery: TQuery
- Left = 584
- Top = 2
- end
- end
-