dImages.pas 586 B

123456789101112131415161718192021222324252627282930313233343536373839404142
  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;
  18. type
  19. TDataModuleImages = class(TDataModule)
  20. VirtualImageList: TVirtualImageList;
  21. ImageCollection: TImageCollection;
  22. LightmapLib: TGLMaterialLibrary;
  23. private
  24. public
  25. end;
  26. var
  27. DataModuleImages: TDataModuleImages;
  28. implementation
  29. {%CLASSGROUP 'Vcl.Controls.TControl'}
  30. {$R *.dfm}
  31. end.