dImages.pas 568 B

1234567891011121314151617181920212223242526272829303132333435
  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, Vcl.BaseImageCollection, Vcl.ImageCollection, System.ImageList,
  11. Vcl.ImgList, Vcl.VirtualImageList, GLS.BaseClasses, GLS.Material;
  12. type
  13. TdmGLSViewer = class(TDataModule)
  14. VirtualImageList: TVirtualImageList;
  15. ImageCollection: TImageCollection;
  16. LightmapLib: TGLMaterialLibrary;
  17. private
  18. public
  19. end;
  20. var
  21. dmGLSViewer: TdmGLSViewer;
  22. implementation
  23. {%CLASSGROUP 'Vcl.Controls.TControl'}
  24. {$R *.dfm}
  25. end.