145
54
<!-- enumeration type Visibility: default -->
146
55
<element name="TDrawingStyle">
56
<short>Defines transparency and blending of rendered images.</short>
57
<descr>Blending means that the Color is merged with the previous contents of
58
the destination area by a degree defined by an alpha value.
61
<notes><note>What's "blending"?</note><note>right?</note>
151
<!-- enumeration value Visibility: default -->
152
64
<element name="TDrawingStyle.dsFocus">
65
<short>Applies 25% of BlendColor.</short>
155
<!-- enumeration value Visibility: default -->
156
67
<element name="TDrawingStyle.dsSelected">
68
<short>Applies 50% of BlendColor.</short>
159
<!-- enumeration value Visibility: default -->
160
70
<element name="TDrawingStyle.dsNormal">
71
<short>Draw using BkColor for the background, transparent if BkColor is clNone.</short>
163
<!-- enumeration value Visibility: default -->
164
73
<element name="TDrawingStyle.dsTransparent">
74
<short>Always draw transparently, ignore BkColor and BlendColor.</short>
167
76
<!-- enumeration type Visibility: default -->
168
77
<element name="TImageType">
78
<short>Indicates whether a mask shall be used in rendering an image.</short>
79
<descr>The mask specifies the transparent part of the image</descr>
81
<notes><note>What's the effect of applying a mask?</note><note>right?</note>
173
84
<!-- enumeration value Visibility: default -->
174
85
<element name="TImageType.itImage">
86
<short>Don't apply a mask.</short>
177
88
<!-- enumeration value Visibility: default -->
178
89
<element name="TImageType.itMask">
90
<short>Apply the mask.</short>
181
92
<!-- object Visibility: default -->
182
93
<element name="TCustomImageList">
183
94
<short>Base class for TImageList (not the same as a <var>TBitmap</var> collection)</short>
184
<descr>An ImageList contains images (bitmaps or icons) of the same Width and Height, accessible by index. The images are stored in one big (wide) bitmap, whose width is Width*Count. When an image of a different Width or Height is inserted, the previous contents of the list are discarded!
186
It's okay, however, to insert an imagelist-like bitmap, that contains multiple bitmaps of the same Width and Height as used by the ImageList. This allows to insert e.g. other (compatible) ImageLists, or bitmaps for multiple states of essentially the same image (button pressed, released and disabled).
188
Transparency is implemented in the alpha channel of the raw 32 bit RGBA imagedata array - but not all platforms support such an alpha channel. [What exactly does this mean to the user?]
190
The painting of an image from the list is handled by the widgetset, no bitmap or icon component is involved. The widgetset can use a different internal organization of the data, optimized for immediate painting of an image.
192
<b>NOTE:</b> A TCustomImageList is <b>not</b> a TBitmap collection.
193
If a storage of distinct bitmaps is needed, create your own list of TBitMaps (array or TList).</descr>
194
<errors>Currently only the insertion of Bitmaps is supported. Other image types should be rendered as bitmaps of Width and Height, which then can be inserted.</errors>
197
<!-- variable Visibility: private -->
198
<element name="TCustomImageList.FDrawingStyle">
203
<!-- variable Visibility: private -->
204
<element name="TCustomImageList.FImageList">
209
<!-- variable Visibility: private -->
210
<element name="TCustomImageList.FMaskList">
215
<!-- variable Visibility: private -->
216
<element name="TCustomImageList.FBitmap">
221
<!-- variable Visibility: private -->
222
<element name="TCustomImageList.FImageType">
227
<!-- variable Visibility: private -->
228
<element name="TCustomImageList.FMaskBitmap">
233
<!-- variable Visibility: private -->
234
<element name="TCustomImageList.FHeight">
239
<!-- variable Visibility: private -->
240
<element name="TCustomImageList.FMasked">
245
<!-- variable Visibility: private -->
246
<element name="TCustomImageList.FShareImages">
251
<!-- variable Visibility: private -->
252
<element name="TCustomImageList.FWidth">
257
<!-- variable Visibility: private -->
258
<element name="TCustomImageList.FAllocBy">
263
<!-- variable Visibility: private -->
264
<element name="TCustomImageList.FCount">
96
<p>An ImageList contains images (bitmaps or icons) of the same Width and Height, accessible by index.
97
The images are stored in one big (wide) bitmap, whose width is Width*Count.
98
</p><p>When an image of a different Width or Height is inserted, the previous contents of the list are discarded!
100
It's okay, however, to insert an imagelist-like bitmap, that contains multiple bitmaps of the same Width and Height as used by the ImageList.
101
This allows one to insert e.g. other (compatible) ImageLists, or bitmaps for multiple states of essentially the same image (button pressed, released and disabled).
103
Transparency is implemented in the alpha channel of the raw 32 bit RGBA imagedata array - but not all platforms support such an alpha channel.
105
The painting of an image from the list is handled by the widgetset, no bitmap or icon component is involved.
106
The widgetset can use a different internal organization of the data, optimized for immediate painting of an image.
108
<b>NOTE:</b> A TCustomImageList is <b>not</b> a TBitmap collection.
109
If a storage of distinct bitmaps is needed, create your own list of TBitMaps (array or TList).
111
Please note also that inserting or moving images will affect the index of all following images,
112
what can cause trouble with index constants. In such cases a bitmap collection may better fit your needs.
114
<remark>Windows ImgageLists can contain a list of monochrome mask bitmaps, present when Masked=True.
118
<p>Currently only the insertion of Bitmaps is supported. Other image types should be rendered as bitmaps of Width and Height, which then can be inserted.</p>
119
<p>Image overlays also are unsupported.</p>
122
<notes><note>What exactly does this mean to the user?</note><note>What about Mask, HotSpot and ShareImages?</note><note>Does the LCL support this feature, or is only the TransparentColor used to make images transparent?</note>
125
<!-- variable Visibility: private -->
126
<element name="TCustomImageList.FAllocBy" link="TCustomImageList.AllocBy"/>
127
<element name="TCustomImageList.FBkColor" link="TCustomImageList.BkColor"/>
128
<element name="TCustomImageList.FBlendColor" link="TCustomImageList.BlendColor"/>
129
<element name="TCustomImageList.FCount" link="TCustomImageList.Count"/>
130
<element name="TCustomImageList.FDrawingStyle" link="TCustomImageList.DrawingStyle"/>
131
<element name="TCustomImageList.FHeight" link="TCustomImageList.Height"/>
132
<element name="TCustomImageList.FImageType" link="TCustomImageList.ImageType"/>
133
<element name="TCustomImageList.FMasked" link="TCustomImageList.Masked"/>
134
<element name="TCustomImageList.FOnChange" link="TCustomImageList.OnChange"/>
135
<element name="TCustomImageList.FShareImages" link="TCustomImageList.ShareImages"/>
136
<element name="TCustomImageList.FReference" link="TCustomImageList.Reference"/>
137
<element name="TCustomImageList.FWidth" link="TCustomImageList.Width"/>
269
138
<!-- variable Visibility: private -->
270
139
<element name="TCustomImageList.FAllocCount">
275
<!-- variable Visibility: private -->
276
<element name="TCustomImageList.FBlendColor">
281
<!-- variable Visibility: private -->
282
<element name="TCustomImageList.FOnChange">
140
<short>The size of the allocated Data list, in number of images.</short>
142
<!-- variable Visibility: private -->
143
<element name="TCustomImageList.FChanged">
144
<short>Change flag, remembers changes while update notifications are locked (FUpdateCount > 0).</short>
287
146
<!-- variable Visibility: private -->
288
147
<element name="TCustomImageList.FChangeLinkList">
293
<!-- variable Visibility: private -->
294
<element name="TCustomImageList.FBkColor">
299
<!-- variable Visibility: private -->
300
<element name="TCustomImageList.FHandle">
305
<!-- variable Visibility: private -->
306
<element name="TCustomImageList.FChanged">
311
<!-- procedure Visibility: private -->
312
<element name="TCustomImageList.AllocBitmap">
318
<!-- argument Visibility: default -->
319
<element name="TCustomImageList.AllocBitmap.Amount">
148
<short>List of TChangeLinks which are notified of changes.</short>
150
<!-- variable Visibility: private -->
151
<element name="TCustomImageList.FData">
152
<short>Holds the pixel data of all images.</short>
154
<!-- variable Visibility: protected -->
155
<element name="TCustomImageList.FUpdateCount">
156
<short>Counter for BeginUpdate/EndUpdate calls.</short>
158
<!-- procedure Visibility: private -->
159
<element name="TCustomImageList.AllocData">
160
<short>Allocates data for ACount images, rounded up by AllocBy.</short>
162
<element name="TCustomImageList.AllocData.ACount">
163
<short>The number of images to allocate room for.</short>
164
<descr>The list only can increase. Use Clear to reduce it to the empty list.</descr>
166
<element name="TCustomImageList.WSRegisterClass" link="#LCL.LCLClasses.TLCLComponent.WSRegisterClass"/>
167
<element name="TCustomImageList.InternalInsert">
168
<short>Insert bitmap (with split if necessary) into position AIndex with shifting other images.</short>
170
<element name="TCustomImageList.InternalInsert.AIndex">
171
<short>Where to insert the images.</short>
173
<element name="TCustomImageList.InternalInsert.AImage">
174
<short>The image (BitMap) handle.</short>
176
<element name="TCustomImageList.InternalInsert.AMask">
177
<short>The mask (BitMap) handle.</short>
179
<element name="TCustomImageList.InternalInsert.AWidth">
180
<short>Width in pixels</short>
181
<notes><note>of?</note>
184
<element name="TCustomImageList.InternalInsert.AHeight">
185
<short>Height of all images in pixels.</short>
187
<element name="TCustomImageList.InternalInsert.ARawImage">
189
<notes><note>?</note>
192
<!-- procedure Visibility: private -->
193
<element name="TCustomImageList.InternalMove">
194
<short>Moves an image from CurIndex to NewIndex, without notifying the widgetset.</short>
202
<element name="TCustomImageList.InternalMove.ACurIndex">
203
<short>the index of the image to be moved</short>
205
<element name="TCustomImageList.InternalMove.ANewIndex">
206
<short>the new index of the image</short>
208
<element name="TCustomImageList.InternalMove.AIgnoreCurrent">
210
<notes><note>?</note>
213
<!-- procedure Visibility: private -->
214
<element name="TCustomImageList.InternalReplace">
222
<notes><note>?</note>
225
<element name="TCustomImageList.InternalReplace.AIndex">
228
<element name="TCustomImageList.InternalReplace.AImage">
231
<element name="TCustomImageList.InternalReplace.AMask">
234
<!-- function Visibility: private -->
235
<element name="TCustomImageList.InternalSetImage">
236
<short>Copies the imagedata into the FData array and then frees the image.</short>
244
<element name="TCustomImageList.InternalSetImage.Result">
245
<short>Pointer to the updated image data</short>
247
<element name="TCustomImageList.InternalSetImage.AIndex">
248
<short>the index of the location where the image should be set</short>
250
<element name="TCustomImageList.InternalSetImage.AImage">
251
<short>the new image</short>
322
253
<!-- procedure Visibility: private -->
323
254
<element name="TCustomImageList.NotifyChangeLink">
255
<short>Notifies all subscribed objects of a change in the imagelist.</short>
329
260
<!-- procedure Visibility: private -->
330
<element name="TCustomImageList.SetBkColor">
336
<!-- argument Visibility: default -->
261
<element name="TCustomImageList.SetBkColor" link="TCustomImageList.BkColor"/>
337
262
<element name="TCustomImageList.SetBkColor.Value">
340
265
<!-- procedure Visibility: private -->
341
<element name="TCustomImageList.SetDrawingStyle">
347
<!-- argument Visibility: default -->
266
<element name="TCustomImageList.SetDrawingStyle" link="TCustomImageList.DrawingStyle"/>
348
267
<element name="TCustomImageList.SetDrawingStyle.AValue">
351
270
<!-- procedure Visibility: private -->
352
<element name="TCustomImageList.SetHeight">
358
<!-- argument Visibility: default -->
271
<element name="TCustomImageList.SetHeight" link="TCustomImageList.Height"/>
359
272
<element name="TCustomImageList.SetHeight.Value">
362
275
<!-- procedure Visibility: private -->
363
<element name="TCustomImageList.SetMasked">
369
<!-- argument Visibility: default -->
276
<element name="TCustomImageList.SetMasked" link="TCustomImageList.Masked"/>
370
277
<element name="TCustomImageList.SetMasked.AValue">
373
280
<!-- procedure Visibility: private -->
374
<element name="TCustomImageList.SetShareImages">
380
<!-- argument Visibility: default -->
281
<element name="TCustomImageList.SetShareImages" link="TCustomImageList.ShareImages"/>
381
282
<element name="TCustomImageList.SetShareImages.AValue">
384
285
<!-- procedure Visibility: private -->
385
<element name="TCustomImageList.SetWidth">
391
<!-- argument Visibility: default -->
286
<element name="TCustomImageList.SetWidth" link="TCustomImageList.Width"/>
392
287
<element name="TCustomImageList.SetWidth.Value">
395
290
<!-- function Visibility: private -->
396
<element name="TCustomImageList.GetCount">
402
<!-- function result Visibility: default -->
403
<element name="TCustomImageList.GetCount.Result">
406
<!-- procedure Visibility: private -->
407
<element name="TCustomImageList.ShiftImages">
413
<!-- argument Visibility: default -->
414
<element name="TCustomImageList.ShiftImages.Source">
417
<!-- argument Visibility: default -->
418
<element name="TCustomImageList.ShiftImages.Start">
421
<!-- argument Visibility: default -->
422
<element name="TCustomImageList.ShiftImages.Shift">
425
<!-- variable Visibility: protected -->
426
<element name="TCustomImageList.FUpdateCount">
431
<!-- procedure Visibility: protected -->
432
<element name="TCustomImageList.GetImages">
438
<!-- argument Visibility: default -->
439
<element name="TCustomImageList.GetImages.Index">
442
<!-- argument Visibility: default -->
443
<element name="TCustomImageList.GetImages.Image">
446
<!-- argument Visibility: default -->
447
<element name="TCustomImageList.GetImages.Mask">
291
<element name="TCustomImageList.GetReference" link="TCustomImageList.Reference"/>
292
<element name="TCustomImageList.GetReference.Result">
450
295
<!-- procedure Visibility: protected -->
451
296
<element name="TCustomImageList.Initialize">
453
298
<var>Initialize</var> - sets up the list</short>
300
Initializes the internal bitmap structures and the changelink list.
301
It is used by the Create and CreateSize constructors.
458
306
<!-- procedure Visibility: protected -->
459
<element name="TCustomImageList.DefineProperties">
461
<var>DefineProperties</var> - defines the properties of the ImageList (stored in a file)</short>
466
<!-- argument Visibility: default -->
307
<element name="TCustomImageList.DefineProperties"/>
467
308
<element name="TCustomImageList.DefineProperties.Filer">
470
311
<!-- procedure Visibility: protected -->
471
312
<element name="TCustomImageList.SetWidthHeight">
473
<var>SetWidthHeight</var> - specifies the dimensions for display</short>
314
Sets both the Width and Height of all images.</short>
315
<descr>Changed values clear the entire list.</descr>
478
<!-- argument Visibility: default -->
479
319
<element name="TCustomImageList.SetWidthHeight.NewWidth">
482
<!-- argument Visibility: default -->
483
322
<element name="TCustomImageList.SetWidthHeight.NewHeight">
486
325
<!-- constructor Visibility: public -->
487
<element name="TCustomImageList.Create" link="#rtl.Classes.TComponent.Create">
493
<!-- argument Visibility: default -->
494
<element name="TCustomImageList.Create.TheOwner">
326
<element name="TCustomImageList.Create"/>
327
<element name="TCustomImageList.Create.AOwner">
497
330
<!-- procedure Visibility: public -->
498
<element name="TCustomImageList.AssignTo" link="#rtl.Classes.TPersistent.AssignTo">
504
<!-- argument Visibility: default -->
331
<element name="TCustomImageList.AssignTo"/>
505
332
<element name="TCustomImageList.AssignTo.Dest">
508
335
<!-- procedure Visibility: public -->
509
<element name="TCustomImageList.Assign" link="#rtl.Classes.TPersistent.Assign">
515
<!-- argument Visibility: default -->
336
<element name="TCustomImageList.Assign"/>
516
337
<element name="TCustomImageList.Assign.Source">
519
340
<!-- procedure Visibility: public -->
520
341
<element name="TCustomImageList.WriteData">
521
<short>Writes the ImageList data into the stream</short>
342
<short>Writes the ImageList data into the stream.</short>
526
<!-- argument Visibility: default -->
527
347
<element name="TCustomImageList.WriteData.AStream">
530
350
<!-- procedure Visibility: public -->
531
351
<element name="TCustomImageList.ReadData">
532
<short>Restores the ImageList data from the stream</short>
352
<short>Restores the ImageList data from the stream.</short>
537
<!-- argument Visibility: default -->
538
357
<element name="TCustomImageList.ReadData.AStream">
541
360
<!-- procedure Visibility: public -->
542
361
<element name="TCustomImageList.BeginUpdate">
544
<var>BeginUpdate</var> - start updating the data</short>
545
<descr>Use together with EndUpdate to speed up the insertion of multiple images.
547
Every BeginUpdate must be matched by an EndUpdate, i.e. update operations can be nested.
363
Start updating the data, block the OnChange event.</short>
365
<p>Use together with EndUpdate to speed up the insertion of multiple images.
367
Every BeginUpdate must be matched by an EndUpdate, i.e. update operations can be nested.
552
373
<!-- procedure Visibility: public -->
553
374
<element name="TCustomImageList.EndUpdate">
555
<var>EndUpdate</var> - finish updating the data</short>
376
<var>EndUpdate</var> - finish updating the data, call Change.</short>
556
377
<descr>Decrements the internal UpdateCount and, when it reaches zero, does whatever is required to reflect the new content.
563
384
<!-- function Visibility: public -->
564
385
<element name="TCustomImageList.Add">
566
<var>Add</var> an Image and Mask bitmap to the list. Returns the index of the added image or -1 if unsucessful</short>
387
Adds an Image and Mask bitmap to the list. Returns the index of the added image or -1 if unsucessful.</short>
390
Adds one or more (bitmap width / imagelist width) bitmaps to the list.
391
If Mask is nil, the image has no transparent parts.
571
<!-- function result Visibility: default -->
572
397
<element name="TCustomImageList.Add.Result">
398
<short>The index of the added image, -1 if unsuccesful.</short>
575
<!-- argument Visibility: default -->
576
400
<element name="TCustomImageList.Add.Image">
401
<short>a bitmap image</short>
579
<!-- argument Visibility: default -->
580
403
<element name="TCustomImageList.Add.Mask">
583
<!-- function Visibility: public -->
584
<element name="TCustomImageList.AddDirect">
590
<!-- function result Visibility: default -->
591
<element name="TCustomImageList.AddDirect.Result">
594
<!-- argument Visibility: default -->
595
<element name="TCustomImageList.AddDirect.Image">
598
<!-- argument Visibility: default -->
599
<element name="TCustomImageList.AddDirect.Mask">
602
<!-- function Visibility: public -->
603
<element name="TCustomImageList.AddCopy">
609
<!-- function result Visibility: default -->
610
<element name="TCustomImageList.AddCopy.Result">
613
<!-- argument Visibility: default -->
614
<element name="TCustomImageList.AddCopy.SrcImage">
617
<!-- argument Visibility: default -->
618
<element name="TCustomImageList.AddCopy.SrcMask">
404
<short>a bitmap which defines the transparent parts of Image</short>
621
406
<!-- function Visibility: public -->
622
407
<element name="TCustomImageList.AddIcon">
623
<short>Adds an icon to the list (not yet!), returning the index of the icon or -1 if not successful</short>
624
<descr>Adding graphics other than bitmaps can be implemented by converting the graphics item into a bitmap, which then can be added to the image list. Most graphics classes support such a conversion, so that specialized methods are redundant.</descr>
408
<short>Adds an icon to the list, returning the index of the icon or -1 if not successful.</short>
409
<descr>Adding graphics other than bitmaps can be implemented by converting the graphics item into a bitmap, which then can be added to the image list.
410
Most graphics classes support such a conversion, so that specialized methods are redundant.</descr>
412
<seealso><link id="TCustomImageList.InsertIcon"/>
628
<!-- function result Visibility: default -->
629
415
<element name="TCustomImageList.AddIcon.Result">
416
<short>The index of the added icon, -1 if unsuccesful.</short>
632
<!-- argument Visibility: default -->
633
418
<element name="TCustomImageList.AddIcon.Image">
419
<short>The Icon to be added.</short>
636
421
<!-- procedure Visibility: public -->
637
422
<element name="TCustomImageList.AddImages">
639
<var>AddImages</var> - adds images from another imagelist to the list</short>
424
Adds images from another imagelist to the list.</short>
640
425
<descr>Both lists must have the same image Width and Height, else the old images are discarded.</descr>
644
<!-- argument Visibility: default -->
645
<element name="TCustomImageList.AddImages.Value">
429
<element name="TCustomImageList.AddImages.AValue">
431
The ImageList containing the images to add.</short>
648
433
<!-- function Visibility: public -->
649
434
<element name="TCustomImageList.AddMasked">
651
<var>AddMasked</var> - adds one or more bitmaps to the list</short>
652
<descr>Every pixel of MaskColor will become transparent.
654
Image can contain multiple images of the same Width and Height.
656
Returns the index of the first added bitmap, or -1 if unsuccessful.</descr>
436
Adds one or more (bitmap width / imagelist width) transparent bitmaps to the list.</short>
439
Every pixel of MaskColor will become transparent.
441
Image can contain multiple images of the same Width and Height.
442
The image width must be a multiple of Width, and the image height must equal Height,
443
else all old images in the list are discarded.
660
<!-- function result Visibility: default -->
661
449
<element name="TCustomImageList.AddMasked.Result">
450
<short>The index of the first added image, -1 if unsuccesful.</short>
664
<!-- argument Visibility: default -->
665
452
<element name="TCustomImageList.AddMasked.Image">
453
<short>The bitmap to be added.</short>
668
<!-- argument Visibility: default -->
669
455
<element name="TCustomImageList.AddMasked.MaskColor">
456
<short>The color acting as transparant color.</short>
672
458
<!-- function Visibility: public -->
673
<element name="TCustomImageList.AddFromLazarusResource">
679
<!-- function result Visibility: default -->
680
<element name="TCustomImageList.AddFromLazarusResource.Result">
683
<!-- argument Visibility: default -->
684
<element name="TCustomImageList.AddFromLazarusResource.ResourceName">
459
<element name="TCustomImageList.AddLazarusResource">
461
Loads a bitmap from a lazarus resources and adds it.</short>
463
<element name="TCustomImageList.AddLazarusResource.Result">
464
<short>Index of the first added image.</short>
466
<element name="TCustomImageList.AddLazarusResource.ResourceName">
467
<short>The name of the Lazarus resource.</short>
469
<element name="TCustomImageList.AddLazarusResource.MaskColor">
470
<short>The mask color for transparent images, clNone for solid (opaque) images.</short>
687
472
<!-- procedure Visibility: public -->
688
473
<element name="TCustomImageList.Change">
690
<var>Change</var> - send change notifications</short>
475
Send change notifications, if the list has changed and updates are not locked.</short>
691
476
<descr>Notifies all members of the ChangeLinkList, and calls the <var>OnChange</var> handler.</descr>
695
480
<!-- procedure Visibility: public -->
696
481
<element name="TCustomImageList.Clear">
698
<var>Clear</var> - removes all images from the list</short>
482
<short>Removes all images from the list.</short>
703
487
<!-- constructor Visibility: public -->
704
488
<element name="TCustomImageList.CreateSize">
705
<short>Initialize the list for image(s) with the given height and width</short>
706
<descr>The Width and Height is reset with every insertion of a bitmap. It may be useful, however, to initialize a list for the insertion of graphics other than bitmaps, so that the images can be rendered as bitmaps of the intended width and height, before they are inserted.</descr>
489
<short>Initialize the list for image(s) with the given height and width.</short>
492
This constructor overrides the default initial size of the images (16x16 pixels).
494
<p>The Width and Height is reset with every insertion of a bitmap.
495
It may be useful, however, to initialize a list for the insertion of graphics <b>other</b> than bitmaps,
496
so that the images can be rendered as bitmaps of the intended width and height, before they are inserted.
710
<!-- argument Visibility: default -->
711
502
<element name="TCustomImageList.CreateSize.AWidth">
503
<short>The width of all images, in pixels.</short>
714
<!-- argument Visibility: default -->
715
505
<element name="TCustomImageList.CreateSize.AHeight">
506
<short>The height of all images, in pixels.</short>
718
508
<!-- procedure Visibility: public -->
719
509
<element name="TCustomImageList.Delete">
720
<short>Delete the specified image</short>
510
<short>Delete the specified image.</short>
725
<!-- argument Visibility: default -->
726
<element name="TCustomImageList.Delete.Index">
515
<element name="TCustomImageList.Delete.AIndex">
516
<short>the index of the image to be deleted. -1 for delete all.</short>
729
518
<!-- destructor Visibility: public -->
730
<element name="TCustomImageList.Destroy" link="#rtl.Classes.TComponent.Destroy">
519
<element name="TCustomImageList.Destroy"/>
736
520
<!-- procedure Visibility: public -->
737
521
<element name="TCustomImageList.Draw">
738
522
<short>Paint an image</short>
839
590
<!-- procedure Visibility: public -->
840
591
<element name="TCustomImageList.Insert">
842
<var>Insert</var> one or more images into the list at the index position.</short>
843
<descr>The insterted bitmap can consist of multiple images, of the same width and height, which become accessible as distinct images in the ImageList.
845
The height of the inserted images must match the ImageList height, else the ImageList content is <b>replaced</b> by the added images. The width must be a multiple of the ImageList width, so that the list always contains an integral number of images.
847
If Mask is nil, the inserted images have no transparent parts.</descr>
593
Inserts one or more images into the list at the index position.</short>
596
The inserted bitmap can consist of multiple images, of the same width and height, which become accessible as distinct images in the ImageList.
598
The height of the inserted images must match the ImageList height, else the ImageList content is <b>replaced</b> by the added images.
599
The width must be a multiple of the ImageList width, so that the list always contains an integral number of images.
601
If Mask is nil, the inserted images have no transparent parts.
602
Use InsertMasked to insert bitmaps with a specific transparent color.
851
<!-- argument Visibility: default -->
852
<element name="TCustomImageList.Insert.Index">
855
<!-- argument Visibility: default -->
856
<element name="TCustomImageList.Insert.Image">
859
<!-- argument Visibility: default -->
860
<element name="TCustomImageList.Insert.Mask">
608
<element name="TCustomImageList.Insert.AIndex">
609
<short>insert position</short>
611
<element name="TCustomImageList.Insert.AImage">
612
<short>bitmap to insert</short>
614
<element name="TCustomImageList.Insert.AMask">
615
<short>transparency mask, Nil for opaque</short>
863
617
<!-- procedure Visibility: public -->
864
618
<element name="TCustomImageList.InsertIcon">
619
<short>Insert an Icon into the list.</short>
870
<!-- argument Visibility: default -->
871
<element name="TCustomImageList.InsertIcon.Index">
624
<element name="TCustomImageList.InsertIcon.AIndex">
625
<short>insertion point</short>
874
<!-- argument Visibility: default -->
875
<element name="TCustomImageList.InsertIcon.Image">
627
<element name="TCustomImageList.InsertIcon.AIcon">
628
<short>The Icon to insert.</short>
878
630
<!-- procedure Visibility: public -->
879
631
<element name="TCustomImageList.InsertMasked">
881
<var>InsertMasked</var> - adds one or more transparent bitmaps to the list.</short>
633
Adds one or more transparent bitmaps to the list.</short>
882
634
<descr>MaskColor is the RGB color of the transparent pixels. Every occurence of a MaskColor pixel will be converted into a transparent pixel.</descr>
885
637
<link id="TCustomImageList.Insert"/>
888
<!-- argument Visibility: default -->
889
640
<element name="TCustomImageList.InsertMasked.Index">
892
<!-- argument Visibility: default -->
893
<element name="TCustomImageList.InsertMasked.Image">
896
<!-- argument Visibility: default -->
641
<short>The index of the inserted image.</short>
643
<element name="TCustomImageList.InsertMasked.AImage">
644
<short>The bitmap to be inserted.</short>
897
646
<element name="TCustomImageList.InsertMasked.MaskColor">
647
<short>The color acting as transparant color.</short>
900
649
<!-- procedure Visibility: public -->
901
650
<element name="TCustomImageList.Move">
903
<var>Move</var> an image from index <var>CurIndex</var> to <var>NewIndex</var>
652
Move an image from index <var>CurIndex</var> to <var>NewIndex.</var>
908
657
<link id="TCustomImageList"/>
911
<!-- argument Visibility: default -->
912
<element name="TCustomImageList.Move.CurIndex">
660
<element name="TCustomImageList.Move.ACurIndex">
661
<short>the index of the image to be moved</short>
915
<!-- argument Visibility: default -->
916
<element name="TCustomImageList.Move.NewIndex">
663
<element name="TCustomImageList.Move.ANewIndex">
664
<short>the new index of the image</short>
919
666
<!-- procedure Visibility: public -->
920
667
<element name="TCustomImageList.Replace">
922
<var>Replace</var> an indexed image with the Bitmap given</short>
669
<var>Replace</var> the indexed image with the Bitmap given</short>
923
670
<descr>AMask can be nil, if the image has no transparent parts.</descr>
927
<!-- argument Visibility: default -->
928
<element name="TCustomImageList.Replace.Index">
931
<!-- argument Visibility: default -->
932
<element name="TCustomImageList.Replace.Image">
935
<!-- argument Visibility: default -->
936
<element name="TCustomImageList.Replace.Mask">
939
<!-- procedure Visibility: public -->
940
<element name="TCustomImageList.ReplaceIcon">
946
<!-- argument Visibility: default -->
947
<element name="TCustomImageList.ReplaceIcon.Index">
950
<!-- argument Visibility: default -->
951
<element name="TCustomImageList.ReplaceIcon.Image">
674
<element name="TCustomImageList.Replace.AIndex">
675
<short>the index of the replaceded image</short>
677
<element name="TCustomImageList.Replace.AImage">
678
<short>a bitmap image</short>
680
<element name="TCustomImageList.Replace.AMask">
681
<short>a bitmap which defines the transparent parts of Image</short>
954
683
<!-- procedure Visibility: public -->
955
684
<element name="TCustomImageList.ReplaceMasked">
957
686
<var>ReplaceMasked</var> - replaces the indexed image with the image given.</short>
958
<descr>Every instance of MaskColor will be converted to transparent</descr>
687
<descr>Every pixel of MaskColor will be converted to transparent.</descr>
961
690
<link id="TCustomImageList.InsertMasked"/>
691
<link id="TCustomImageList.AddMasked"/>
964
<!-- argument Visibility: default -->
965
694
<element name="TCustomImageList.ReplaceMasked.Index">
695
<short>The index of the replaced image.</short>
968
<!-- argument Visibility: default -->
969
697
<element name="TCustomImageList.ReplaceMasked.NewImage">
698
<short>A bitmap image.</short>
972
<!-- argument Visibility: default -->
973
700
<element name="TCustomImageList.ReplaceMasked.MaskColor">
701
<short>The color acting as transparant color.</short>
976
703
<!-- procedure Visibility: public -->
977
704
<element name="TCustomImageList.RegisterChanges">
978
<short>Registers an object to get notified of a change of the imagelist</short>
705
<short>Registers an TChangeLink object to get notified of a change of the imagelist.</short>
983
<!-- argument Visibility: default -->
984
710
<element name="TCustomImageList.RegisterChanges.Value">
711
<short>a reference to changelink object</short>
987
713
<!-- procedure Visibility: public -->
988
714
<element name="TCustomImageList.UnRegisterChanges">
990
<var>UnRegisterChanges</var> - remove the changes from the register</short>
716
Unregisters an notification object.</short>
995
<!-- argument Visibility: default -->
996
721
<element name="TCustomImageList.UnRegisterChanges.Value">
722
<short>Reference to the changelink object to remove.</short>
999
724
<!-- property Visibility: public -->
1000
725
<element name="TCustomImageList.AllocBy">
1002
<var>AllocBy</var> - allocate images by an integer value</short>
727
The length of the image list is increased in multiples of AllocBy images. Default is 4.</short>
728
<descr>Other list types allow to set the list Capacity directly - not so for an ImageList.</descr>
1006
731
<!-- property Visibility: public -->
1007
732
<element name="TCustomImageList.BlendColor">
1009
<var>BlendColor</var> - the colour for a blend</short>
734
The color for used in blending (dithering) an image.</short>
736
<seealso><link id="TDrawingStyle"/>
1013
739
<!-- property Visibility: public -->
1014
740
<element name="TCustomImageList.BkColor">
1016
<var>BkColor</var> - background colour (default none)</short>
742
The background color to use for transparent parts.</short>
744
<p>BkColor is intended to speed up drawing of transparent images,
745
on a background of known color (=BkColor). In this case the image can be drawn opaque,
746
eliminating the need for really masking out and merging with existing background.
750
<notes><note>does this really apply? depending on the widgetset?</note>
1020
753
<!-- property Visibility: public -->
1021
754
<element name="TCustomImageList.Count">
1023
<var>Count</var> - number of images in the list</short>
756
The number of images in the list</short>
1027
760
<!-- property Visibility: public -->
1028
761
<element name="TCustomImageList.DrawingStyle">
1030
<var>DrawingStyle</var> - focus, selected, normal or transparent</short>
1034
<!-- property Visibility: public -->
1035
<element name="TCustomImageList.Handle">
763
The default drawing style - focussed, selected, normal or transparent.</short>
1040
767
<!-- property Visibility: public -->
1041
768
<element name="TCustomImageList.Height">
1043
<var>Height</var> of images on list</short>
770
The unique height of all images in the list.</short>
771
<descr>Setting to an different value clears the entire list!</descr>
1047
774
<!-- property Visibility: public -->
1048
775
<element name="TCustomImageList.Width">
1050
<var>Width</var> of images on list</short>
777
The unique width of all images in the list.</short>
778
<descr>Setting to an different value clears the entire list!</descr>
1054
781
<!-- property Visibility: public -->
1061
788
<!-- property Visibility: public -->
1062
789
<element name="TCustomImageList.Masked">
1064
<var>Masked</var> - if True, a mask is applied to the bitmap</short>
1068
<!-- property Visibility: public -->
1069
<element name="TCustomImageList.Bitmap">
1074
<!-- property Visibility: public -->
1075
<element name="TCustomImageList.MaskBitmap">
791
True when mask images are stored with every image (unused!).</short>
792
<descr>This property exists only for Delphi compatibility</descr>
794
<notes><note>?</note>
1080
797
<!-- property Visibility: public -->
1081
798
<element name="TCustomImageList.ShareImages">
1083
<var>ShareImages</var> - if True, images are allowed to be shared</short>
800
True when this image list is shared. Unused!</short>
801
<descr>This property exists only for Delphi compatibility.
802
True means that the imagelist <b>widget</b> is freed together with the ImageList
805
<notes><note>?</note>
1087
808
<!-- property Visibility: public -->
1088
809
<element name="TCustomImageList.ImageType">
1090
<var>ImageType</var> - an image or a mask</short>
812
<descr>This property exists only for Delphi compatibility</descr>
1094
<element name="TCustomImageList.AddImages.AValue">
1096
<var>AValue</var> - the ImageList containing images to add</short>
1098
<element name="TCustomImageList.AddLazarusResource">
1100
<var>AddLazarusResource</var> - load <var>TBitmap</var> from lazarus resources and add it</short>
814
<notes><note>?</note>
1102
817
<element name="TCustomImageList.FillDescription">
1104
819
<var>FillDescription</var> - fills the description with the default info of the imagedata</short>
821
<element name="TCustomImageList.FillDescription.ADesc">
822
<short>the description to copy</short>
824
<!-- procedure Visibility: public -->
825
<element name="TCustomImageList.GetFullBitmap">
833
<notes><note>?</note>
836
<element name="TCustomImageList.GetFullBitmap.Image">
837
<short>the target bitmap</short>
839
<element name="TCustomImageList.GetFullBitmap.AEffect">
840
<short>how to copy</short>
842
<!-- procedure Visibility: public -->
843
<element name="TCustomImageList.GetFullRawImage">
844
<short>Exports the entire internal image (color array) and description.</short>
846
<element name="TCustomImageList.GetFullRawImage.Image">
849
<!-- procedure Visibility: public -->
1106
850
<element name="TCustomImageList.GetRawImage">
1108
<var>GetRawImage</var> - primitive method for loading an image: you have to fill in all the description fields yourself</short>
852
Exports an image as TRawImage.</short>
854
<element name="TCustomImageList.GetRawImage.Index">
855
<short>the index of the image to copy</short>
857
<element name="TCustomImageList.GetRawImage.Image">
858
<short>the target bitmap</short>
860
<!-- procedure Visibility: public -->
1110
861
<element name="TCustomImageList.Reference">
1112
863
<var>Reference</var> to the imagelist</short>
865
<!-- procedure Visibility: public -->
1114
866
<element name="TCustomImageList.CheckIndex">
1116
<var>CheckIndex</var> - method for checking whether the indexed item is supposed to be inserted (default condition is False)</short>
868
Assures that Index is not out of the list bound.</short>
870
Raises an EInvalidOperation exception when the index is out of bounds.
873
<element name="TCustomImageList.CheckIndex.AIndex">
874
<short>The index to check.</short>
876
<element name="TCustomImageList.CheckIndex.AForInsert">
877
<short>Set to True when the index is used for insertion (default is False).</short>
879
<!-- procedure Visibility: protected -->
1118
880
<element name="TCustomImageList.GetReferenceHandle">
1120
<var>GetReferenceHandle</var> - returns a handle for the reference</short>
882
Returns the Handle of the Reference.</short>
884
<element name="TCustomImageList.GetReferenceHandle.Result">
885
<short>The widget handle.</short>
887
<!-- procedure Visibility: protected -->
1122
888
<element name="TCustomImageList.WSCreateReference">
1124
<var>WSCreateReference</var> - creates a reference for the Imagelist (returns this as a result), passing the defined parameters for the creation process</short>
890
Instructs the widgtset to create an imagelist.</short>
892
<element name="TCustomImageList.WSCreateReference.Result">
893
<short>Reference object for the created widget.</short>
895
<element name="TCustomImageList.WSCreateReference.AParams">
896
<short>ignored</short>
1126
898
<element name="TCustomImageList.StretchDraw">
1128
<var>StretchDraw</var> - draw the image to fill the canvas</short>
1130
<element name="TCustomImageList.WSRegisterClass" link="#LCL.LCLClasses.TLCLComponent.WSRegisterClass"/>
1131
<element name="TCustomImageList.InternalInsert"/>
900
Draws an image stretched to ARect.</short>
902
<element name="TCustomImageList.StretchDraw.Canvas">
904
<notes><note>?</note>
907
<element name="TCustomImageList.StretchDraw.Index">
909
<notes><note>?</note>
912
<element name="TCustomImageList.StretchDraw.ARect">
914
<notes><note>?</note>
917
<element name="TCustomImageList.StretchDraw.Enabled">
919
<notes><note>?</note>
1132
922
<element name="TCustomImageList.Equals">
1133
923
<short>Check for equivalence with another ImageList</short>
1134
924
<descr>This is an expensive operation, since both imagelists are written into memory streams, which then are compared bytewise.</descr>
1136
<element name="TCustomImageList.GetFullRawImage">
1137
<short>Copies the image description and the data pointer</short>
926
<element name="TCustomImageList.Equals.Result">
927
<short>True when the image lists are equal.</short>
929
<element name="TCustomImageList.Equals.Obj">
930
<short>The object (ImageList) to compare with.</short>
1140
933
<!-- ImgList -->