dDialogs.pas 500 B

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