home *** CD-ROM | disk | FTP | other *** search
- object QRExprBuilder: TQRExprBuilder
- Left = 236
- Top = 88
- BorderStyle = bsDialog
- Caption = 'Expression builder'
- ClientHeight = 403
- ClientWidth = 433
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- WindowState = wsMaximized
- OnActivate = FormActivate
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 8
- Top = 318
- Width = 337
- Height = 47
- end
- object CurrentExpr: TLabel
- Left = 8
- Top = 302
- Width = 62
- Height = 13
- Caption = 'Expression'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Element: TLabel
- Left = 10
- Top = 320
- Width = 333
- Height = 43
- AutoSize = False
- Color = clWhite
- ParentColor = False
- WordWrap = True
- end
- object OK: TButton
- Left = 232
- Top = 372
- Width = 49
- Height = 21
- Caption = 'OK'
- ModalResult = 1
- TabOrder = 6
- end
- object Cancel: TButton
- Left = 292
- Top = 372
- Width = 49
- Height = 21
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 7
- end
- object Undo: TButton
- Left = 8
- Top = 372
- Width = 49
- Height = 21
- Caption = 'Undo'
- Enabled = False
- TabOrder = 4
- OnClick = UndoClick
- end
- object Clear: TButton
- Left = 64
- Top = 372
- Width = 49
- Height = 21
- Caption = 'Clear'
- TabOrder = 5
- OnClick = ClearClick
- end
- object ConstantGB: TGroupBox
- Left = 6
- Top = 6
- Width = 341
- Height = 49
- Caption = 'Constant'
- TabOrder = 0
- object aConstant: TEdit
- Left = 8
- Top = 16
- Width = 197
- Height = 21
- TabOrder = 0
- OnKeyPress = NumericConstantKeyPress
- end
- object ConstantType: TComboBox
- Left = 212
- Top = 16
- Width = 65
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'Numeric'
- 'String')
- TabOrder = 1
- end
- object AddNumeric: TButton
- Left = 282
- Top = 16
- Width = 49
- Height = 21
- Caption = 'Add'
- TabOrder = 2
- OnClick = AddNumericClick
- end
- end
- object DataFieldGB: TGroupBox
- Left = 180
- Top = 60
- Width = 167
- Height = 237
- Caption = 'Data field'
- TabOrder = 2
- object Label1: TLabel
- Left = 12
- Top = 16
- Width = 37
- Height = 13
- Caption = 'Dataset'
- end
- object Label2: TLabel
- Left = 12
- Top = 58
- Width = 22
- Height = 13
- Caption = 'Field'
- end
- object DataSet: TComboBox
- Left = 10
- Top = 34
- Width = 147
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Sorted = True
- TabOrder = 0
- OnChange = DataSetChange
- end
- object AddDatafield: TButton
- Left = 108
- Top = 204
- Width = 49
- Height = 21
- Caption = 'Add'
- TabOrder = 2
- OnClick = AddDatafieldClick
- end
- object DataField: TListBox
- Left = 10
- Top = 74
- Width = 147
- Height = 121
- ItemHeight = 13
- TabOrder = 1
- OnDblClick = AddDatafieldClick
- end
- end
- object FunctionGB: TGroupBox
- Left = 6
- Top = 60
- Width = 169
- Height = 237
- Caption = 'Function'
- TabOrder = 1
- object FunctionName: TLabel
- Left = 12
- Top = 144
- Width = 149
- Height = 23
- AutoSize = False
- Caption = 'FunctionName'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- WordWrap = True
- end
- object FunctionDescript: TLabel
- Left = 12
- Top = 170
- Width = 145
- Height = 31
- AutoSize = False
- Caption = 'Function description'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object Label3: TLabel
- Left = 12
- Top = 18
- Width = 42
- Height = 13
- Caption = 'Category'
- end
- object Label4: TLabel
- Left = 12
- Top = 58
- Width = 89
- Height = 13
- Caption = 'Available functions'
- end
- object AddFunction: TButton
- Left = 108
- Top = 206
- Width = 49
- Height = 21
- Caption = 'Add'
- TabOrder = 2
- OnClick = AddFunctionClick
- end
- object FunctionType: TComboBox
- Left = 10
- Top = 34
- Width = 149
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'All'
- 'Date & time'
- 'Math & trig'
- 'Statistical'
- 'Database'
- 'Logical'
- 'Information'
- 'Other')
- TabOrder = 0
- OnChange = FunctionTypeClick
- end
- object AvailableFunc: TListBox
- Left = 10
- Top = 74
- Width = 147
- Height = 69
- ItemHeight = 13
- Sorted = True
- TabOrder = 1
- OnClick = AvailableFuncClick
- OnDblClick = AddFunctionClick
- end
- end
- object OperatorsGB: TGroupBox
- Left = 358
- Top = 6
- Width = 63
- Height = 389
- Caption = 'Operators'
- TabOrder = 3
- object AddPlus: TButton
- Left = 15
- Top = 21
- Width = 35
- Height = 21
- Caption = '+'
- TabOrder = 0
- OnClick = AddPlusClick
- end
- object AddMinus: TButton
- Left = 15
- Top = 47
- Width = 35
- Height = 21
- Caption = '-'
- TabOrder = 1
- OnClick = AddMinusClick
- end
- object AddMul: TButton
- Left = 15
- Top = 73
- Width = 35
- Height = 21
- Caption = '*'
- TabOrder = 2
- OnClick = AddMulClick
- end
- object AddEqual: TButton
- Left = 15
- Top = 124
- Width = 35
- Height = 21
- Caption = '='
- TabOrder = 4
- OnClick = AddEqualClick
- end
- object AddParentese: TButton
- Left = 15
- Top = 356
- Width = 35
- Height = 21
- Caption = '( )'
- TabOrder = 13
- OnClick = AddParenteseClick
- end
- object AddSmaller: TButton
- Left = 15
- Top = 150
- Width = 35
- Height = 21
- Caption = '<'
- TabOrder = 5
- OnClick = AddSmallerClick
- end
- object AddLarger: TButton
- Left = 15
- Top = 176
- Width = 35
- Height = 21
- Caption = '>'
- TabOrder = 6
- OnClick = AddLargerClick
- end
- object Button1: TButton
- Left = 15
- Top = 253
- Width = 35
- Height = 21
- Caption = '>='
- TabOrder = 8
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 15
- Top = 227
- Width = 35
- Height = 21
- Caption = '<='
- TabOrder = 9
- OnClick = Button2Click
- end
- object AddNotEqual: TButton
- Left = 15
- Top = 201
- Width = 35
- Height = 21
- Caption = '<>'
- TabOrder = 7
- OnClick = AddNotEqualClick
- end
- object AddNot: TButton
- Left = 15
- Top = 279
- Width = 35
- Height = 21
- Caption = 'Not'
- TabOrder = 10
- OnClick = AddNotClick
- end
- object AddAnd: TButton
- Left = 15
- Top = 304
- Width = 35
- Height = 21
- Caption = 'And'
- TabOrder = 11
- OnClick = AddAndClick
- end
- object AddOr: TButton
- Left = 15
- Top = 330
- Width = 35
- Height = 21
- Caption = 'Or'
- TabOrder = 12
- OnClick = AddOrClick
- end
- object AddDiv: TButton
- Left = 15
- Top = 98
- Width = 35
- Height = 21
- Caption = '/'
- TabOrder = 3
- OnClick = AddDivClick
- end
- end
- end
-