1object PathEditorDialog: TPathEditorDialog 2 Left = 420 3 Height = 450 4 Top = 156 5 Width = 570 6 AutoSize = True 7 Caption = 'PathEditorDialog' 8 ClientHeight = 450 9 ClientWidth = 570 10 Constraints.MinHeight = 400 11 Constraints.MinWidth = 500 12 OnCreate = FormCreate 13 OnDestroy = FormDestroy 14 OnShow = FormShow 15 Position = poScreenCenter 16 LCLVersion = '1.9.0.0' 17 object PathGroupBox: TGroupBox 18 AnchorSideLeft.Control = ButtonPanel1 19 AnchorSideRight.Control = ButtonPanel1 20 AnchorSideRight.Side = asrBottom 21 AnchorSideBottom.Control = AddTemplateButton 22 Left = 6 23 Height = 375 24 Top = 6 25 Width = 558 26 Anchors = [akTop, akLeft, akRight, akBottom] 27 BorderSpacing.Bottom = 6 28 Caption = 'PathGroupBox' 29 ClientHeight = 355 30 ClientWidth = 556 31 Constraints.MinHeight = 194 32 Constraints.MinWidth = 488 33 TabOrder = 0 34 object DeleteButton: TBitBtn 35 AnchorSideLeft.Control = AddButton 36 AnchorSideLeft.Side = asrBottom 37 AnchorSideBottom.Control = PathGroupBox 38 AnchorSideBottom.Side = asrBottom 39 Left = 190 40 Height = 25 41 Top = 324 42 Width = 91 43 Anchors = [akLeft, akBottom] 44 AutoSize = True 45 BorderSpacing.Around = 6 46 Caption = 'DeleteButton' 47 Enabled = False 48 OnClick = DeleteButtonClick 49 ParentShowHint = False 50 ShowHint = True 51 TabOrder = 4 52 end 53 object PathListBox: TListBox 54 AnchorSideLeft.Control = PathGroupBox 55 AnchorSideTop.Control = PathGroupBox 56 AnchorSideRight.Control = MoveUpButton 57 AnchorSideBottom.Control = DirectoryEdit 58 Left = 6 59 Height = 281 60 Top = 6 61 Width = 513 62 Anchors = [akTop, akLeft, akRight, akBottom] 63 BorderSpacing.Left = 6 64 BorderSpacing.Top = 6 65 BorderSpacing.Right = 6 66 BorderSpacing.Bottom = 6 67 ItemHeight = 0 68 OnDrawItem = PathListBoxDrawItem 69 OnKeyDown = PathListBoxKeyDown 70 OnSelectionChange = PathListBoxSelectionChange 71 PopupMenu = PopupMenu1 72 ScrollWidth = 511 73 Style = lbOwnerDrawFixed 74 TabOrder = 0 75 TopIndex = -1 76 end 77 object ReplaceButton: TBitBtn 78 AnchorSideLeft.Control = PathGroupBox 79 AnchorSideBottom.Control = PathGroupBox 80 AnchorSideBottom.Side = asrBottom 81 Left = 6 82 Height = 25 83 Top = 324 84 Width = 98 85 Anchors = [akLeft, akBottom] 86 AutoSize = True 87 BorderSpacing.Around = 6 88 Caption = 'ReplaceButton' 89 Enabled = False 90 OnClick = ReplaceButtonClick 91 ParentShowHint = False 92 ShowHint = True 93 TabOrder = 2 94 end 95 object AddButton: TBitBtn 96 AnchorSideLeft.Control = ReplaceButton 97 AnchorSideLeft.Side = asrBottom 98 AnchorSideBottom.Control = PathGroupBox 99 AnchorSideBottom.Side = asrBottom 100 Left = 110 101 Height = 25 102 Top = 324 103 Width = 74 104 Anchors = [akLeft, akBottom] 105 AutoSize = True 106 BorderSpacing.Around = 6 107 Caption = 'AddButton' 108 Enabled = False 109 OnClick = AddButtonClick 110 ParentShowHint = False 111 ShowHint = True 112 TabOrder = 3 113 end 114 object DeleteInvalidPathsButton: TBitBtn 115 AnchorSideLeft.Control = DeleteButton 116 AnchorSideLeft.Side = asrBottom 117 AnchorSideBottom.Control = PathGroupBox 118 AnchorSideBottom.Side = asrBottom 119 Left = 287 120 Height = 25 121 Top = 324 122 Width = 168 123 Anchors = [akLeft, akBottom] 124 AutoSize = True 125 BorderSpacing.Around = 6 126 Caption = 'DeleteInvalidPathsButton' 127 Enabled = False 128 OnClick = DeleteInvalidPathsButtonClick 129 ParentShowHint = False 130 ShowHint = True 131 TabOrder = 5 132 end 133 object DirectoryEdit: TShortPathEdit 134 AnchorSideLeft.Control = PathListBox 135 AnchorSideRight.Control = PathListBox 136 AnchorSideRight.Side = asrBottom 137 AnchorSideBottom.Control = ReplaceButton 138 Left = 6 139 Height = 25 140 Top = 293 141 Width = 513 142 OnAcceptDirectory = DirectoryEditAcceptDirectory 143 ShowHidden = False 144 ButtonWidth = 25 145 NumGlyphs = 1 146 Anchors = [akLeft, akRight, akBottom] 147 MaxLength = 0 148 TabOrder = 1 149 OnChange = DirectoryEditChange 150 end 151 object MoveUpButton: TSpeedButton 152 AnchorSideLeft.Control = PathGroupBox 153 AnchorSideRight.Control = PathGroupBox 154 AnchorSideRight.Side = asrBottom 155 AnchorSideBottom.Control = PathGroupBox 156 AnchorSideBottom.Side = asrBottom 157 Left = 525 158 Height = 25 159 Top = 87 160 Width = 25 161 Anchors = [akRight] 162 BorderSpacing.Around = 6 163 OnClick = MoveUpButtonClick 164 ShowHint = True 165 ParentShowHint = False 166 end 167 object MoveDownButton: TSpeedButton 168 AnchorSideLeft.Side = asrCenter 169 AnchorSideTop.Control = MoveUpButton 170 AnchorSideTop.Side = asrBottom 171 AnchorSideRight.Control = MoveUpButton 172 AnchorSideRight.Side = asrBottom 173 AnchorSideBottom.Side = asrBottom 174 Left = 525 175 Height = 25 176 Top = 121 177 Width = 25 178 Anchors = [akTop, akRight] 179 BorderSpacing.Top = 9 180 OnClick = MoveDownButtonClick 181 ShowHint = True 182 ParentShowHint = False 183 end 184 end 185 object ButtonPanel1: TButtonPanel 186 Left = 6 187 Height = 26 188 Top = 418 189 Width = 558 190 OKButton.Name = 'OKButton' 191 OKButton.DefaultCaption = True 192 HelpButton.Name = 'HelpButton' 193 HelpButton.DefaultCaption = True 194 CloseButton.Name = 'CloseButton' 195 CloseButton.DefaultCaption = True 196 CancelButton.Name = 'CancelButton' 197 CancelButton.DefaultCaption = True 198 TabOrder = 1 199 ShowButtons = [pbOK, pbCancel] 200 ShowBevel = False 201 end 202 object AddTemplateButton: TBitBtn 203 AnchorSideBottom.Control = ButtonPanel1 204 Left = 16 205 Height = 25 206 Top = 387 207 Width = 133 208 Anchors = [akLeft, akBottom] 209 AutoSize = True 210 BorderSpacing.Around = 6 211 Caption = 'AddTemplateButton' 212 OnClick = AddTemplateButtonClick 213 ParentShowHint = False 214 ShowHint = True 215 TabOrder = 2 216 end 217 object BrowseDialog: TSelectDirectoryDialog 218 Options = [ofFileMustExist, ofEnableSizing, ofViewDetail] 219 left = 350 220 top = 50 221 end 222 object PopupMenu1: TPopupMenu 223 left = 130 224 top = 100 225 object CopyMenuItem: TMenuItem 226 Caption = 'Copy All' 227 OnClick = CopyMenuItemClick 228 end 229 object PasteMenuItem: TMenuItem 230 Caption = 'Paste' 231 OnClick = PasteMenuItemClick 232 end 233 object SeparMenuItem: TMenuItem 234 Caption = '-' 235 end 236 object ExportMenuItem: TMenuItem 237 Caption = 'Export to file' 238 OnClick = ExportMenuItemClick 239 end 240 object ImportMenuItem: TMenuItem 241 Caption = 'Import from file' 242 OnClick = ImportMenuItemClick 243 end 244 end 245 object OpenDialog1: TOpenDialog 246 left = 240 247 top = 100 248 end 249 object SaveDialog1: TSaveDialog 250 left = 350 251 top = 100 252 end 253end 254