dGLSViewer.pas 503 B

12345678910111213141516171819202122232425262728293031323334353637
  1. //
  2. // Datamodule for GLSViewer
  3. //
  4. unit dGLSViewer;
  5. interface
  6. uses
  7. System.SysUtils,
  8. System.Classes,
  9. Vcl.Dialogs,
  10. Vcl.ExtDlgs;
  11. type
  12. TdmGLSViewer = class(TDataModule)
  13. ColorDialog: TColorDialog;
  14. OpenDialog: TOpenDialog;
  15. SaveDialog: TSaveDialog;
  16. odTextures: TOpenDialog;
  17. sdTextures: TSaveDialog;
  18. opDialog: TOpenPictureDialog;
  19. private
  20. public
  21. end;
  22. var
  23. dmGLSViewer: TdmGLSViewer;
  24. implementation
  25. {%CLASSGROUP 'Vcl.Controls.TControl'}
  26. {$R *.dfm}
  27. end.