1inherited fClarifyReturns: TfClarifyReturns 2 Height = 284 3 Width = 453 4 ClientHeight = 284 5 ClientWidth = 453 6 OnResize = FrameResize 7 TabOrder = 0 8 DesignLeft = 819 9 DesignTop = 395 10 object rgReturnChars: TRadioGroup[0] 11 AnchorSideLeft.Control = Owner 12 AnchorSideTop.Control = gbRemoveReturns 13 AnchorSideTop.Side = asrBottom 14 AnchorSideRight.Control = Owner 15 AnchorSideRight.Side = asrBottom 16 Left = 6 17 Height = 81 18 Top = 151 19 Width = 441 20 Anchors = [akTop, akLeft, akRight] 21 AutoFill = True 22 AutoSize = True 23 BorderSpacing.Around = 6 24 Caption = 'Return chars' 25 ChildSizing.LeftRightSpacing = 6 26 ChildSizing.TopBottomSpacing = 6 27 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 28 ChildSizing.EnlargeVertical = crsHomogenousChildResize 29 ChildSizing.ShrinkHorizontal = crsScaleChilds 30 ChildSizing.ShrinkVertical = crsScaleChilds 31 ChildSizing.Layout = cclLeftToRightThenTopToBottom 32 ChildSizing.ControlsPerLine = 1 33 ClientHeight = 63 34 ClientWidth = 437 35 Items.Strings = ( 36 'Leave as is' 37 'Convert to Carriage Return (UNIX)' 38 'Convert to Carriage Return + Linefeed (DOS/Windows)' 39 ) 40 TabOrder = 2 41 end 42 object gbRemoveReturns: TGroupBox[1] 43 AnchorSideLeft.Control = Owner 44 AnchorSideTop.Control = Owner 45 AnchorSideRight.Control = gbInsert 46 Left = 6 47 Height = 139 48 Hint = 'bgRemove' 49 Top = 6 50 Width = 204 51 Anchors = [akTop, akLeft, akRight] 52 AutoSize = True 53 BorderSpacing.Around = 6 54 Caption = 'Remove returns' 55 ClientHeight = 121 56 ClientWidth = 200 57 TabOrder = 0 58 object cbRemoveProcDefReturns: TCheckBox 59 AnchorSideLeft.Control = gbRemoveReturns 60 AnchorSideTop.Control = cbRemovePropertyReturns 61 AnchorSideTop.Side = asrBottom 62 Left = 6 63 Height = 17 64 Top = 52 65 Width = 132 66 BorderSpacing.Around = 6 67 Caption = 'In procedure definitions' 68 TabOrder = 2 69 end 70 object cbRemoveVarReturns: TCheckBox 71 AnchorSideLeft.Control = gbRemoveReturns 72 AnchorSideTop.Control = cbRemoveProcDefReturns 73 AnchorSideTop.Side = asrBottom 74 Left = 6 75 Height = 17 76 Top = 75 77 Width = 130 78 BorderSpacing.Around = 6 79 Caption = 'In variable declarations' 80 TabOrder = 3 81 end 82 object cbRemoveExprReturns: TCheckBox 83 AnchorSideLeft.Control = gbRemoveReturns 84 AnchorSideTop.Control = cbRemoveVarReturns 85 AnchorSideTop.Side = asrBottom 86 Left = 6 87 Height = 17 88 Top = 98 89 Width = 88 90 BorderSpacing.Around = 6 91 Caption = 'In expressions' 92 TabOrder = 4 93 end 94 object cbRemovePropertyReturns: TCheckBox 95 AnchorSideLeft.Control = gbRemoveReturns 96 AnchorSideTop.Control = cbRemoveReturns 97 AnchorSideTop.Side = asrBottom 98 Left = 6 99 Height = 17 100 Top = 29 101 Width = 80 102 BorderSpacing.Around = 6 103 Caption = 'In properties' 104 TabOrder = 1 105 end 106 object cbRemoveReturns: TCheckBox 107 AnchorSideLeft.Control = gbRemoveReturns 108 AnchorSideTop.Control = gbRemoveReturns 109 Left = 6 110 Height = 17 111 Top = 6 112 Width = 109 113 BorderSpacing.Around = 6 114 Caption = 'In misc. bad places' 115 TabOrder = 0 116 end 117 end 118 object gbInsert: TGroupBox[2] 119 AnchorSideLeft.Side = asrBottom 120 AnchorSideTop.Control = Owner 121 AnchorSideRight.Control = Owner 122 AnchorSideRight.Side = asrBottom 123 AnchorSideBottom.Control = gbRemoveReturns 124 AnchorSideBottom.Side = asrBottom 125 Left = 216 126 Height = 139 127 Top = 6 128 Width = 231 129 Anchors = [akTop, akRight, akBottom] 130 BorderSpacing.Left = 6 131 BorderSpacing.Top = 6 132 BorderSpacing.Right = 6 133 Caption = 'Insert returns' 134 ClientHeight = 121 135 ClientWidth = 227 136 TabOrder = 1 137 object cbUsesClauseOnePerLine: TCheckBox 138 AnchorSideLeft.Control = gbInsert 139 AnchorSideTop.Control = cbInsertReturns 140 AnchorSideTop.Side = asrBottom 141 Left = 6 142 Height = 17 143 Top = 29 144 Width = 157 145 BorderSpacing.Around = 6 146 Caption = 'One uses clause item per line' 147 TabOrder = 1 148 end 149 object cbInsertReturns: TCheckBox 150 AnchorSideLeft.Control = gbInsert 151 AnchorSideTop.Control = gbInsert 152 Left = 6 153 Height = 17 154 Top = 6 155 Width = 115 156 BorderSpacing.Around = 6 157 Caption = 'In misc. good places' 158 TabOrder = 0 159 end 160 object cbBreakAfterUses: TCheckBox 161 AnchorSideLeft.Control = gbInsert 162 AnchorSideTop.Control = cbUsesClauseOnePerLine 163 AnchorSideTop.Side = asrBottom 164 Left = 6 165 Height = 17 166 Top = 52 167 Width = 68 168 BorderSpacing.Around = 6 169 Caption = 'After uses' 170 TabOrder = 2 171 end 172 end 173end 174