object Form1: TForm1 Left = 420 Height = 619 Top = 241 Width = 854 Caption = 'SQL Parser' ClientHeight = 619 ClientWidth = 854 DefaultMonitor = dmPrimary Position = poScreenCenter LCLVersion = '1.8.0.4' object Label1: TLabel Left = 14 Height = 14 Top = 24 Width = 74 Caption = 'Original SQL' ParentColor = False end object OriginalSQL: TMemo Left = 16 Height = 160 Top = 43 Width = 400 ScrollBars = ssAutoVertical TabOrder = 0 end object Label2: TLabel Left = 16 Height = 14 Top = 208 Width = 126 Caption = 'Add to Where Clause' ParentColor = False end object WhereCondition: TEdit Left = 17 Height = 24 Top = 224 Width = 400 TabOrder = 1 end object WhereConditionType: TRadioGroup Left = 17 Height = 56 Top = 264 Width = 399 AutoFill = True ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 54 ClientWidth = 397 ItemIndex = 0 Items.Strings = ( 'AND with Existing Condition' 'OR with Existing Condition' ) TabOrder = 2 end object Button1: TButton Left = 262 Height = 30 Top = 568 Width = 152 Caption = 'Generate Updated SQL' OnClick = Button1Click TabOrder = 3 end object Label3: TLabel Left = 440 Height = 14 Top = 24 Width = 91 Caption = 'Generated SQL' ParentColor = False end object GeneratedSQL: TMemo Left = 440 Height = 557 Top = 43 Width = 400 Anchors = [akTop, akLeft, akRight, akBottom] ScrollBars = ssAutoVertical TabOrder = 4 end object WhereAllUnions: TCheckBox Left = 24 Height = 22 Top = 328 Width = 257 Caption = 'Apply to each Union in SQL Statement' TabOrder = 5 end object Label4: TLabel Left = 14 Height = 14 Top = 360 Width = 129 Caption = 'Add to Having Clause' ParentColor = False end object HavingCondition: TEdit Left = 15 Height = 24 Top = 376 Width = 400 TabOrder = 6 end object HavingConditionType: TRadioGroup Left = 15 Height = 56 Top = 416 Width = 399 AutoFill = True ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 54 ClientWidth = 397 ItemIndex = 0 Items.Strings = ( 'AND with Existing Condition' 'OR with Existing Condition' ) TabOrder = 7 end object HavingAllUnions: TCheckBox Left = 22 Height = 22 Top = 480 Width = 257 Caption = 'Apply to each Union in SQL Statement' TabOrder = 8 end object Label5: TLabel Left = 15 Height = 14 Top = 520 Width = 178 Caption = 'Replacement Order By Clause' ParentColor = False end object OrderBy: TEdit Left = 16 Height = 24 Top = 536 Width = 398 TabOrder = 9 end end