dDialogs.pas 506 B

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