object frmSrwEdit: TfrmSrwEdit Left = 165 Top = 135 HelpContext = 1020 BorderStyle = bsDialog Caption = 'Edit Alias.Field' ClientHeight = 258 ClientWidth = 520 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] KeyPreview = True PixelsPerInch = 96 Position = poScreenCenter OnActivate = FormActivate OnKeyDown = FormKeyDown TextHeight = 16 object cmdLeft: TBitBtn Left = 424 Top = 104 Width = 41 Height = 25 Hint = 'Move to previous field' Font.Color = clNavy Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = cmdLeftClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333FF3333333333333003333333333333F77F33333333333009033 333333333F7737F333333333009990333333333F773337FFFFFF330099999000 00003F773333377777770099999999999990773FF33333FFFFF7330099999000 000033773FF33777777733330099903333333333773FF7F33333333333009033 33333333337737F3333333333333003333333333333377333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 Style = bsNew end object cmdRight: TBitBtn Left = 472 Top = 104 Width = 41 Height = 25 Hint = 'Move to next field' Font.Color = clNavy Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = cmdRightClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333FF3333333333333003333 3333333333773FF3333333333309003333333333337F773FF333333333099900 33333FFFFF7F33773FF30000000999990033777777733333773F099999999999 99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900 33333333337F3F77333333333309003333333333337F77333333333333003333 3333333333773333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 Style = bsNew end object cmdPrev: TBitBtn Left = 472 Top = 136 Width = 41 Height = 25 Hint = 'Move to previous filter' Font.Color = clNavy Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = cmdPrevClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333 3333333333777F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000 3333333777737777F333333099999990333333373F3333373333333309999903 333333337F33337F33333333099999033333333373F333733333333330999033 3333333337F337F3333333333099903333333333373F37333333333333090333 33333333337F7F33333333333309033333333333337373333333333333303333 333333333337F3333333333333303333333333333337333333330000} NumGlyphs = 2 Style = bsNew end object cmdNext: TBitBtn Left = 424 Top = 136 Width = 41 Height = 25 Hint = 'Move to next Filter' Font.Color = clNavy Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 7 OnClick = cmdNextClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333 333333333337F33333333333333033333333333333373F333333333333090333 33333333337F7F33333333333309033333333333337373F33333333330999033 3333333337F337F33333333330999033333333333733373F3333333309999903 333333337F33337F33333333099999033333333373333373F333333099999990 33333337FFFF3FF7F33333300009000033333337777F77773333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F333333333333000333333333333377733333330000} NumGlyphs = 2 Style = bsNew end object cmdClear: TBitBtn Left = 424 Top = 72 Width = 89 Height = 25 Hint = 'Erase values' Caption = 'Clea&r' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = cmdClearClick NumGlyphs = 2 Style = bsNew end object cmdOk: TBitBtn Left = 424 Top = 8 Width = 89 Height = 25 Caption = '&OK' Default = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = cmdOkClick NumGlyphs = 2 Style = bsNew end object cmdCancel: TBitBtn Left = 424 Top = 40 Width = 89 Height = 25 Cancel = True Caption = '&Cancel' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 2 OnClick = cmdCancelClick NumGlyphs = 2 Style = bsNew end object cmdHelp: TBitBtn Left = 424 Top = 168 Width = 89 Height = 25 Caption = '&Help' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 8 OnClick = cmdHelpClick NumGlyphs = 2 Style = bsNew end object tabMain: TTabbedNotebook Left = 0 Top = 0 Width = 417 Height = 257 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] TabFont.Color = clBtnText TabFont.Height = -11 TabFont.Name = 'MS Sans Serif' TabFont.Style = [] TabOrder = 0 OnChange = tabMainChange object TTabPage Left = 5 Top = 26 Caption = 'Field &Properties' object labHeading: TLabel Left = 16 Top = 16 Width = 42 Height = 13 Caption = '&Header' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object labType: TLabel Left = 16 Top = 41 Width = 29 Height = 13 Caption = '&Type' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object labSort: TLabel Left = 16 Top = 66 Width = 32 Height = 13 Caption = '&Show' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label1: TLabel Left = 16 Top = 91 Width = 24 Height = 13 Caption = '&Sort' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 16 Top = 116 Width = 39 Height = 13 Caption = '&Format' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object labWidth: TLabel Left = 14 Top = 141 Width = 34 Height = 13 Caption = '&Width' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 16 Top = 166 Width = 29 Height = 13 Caption = '&Align' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 16 Top = 191 Width = 30 Height = 13 Caption = '&Total' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end object txtHeading: TEdit Left = 64 Top = 16 Width = 129 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object txtType: TEdit Left = 64 Top = 41 Width = 129 Height = 21 Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object cmbShow: TComboBox Left = 64 Top = 66 Width = 129 Height = 21 Style = csDropDownList Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'Show' 'Group' 'Hide' 'Sum' 'Count' 'Average' 'Minimum' 'Maximum') ParentFont = False TabOrder = 2 end object cmbSort: TComboBox Left = 64 Top = 91 Width = 129 Height = 21 Style = csDropDownList Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'None' 'A-Z' 'Z-A') ParentFont = False TabOrder = 3 end object txtFormat: TEdit Left = 64 Top = 116 Width = 129 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 end object txtWidth: TEdit Left = 64 Top = 141 Width = 113 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 end object spnWidth: TSpinButton Left = 176 Top = 141 Width = 17 Height = 20 DownGlyph.Data = { 7E040000424D7E04000000000000360400002800000009000000060000000100 0800000000004800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA A600000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303 0303030000000303030300030303030000000303030000000303030000000303 0000000000030300000003000000000000000300000003030303030303030300 0000} TabOrder = 6 UpGlyph.Data = { 7E040000424D7E04000000000000360400002800000009000000060000000100 0800000000004800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA A600000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303 0303030000000300000000000000030000000303000000000003030000000303 0300000003030300000003030303000303030300000003030303030303030300 0000} OnDownClick = spnWidthDownClick OnUpClick = spnWidthUpClick end object cmbAlign: TComboBox Left = 64 Top = 166 Width = 129 Height = 21 Style = csDropDownList Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'Left' 'Center' 'Right') ParentFont = False TabOrder = 7 end object cmbTotal: TComboBox Left = 64 Top = 191 Width = 129 Height = 21 Style = csDropDownList Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'None' 'Field') ParentFont = False TabOrder = 8 Visible = False end object grpValues: TGroupBox Left = 208 Top = 10 Width = 185 Height = 202 Caption = 'Filter 1' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 9 object labOper1: TLabel Left = 144 Top = 53 Width = 25 Height = 13 Caption = 'Or' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object labOper2: TLabel Left = 144 Top = 78 Width = 25 Height = 13 Caption = 'Or' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object labOper3: TLabel Left = 144 Top = 103 Width = 25 Height = 13 Caption = 'Or' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object labOper4: TLabel Left = 144 Top = 128 Width = 25 Height = 13 Caption = 'Or' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object labHint: TLabel Left = 16 Top = 176 Width = 161 Height = 17 AutoSize = False Caption = 'Hint' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object cmbCommands: TComboBox Left = 16 Top = 24 Width = 153 Height = 21 Style = csDropDownList Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 13 Items.Strings = ( 'Is Equal To' 'Is Between' 'Is Greater Than' 'Is Greater or Equal To' 'Is Less Than' 'Is Less or Equal To' 'Contains' 'Is Not Equal To' 'Is Not Between' 'Does Not Contain') ParentFont = False TabOrder = 0 OnClick = cmbCommandsClick end object txtValue1: TEdit Left = 16 Top = 49 Width = 121 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object txtValue2: TEdit Left = 16 Top = 74 Width = 121 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end object txtValue3: TEdit Left = 16 Top = 99 Width = 121 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object txtValue4: TEdit Left = 16 Top = 124 Width = 121 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 end object txtValue5: TEdit Left = 16 Top = 149 Width = 121 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 end end end object TTabPage Left = 5 Top = 26 Caption = 'Custom &Expression' object labExpr1: TLabel Left = 16 Top = 16 Width = 105 Height = 17 AutoSize = False Caption = '&Tables/Fields' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 232 Top = 16 Width = 129 Height = 17 AutoSize = False Caption = '&Operators/Functions' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object labExpr2: TLabel Left = 16 Top = 174 Width = 153 Height = 17 AutoSize = False Caption = '&Custom Expression' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object outTables: TOutline Left = 18 Top = 32 Width = 199 Height = 129 Options = [ooDrawTreeRoot, ooDrawFocusRect, ooStretchBitmaps] ItemHeight = 13 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentCtl3D = False Ctl3D = True TabOrder = 0 OnDblClick = outTablesDblClick ItemSeparator = ':' ParentFont = False ParentShowHint = False ShowHint = False ScrollBars = ssVertical end object lstFunctions: TListBox Left = 224 Top = 32 Width = 169 Height = 129 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( '+' '-' '*' '/' '( ' ')' '||' 'COUNT(Table.Field)' 'SUM(Table.Field)' 'AVG(Table.Field)' 'MIN(Table.Field)' 'MAX(Table.Field)' 'UPPER(Table.Field)' 'LOWER(Table.Field)' 'SUBSTRING(Table.Field FROM start FOR length)' 'TRIM(LEADING " " FROM Table.Field)' 'TRIM(TRAILING " " FROM Table.Field)' 'TRIM(BOTH " " FROM Table.Field)' 'EXTRACT(YEAR FROM Table.DateTime)' 'EXTRACT(MONTH FROM Table.DateTime)' 'EXTRACT(DAY FROM Table.DateTime)' 'EXTRACT(HOUR FROM Table.DateTime)' 'EXTRACT(MINUTE FROM Table.DateTime)' 'EXTRACT(SECOND FROM Table.DateTime)') ParentFont = False TabOrder = 1 OnDblClick = lstFunctionsDblClick end object txtExpr: TEdit Left = 16 Top = 190 Width = 377 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end end end end