0af429b135
"A TVirtualImageList should always be placed on a form, not a data module." Strange that it doesnt complain when you do this anyway :/ Also improve LightToolbarVirtualImageList: don't actually need design-time auto fill so turn it off in the form and instead on at run time.
27 lines
618 B
ObjectPascal
27 lines
618 B
ObjectPascal
unit IDE.ImagesModule;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.SysUtils, System.Classes, System.ImageList, Vcl.ImgList, Vcl.Controls,
|
|
Vcl.VirtualImageList, Vcl.BaseImageCollection, Vcl.ImageCollection;
|
|
|
|
type
|
|
TImagesModule = class(TDataModule)
|
|
BuildImageList: TImageList;
|
|
LightToolBarImageCollection: TImageCollection;
|
|
DarkToolBarImageCollection: TImageCollection;
|
|
LightMarkersAndACImageCollection: TImageCollection;
|
|
DarkMarkersAndACImageCollection: TImageCollection;
|
|
end;
|
|
|
|
var
|
|
ImagesModule: TImagesModule;
|
|
|
|
implementation
|
|
|
|
{%CLASSGROUP 'Vcl.Controls.TControl'}
|
|
|
|
{$R *.dfm}
|
|
|
|
end. |