david
778b05bf9f
- Mustangpeak Common Library - 1.7.0 - EasyListview - 1.7.0 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.Mustangpeak@2 60b41242-d4b9-2247-b156-4ccd40706241
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.
|
|
|