48 lines
858 B
ObjectPascal
48 lines
858 B
ObjectPascal
|
unit DatamoduleImagelists;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
{$I ..\..\Source\Compilers.inc}
|
||
|
|
|
||
|
|
uses
|
||
|
|
SysUtils,
|
||
|
|
Classes,
|
||
|
|
ImgList,
|
||
|
|
Controls,
|
||
|
|
{$IFNDEF COMPILER_6_UP}
|
||
|
|
Forms,
|
||
|
|
{$ENDIF}
|
||
|
|
EasyListview;
|
||
|
|
|
||
|
|
type
|
||
|
|
TImagelists = class(TDataModule)
|
||
|
|
ImageListSmall: TImageList;
|
||
|
|
ImageListLarge: TImageList;
|
||
|
|
ImageListExLarge: TImageList;
|
||
|
|
ImageListGroups: TImageList;
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
procedure UseImagesForListview(Listview: TEasyListview);
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
Imagelists: TImagelists;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
{ TImagelists }
|
||
|
|
|
||
|
|
procedure TImagelists.UseImagesForListview(Listview: TEasyListview);
|
||
|
|
begin
|
||
|
|
Listview.ImagesGroup := ImageListGroups;
|
||
|
|
Listview.ImagesSmall := ImageListSmall;
|
||
|
|
Listview.ImagesLarge := ImageListLarge;
|
||
|
|
Listview.ImagesExLarge := ImageListExLarge;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|
||
|
|
|