File: imagelisteditor.lfm

package info (click to toggle)
lazarus 4.0%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 275,760 kB
  • sloc: pascal: 2,341,904; xml: 509,420; makefile: 348,726; cpp: 93,608; sh: 3,387; java: 609; perl: 297; sql: 222; ansic: 137
file content (400 lines) | stat: -rw-r--r-- 9,880 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
object ImageListEditorDlg: TImageListEditorDlg
  Left = 476
  Height = 438
  Top = 182
  Width = 553
  BorderIcons = [biSystemMenu, biHelp]
  Caption = 'ImagesList Editor'
  ClientHeight = 438
  ClientWidth = 553
  Position = poScreenCenter
  ShowHint = True
  LCLVersion = '3.99.0.0'
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  object GroupBoxR: TGroupBox
    Left = 219
    Height = 354
    Top = 46
    Width = 328
    Align = alClient
    BorderSpacing.Left = 3
    BorderSpacing.Top = 6
    BorderSpacing.Right = 6
    BorderSpacing.Bottom = 6
    Caption = 'Selected Image'
    ClientHeight = 334
    ClientWidth = 324
    TabOrder = 1
    object LabelTransparent: TLabel
      AnchorSideLeft.Control = RadioGroup
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = RadioGroup
      Left = 93
      Height = 15
      Top = 218
      Width = 96
      BorderSpacing.Left = 6
      BorderSpacing.Right = 6
      Caption = 'Transparent Color:'
    end
    object Preview: TScrollBox
      AnchorSideLeft.Control = GroupBoxR
      AnchorSideTop.Control = GroupBoxR
      AnchorSideRight.Control = GroupBoxR
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = RadioGroup
      Left = 6
      Height = 206
      Top = 6
      Width = 312
      HorzScrollBar.Increment = 1
      HorzScrollBar.Page = 1
      HorzScrollBar.Smooth = True
      HorzScrollBar.Tracking = True
      VertScrollBar.Increment = 1
      VertScrollBar.Page = 1
      VertScrollBar.Smooth = True
      VertScrollBar.Tracking = True
      Anchors = [akTop, akLeft, akRight, akBottom]
      BorderSpacing.Around = 6
      Color = clDefault
      ParentColor = False
      TabOrder = 0
    end
    object RadioGroup: TRadioGroup
      AnchorSideLeft.Control = GroupBoxR
      AnchorSideBottom.Control = GroupBoxR
      AnchorSideBottom.Side = asrBottom
      Left = 6
      Height = 110
      Top = 218
      Width = 81
      Anchors = [akLeft, akBottom]
      AutoFill = True
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Adjustment'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 4
      ChildSizing.VerticalSpacing = 2
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousSpaceResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 90
      ClientWidth = 77
      Enabled = False
      ItemIndex = 0
      Items.Strings = (
        'None'
        'Stretch'
        'Crop'
        'Center'
      )
      TabOrder = 1
      OnClick = ColorBoxTransparentClick
    end
    object ColorBoxTransparent: TColorBox
      AnchorSideLeft.Control = LabelTransparent
      AnchorSideTop.Control = LabelTransparent
      AnchorSideTop.Side = asrBottom
      Left = 93
      Height = 22
      Top = 237
      Width = 176
      Selected = clFuchsia
      Style = [cbStandardColors, cbExtendedColors, cbIncludeDefault, cbCustomColor, cbPrettyNames]
      BorderSpacing.Top = 4
      BorderSpacing.Right = 6
      Enabled = False
      ItemHeight = 16
      TabOrder = 2
      OnChange = ColorBoxTransparentClick
    end
  end
  object GroupBoxL: TGroupBox
    Left = 6
    Height = 354
    Top = 46
    Width = 202
    Align = alLeft
    BorderSpacing.Left = 6
    BorderSpacing.Top = 6
    BorderSpacing.Right = 3
    BorderSpacing.Bottom = 6
    Caption = 'Images'
    ClientHeight = 334
    ClientWidth = 198
    TabOrder = 0
    object ImageListBox: TListBox
      Left = 6
      Height = 322
      Top = 6
      Width = 186
      Align = alClient
      Anchors = [akTop, akLeft, akBottom]
      BorderSpacing.Around = 6
      ItemHeight = 0
      Options = []
      Style = lbOwnerDrawFixed
      TabOrder = 0
      OnDrawItem = ImageListBoxDrawItem
      OnSelectionChange = ImageListBoxSelectionChange
    end
  end
  object BtnPanel: TButtonPanel
    Left = 6
    Height = 26
    Top = 406
    Width = 541
    OKButton.Name = 'OKButton'
    OKButton.DefaultCaption = True
    HelpButton.Name = 'HelpButton'
    HelpButton.DefaultCaption = True
    CloseButton.Name = 'CloseButton'
    CloseButton.DefaultCaption = True
    CancelButton.Name = 'CancelButton'
    CancelButton.DefaultCaption = True
    TabOrder = 2
    ShowBevel = False
  end
  object ToolBar: TToolBar
    Left = 0
    Height = 40
    Top = 0
    Width = 553
    AutoSize = True
    ButtonHeight = 40
    ButtonWidth = 44
    Caption = 'ToolBar'
    EdgeBorders = []
    ShowCaptions = True
    TabOrder = 3
    object tbAdd: TToolButton
      Left = 1
      Top = 0
      Caption = 'tbAdd'
      DropdownMenu = AddPopupMenu
      Style = tbsButtonDrop
    end
    object tbReplace: TToolButton
      Left = 55
      Top = 0
      Caption = 'tbReplace'
      DropdownMenu = ReplacePopupMenu
      Style = tbsButtonDrop
    end
    object tbMoveUp: TToolButton
      Left = 202
      Top = 0
      Action = acMoveUp
    end
    object tbMoveDown: TToolButton
      Left = 267
      Top = 0
      Action = acMoveDown
    end
    object tbRemove: TToolButton
      Left = 125
      Top = 0
      Caption = 'tbRemove'
      DropdownMenu = RemovePopupMenu
      Style = tbsButtonDrop
    end
    object tbSave: TToolButton
      Left = 353
      Top = 0
      Caption = 'tbSave'
      DropdownMenu = SavePopupMenu
      Style = tbsButtonDrop
    end
    object tbSeparator1: TToolButton
      Left = 197
      Height = 5
      Top = 0
      Caption = 'tbSeparator1'
      Style = tbsDivider
    end
    object tbSeparator2: TToolButton
      Left = 348
      Height = 5
      Top = 0
      Caption = 'tbSeparator2'
      Style = tbsDivider
    end
    object tbSeparator3: TToolButton
      Left = 407
      Height = 5
      Top = 0
      Caption = 'tbSeparator3'
      Style = tbsDivider
    end
    object tbResolutions: TToolButton
      Left = 412
      Top = 0
      Caption = 'tbResolutions'
      DropdownMenu = SizesPopupMenu
      Style = tbsButtonDrop
    end
  end
  object Splitter1: TSplitter
    Left = 211
    Height = 360
    Top = 40
    Width = 5
    ResizeStyle = rsPattern
  end
  object ImageList: TImageList
    Left = 352
    Top = 216
  end
  object OpenDialog: TOpenPictureDialog
    FilterIndex = 0
    Options = [ofAllowMultiSelect, ofFileMustExist, ofEnableSizing, ofViewDetail, ofAutoPreview]
    Left = 352
    Top = 88
  end
  object SaveDialog: TSavePictureDialog
    FilterIndex = 0
    Options = [ofEnableSizing, ofViewDetail, ofAutoPreview]
    Left = 352
    Top = 144
  end
  object AddPopupMenu: TPopupMenu
    Left = 88
    Top = 88
    object miAddSingle: TMenuItem
      Action = acAddSingle
    end
    object mAddMultiple: TMenuItem
      Action = acAddMultiple
    end
    object mAddSliced: TMenuItem
      Action = acAddSliced
    end
    object Separator1: TMenuItem
      Caption = '-'
    end
    object mPasteFromClipboard: TMenuItem
      Action = acPasteFromClipboard
    end
  end
  object ReplacePopupMenu: TPopupMenu
    Left = 88
    Top = 144
    object mReplaceSingle: TMenuItem
      Action = acReplaceSingle
    end
    object mReplaceAll: TMenuItem
      Action = acReplaceAll
    end
  end
  object RemovePopupMenu: TPopupMenu
    Left = 88
    Top = 200
    object mDelete: TMenuItem
      Action = acDelete
    end
    object mClear: TMenuItem
      Action = acClear
    end
  end
  object SavePopupMenu: TPopupMenu
    Left = 88
    Top = 256
    object mSave: TMenuItem
      Action = acSave
    end
    object mSaveAll: TMenuItem
      Action = acSaveAll
    end
  end
  object SizesPopupMenu: TPopupMenu
    Left = 88
    Top = 312
    object mNewSize: TMenuItem
      Action = acNewResolution
    end
    object mDeleteSize: TMenuItem
      Action = acDeleteResolution
    end
  end
  object ActionList: TActionList
    Left = 256
    Top = 88
    object acAddSingle: TAction
      Category = 'Add'
      Caption = 'acAddSingle'
      OnExecute = acAddExecute
    end
    object acAddMultiple: TAction
      Category = 'Add'
      Caption = 'acAddMultiple'
      OnExecute = acAddExecute
    end
    object acAddSliced: TAction
      Category = 'Add'
      Caption = 'acAddSliced'
      OnExecute = acAddSlicedExecute
    end
    object acPasteFromClipboard: TAction
      Category = 'Add'
      Caption = 'acPasteFromClipboard'
      OnExecute = acPasteFromClipboardExecute
    end
    object acReplaceSingle: TAction
      Category = 'Replace'
      Caption = 'acReplaceSingle'
      OnExecute = acReplaceSingleExecute
    end
    object acReplaceAll: TAction
      Category = 'Replace'
      Caption = 'acReplaceAll'
      OnExecute = acReplaceAllExecute
    end
    object acDelete: TAction
      Category = 'Remove'
      Caption = 'acDelete'
      OnExecute = acDeleteExecute
    end
    object acClear: TAction
      Category = 'Remove'
      Caption = 'acClear'
      OnExecute = acClearExecute
    end
    object acMoveUp: TAction
      Category = 'Move'
      Caption = 'acMoveUp'
      OnExecute = acMoveUpDownExecute
    end
    object acMoveDown: TAction
      Category = 'Move'
      Caption = 'acMoveDown'
      OnExecute = acMoveUpDownExecute
    end
    object acSave: TAction
      Category = 'Save'
      Caption = 'acSave'
      OnExecute = acSaveOneOrAllExecute
    end
    object acSaveAll: TAction
      Category = 'Save'
      Caption = 'acSaveAll'
      OnExecute = acSaveOneOrAllExecute
    end
    object acNewResolution: TAction
      Category = 'Resolutions'
      Caption = 'acNewIconSize'
      OnExecute = acNewResolutionExecute
    end
    object acDeleteResolution: TAction
      Category = 'Resolutions'
      Caption = 'acDeleteIconSize'
      OnExecute = acDeleteResolutionExecute
    end
  end
end