1object ImageListEditorDlg: TImageListEditorDlg 2 Left = 453 3 Height = 484 4 Top = 144 5 Width = 617 6 BorderIcons = [biSystemMenu, biHelp] 7 Caption = 'ImagesList Editor' 8 ClientHeight = 484 9 ClientWidth = 617 10 Constraints.MinHeight = 394 11 Constraints.MinWidth = 560 12 OnClose = FormClose 13 OnCreate = FormCreate 14 OnResize = FormResize 15 OnShow = FormShow 16 Position = poScreenCenter 17 LCLVersion = '2.1.0.0' 18 object GroupBoxR: TGroupBox 19 AnchorSideLeft.Control = GroupBoxL 20 AnchorSideLeft.Side = asrBottom 21 AnchorSideTop.Control = Owner 22 AnchorSideRight.Control = Owner 23 AnchorSideRight.Side = asrBottom 24 AnchorSideBottom.Control = BtnPanel 25 Left = 372 26 Height = 440 27 Top = 6 28 Width = 239 29 Anchors = [akTop, akLeft, akRight, akBottom] 30 BorderSpacing.Around = 6 31 Caption = 'Selected Image' 32 ClientHeight = 420 33 ClientWidth = 235 34 TabOrder = 1 35 object LabelTransparent: TLabel 36 AnchorSideLeft.Control = RadioGroup 37 AnchorSideLeft.Side = asrBottom 38 AnchorSideTop.Control = RadioGroup 39 Left = 93 40 Height = 24 41 Top = 304 42 Width = 97 43 Anchors = [akTop, akLeft, akBottom] 44 BorderSpacing.Left = 6 45 Caption = 'Transparent Color:' 46 ParentColor = False 47 end 48 object Preview: TScrollBox 49 AnchorSideLeft.Control = GroupBoxR 50 AnchorSideTop.Control = GroupBoxR 51 AnchorSideRight.Control = GroupBoxR 52 AnchorSideRight.Side = asrBottom 53 AnchorSideBottom.Control = RadioGroup 54 Left = 6 55 Height = 292 56 Top = 6 57 Width = 223 58 HorzScrollBar.Increment = 1 59 HorzScrollBar.Page = 1 60 HorzScrollBar.Smooth = True 61 HorzScrollBar.Tracking = True 62 VertScrollBar.Increment = 1 63 VertScrollBar.Page = 1 64 VertScrollBar.Smooth = True 65 VertScrollBar.Tracking = True 66 Anchors = [akTop, akLeft, akRight, akBottom] 67 BorderSpacing.Around = 6 68 Color = clDefault 69 ParentColor = False 70 TabOrder = 0 71 end 72 object RadioGroup: TRadioGroup 73 AnchorSideLeft.Control = GroupBoxR 74 AnchorSideBottom.Control = GroupBoxR 75 AnchorSideBottom.Side = asrBottom 76 Left = 6 77 Height = 110 78 Top = 304 79 Width = 81 80 Anchors = [akLeft, akBottom] 81 AutoFill = True 82 AutoSize = True 83 BorderSpacing.Around = 6 84 Caption = 'Adjustment' 85 ChildSizing.LeftRightSpacing = 6 86 ChildSizing.TopBottomSpacing = 4 87 ChildSizing.VerticalSpacing = 2 88 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 89 ChildSizing.EnlargeVertical = crsHomogenousSpaceResize 90 ChildSizing.ShrinkHorizontal = crsScaleChilds 91 ChildSizing.ShrinkVertical = crsScaleChilds 92 ChildSizing.Layout = cclLeftToRightThenTopToBottom 93 ChildSizing.ControlsPerLine = 1 94 ClientHeight = 90 95 ClientWidth = 77 96 Enabled = False 97 ItemIndex = 0 98 Items.Strings = ( 99 'None' 100 'Stretch' 101 'Crop' 102 'Center' 103 ) 104 OnClick = ColorBoxTransparentClick 105 TabOrder = 1 106 end 107 object ColorBoxTransparent: TColorBox 108 AnchorSideLeft.Control = LabelTransparent 109 AnchorSideTop.Control = LabelTransparent 110 AnchorSideTop.Side = asrBottom 111 Left = 93 112 Height = 22 113 Top = 332 114 Width = 96 115 Selected = clFuchsia 116 Style = [cbStandardColors, cbExtendedColors, cbIncludeDefault, cbCustomColor, cbPrettyNames] 117 BorderSpacing.Top = 4 118 Enabled = False 119 ItemHeight = 16 120 OnChange = ColorBoxTransparentClick 121 TabOrder = 2 122 end 123 end 124 object GroupBoxL: TGroupBox 125 AnchorSideLeft.Control = Owner 126 AnchorSideTop.Control = Owner 127 AnchorSideBottom.Control = BtnPanel 128 Left = 6 129 Height = 440 130 Top = 6 131 Width = 360 132 Anchors = [akTop, akLeft, akBottom] 133 AutoSize = True 134 BorderSpacing.Around = 6 135 Caption = 'Images' 136 ClientHeight = 420 137 ClientWidth = 356 138 TabOrder = 0 139 object BtnAdd: TButton 140 Tag = 1 141 AnchorSideLeft.Control = ImageListBox 142 AnchorSideLeft.Side = asrBottom 143 AnchorSideTop.Control = ImageListBox 144 AnchorSideRight.Side = asrBottom 145 Left = 198 146 Height = 25 147 Top = 6 148 Width = 57 149 AutoSize = True 150 BorderSpacing.Left = 6 151 BorderSpacing.Right = 6 152 Caption = 'Add...' 153 OnClick = BtnAddClick 154 TabOrder = 0 155 end 156 object BtnClear: TButton 157 AnchorSideLeft.Control = ImageListBox 158 AnchorSideLeft.Side = asrBottom 159 AnchorSideTop.Control = BtnDelete 160 AnchorSideTop.Side = asrBottom 161 AnchorSideRight.Side = asrBottom 162 Left = 198 163 Height = 25 164 Top = 180 165 Width = 53 166 AutoSize = True 167 BorderSpacing.Left = 6 168 BorderSpacing.Top = 4 169 BorderSpacing.Right = 6 170 Caption = 'Clear' 171 OnClick = BtnClearClick 172 TabOrder = 6 173 end 174 object BtnDelete: TButton 175 AnchorSideLeft.Control = ImageListBox 176 AnchorSideLeft.Side = asrBottom 177 AnchorSideTop.Control = BtnReplaceAll 178 AnchorSideTop.Side = asrBottom 179 AnchorSideRight.Side = asrBottom 180 Left = 198 181 Height = 25 182 Top = 151 183 Width = 59 184 AutoSize = True 185 BorderSpacing.Left = 6 186 BorderSpacing.Top = 4 187 BorderSpacing.Right = 6 188 Caption = '&Delete' 189 OnClick = BtnDeleteClick 190 TabOrder = 5 191 end 192 object BtnMoveUp: TButton 193 Tag = -1 194 AnchorSideLeft.Control = ImageListBox 195 AnchorSideLeft.Side = asrBottom 196 AnchorSideTop.Control = BtnClear 197 AnchorSideTop.Side = asrBottom 198 AnchorSideRight.Side = asrBottom 199 Left = 198 200 Height = 25 201 Top = 209 202 Width = 74 203 AutoSize = True 204 BorderSpacing.Left = 6 205 BorderSpacing.Top = 4 206 BorderSpacing.Right = 6 207 Caption = 'Move Up' 208 OnClick = BtnMoveUpDownClick 209 TabOrder = 7 210 end 211 object BtnMoveDown: TButton 212 Tag = 1 213 AnchorSideLeft.Control = ImageListBox 214 AnchorSideLeft.Side = asrBottom 215 AnchorSideTop.Control = BtnMoveUp 216 AnchorSideTop.Side = asrBottom 217 AnchorSideRight.Side = asrBottom 218 Left = 198 219 Height = 25 220 Top = 238 221 Width = 90 222 AutoSize = True 223 BorderSpacing.Left = 6 224 BorderSpacing.Top = 4 225 BorderSpacing.Right = 6 226 Caption = 'Move Down' 227 OnClick = BtnMoveUpDownClick 228 TabOrder = 8 229 end 230 object BtnSave: TButton 231 AnchorSideLeft.Control = ImageListBox 232 AnchorSideLeft.Side = asrBottom 233 AnchorSideTop.Control = BtnMoveDown 234 AnchorSideTop.Side = asrBottom 235 AnchorSideRight.Side = asrBottom 236 Left = 198 237 Height = 25 238 Top = 267 239 Width = 59 240 AutoSize = True 241 BorderSpacing.Left = 6 242 BorderSpacing.Top = 4 243 BorderSpacing.Right = 6 244 Caption = 'Save...' 245 OnClick = BtnSaveClick 246 TabOrder = 9 247 end 248 object btnSaveAll: TButton 249 AnchorSideLeft.Control = ImageListBox 250 AnchorSideLeft.Side = asrBottom 251 AnchorSideTop.Control = BtnSave 252 AnchorSideTop.Side = asrBottom 253 AnchorSideRight.Side = asrBottom 254 Left = 198 255 Height = 25 256 Top = 296 257 Width = 76 258 AutoSize = True 259 BorderSpacing.Left = 6 260 BorderSpacing.Top = 4 261 BorderSpacing.Right = 6 262 Caption = 'Save All...' 263 OnClick = btnSaveAllClick 264 TabOrder = 10 265 end 266 object BtnReplace: TButton 267 AnchorSideLeft.Control = ImageListBox 268 AnchorSideLeft.Side = asrBottom 269 AnchorSideTop.Control = BtnAddSliced 270 AnchorSideTop.Side = asrBottom 271 AnchorSideRight.Side = asrBottom 272 Left = 198 273 Height = 25 274 Top = 93 275 Width = 76 276 AutoSize = True 277 BorderSpacing.Left = 6 278 BorderSpacing.Top = 4 279 BorderSpacing.Right = 6 280 Caption = '&Replace...' 281 OnClick = BtnReplaceClick 282 TabOrder = 3 283 end 284 object ImageListBox: TListBox 285 AnchorSideLeft.Control = GroupBoxL 286 AnchorSideTop.Control = GroupBoxL 287 AnchorSideBottom.Control = GroupBoxL 288 AnchorSideBottom.Side = asrBottom 289 Left = 6 290 Height = 408 291 Top = 6 292 Width = 186 293 Anchors = [akTop, akLeft, akBottom] 294 BorderSpacing.Around = 6 295 ItemHeight = 0 296 OnDrawItem = ImageListBoxDrawItem 297 OnSelectionChange = ImageListBoxSelectionChange 298 Options = [] 299 Style = lbOwnerDrawFixed 300 TabOrder = 11 301 end 302 object btnAddNewResolution: TButton 303 AnchorSideLeft.Control = ImageListBox 304 AnchorSideLeft.Side = asrBottom 305 AnchorSideTop.Control = btnSaveAll 306 AnchorSideTop.Side = asrBottom 307 AnchorSideRight.Side = asrBottom 308 Left = 198 309 Height = 25 310 Top = 325 311 Width = 138 312 AutoSize = True 313 BorderSpacing.Left = 6 314 BorderSpacing.Top = 4 315 BorderSpacing.Right = 6 316 Caption = 'Add new resolution...' 317 OnClick = btnAddNewResolutionClick 318 TabOrder = 12 319 end 320 object BtnReplaceAll: TButton 321 AnchorSideLeft.Control = ImageListBox 322 AnchorSideLeft.Side = asrBottom 323 AnchorSideTop.Control = BtnReplace 324 AnchorSideTop.Side = asrBottom 325 AnchorSideRight.Side = asrBottom 326 Left = 198 327 Height = 25 328 Top = 122 329 Width = 152 330 AutoSize = True 331 BorderSpacing.Left = 6 332 BorderSpacing.Top = 4 333 BorderSpacing.Right = 6 334 Caption = '&Replace all resolutions...' 335 OnClick = BtnReplaceClick 336 TabOrder = 4 337 end 338 object BtnAddMoreResolutions: TButton 339 Tag = 1 340 AnchorSideLeft.Control = ImageListBox 341 AnchorSideLeft.Side = asrBottom 342 AnchorSideTop.Control = BtnAdd 343 AnchorSideTop.Side = asrBottom 344 AnchorSideRight.Side = asrBottom 345 Left = 198 346 Height = 25 347 Top = 35 348 Width = 149 349 AutoSize = True 350 BorderSpacing.Left = 6 351 BorderSpacing.Top = 4 352 BorderSpacing.Right = 6 353 Caption = 'Add more resolutions...' 354 OnClick = BtnAddClick 355 TabOrder = 1 356 end 357 object btnDeleteResolution: TButton 358 AnchorSideLeft.Control = ImageListBox 359 AnchorSideLeft.Side = asrBottom 360 AnchorSideTop.Control = btnAddNewResolution 361 AnchorSideTop.Side = asrBottom 362 AnchorSideRight.Side = asrBottom 363 Left = 198 364 Height = 25 365 Top = 354 366 Width = 127 367 AutoSize = True 368 BorderSpacing.Left = 6 369 BorderSpacing.Top = 4 370 BorderSpacing.Right = 6 371 Caption = 'Delete resolution ...' 372 OnClick = btnDeleteResolutionClick 373 TabOrder = 13 374 end 375 object BtnAddSliced: TButton 376 AnchorSideLeft.Control = ImageListBox 377 AnchorSideLeft.Side = asrBottom 378 AnchorSideTop.Control = BtnAddMoreResolutions 379 AnchorSideTop.Side = asrBottom 380 Left = 198 381 Height = 25 382 Top = 64 383 Width = 90 384 AutoSize = True 385 BorderSpacing.Left = 6 386 BorderSpacing.Top = 4 387 BorderSpacing.Right = 6 388 Caption = 'Add sliced...' 389 OnClick = BtnAddSlicedClick 390 TabOrder = 2 391 end 392 end 393 object BtnPanel: TButtonPanel 394 Left = 6 395 Height = 26 396 Top = 452 397 Width = 605 398 OKButton.Name = 'OKButton' 399 OKButton.DefaultCaption = True 400 HelpButton.Name = 'HelpButton' 401 HelpButton.DefaultCaption = True 402 CloseButton.Name = 'CloseButton' 403 CloseButton.DefaultCaption = True 404 CancelButton.Name = 'CancelButton' 405 CancelButton.DefaultCaption = True 406 TabOrder = 2 407 ShowBevel = False 408 end 409 object ImageList: TImageList 410 left = 84 411 top = 211 412 end 413 object OpenDialog: TOpenPictureDialog 414 FilterIndex = 0 415 Options = [ofAllowMultiSelect, ofFileMustExist, ofEnableSizing, ofViewDetail, ofAutoPreview] 416 left = 84 417 top = 103 418 end 419 object SaveDialog: TSavePictureDialog 420 FilterIndex = 0 421 Options = [ofEnableSizing, ofViewDetail, ofAutoPreview] 422 left = 84 423 top = 159 424 end 425end 426