dImages.pas 634 B

12345678910111213141516171819202122232425262728293031323334353637383940414243
  1. //
  2. // Datamodule for GLSViewer
  3. //
  4. unit dImages;
  5. interface
  6. uses
  7. System.SysUtils,
  8. System.Classes,
  9. Vcl.Dialogs,
  10. Vcl.ExtDlgs,
  11. Vcl.BaseImageCollection,
  12. Vcl.ImageCollection,
  13. System.ImageList,
  14. Vcl.ImgList,
  15. Vcl.VirtualImageList,
  16. GLS.BaseClasses,
  17. GLS.Material, Vcl.Controls;
  18. type
  19. TDataModuleImages = class(TDataModule)
  20. VirtualImageList: TVirtualImageList;
  21. ImageCollection: TImageCollection;
  22. LightmapLib: TGLMaterialLibrary;
  23. ImageListObjects: TImageList;
  24. private
  25. public
  26. end;
  27. var
  28. DataModuleImages: TDataModuleImages;
  29. implementation
  30. {%CLASSGROUP 'Vcl.Controls.TControl'}
  31. {$R *.dfm}
  32. end.