/
dimferon
/
AstrobloQ
Обзор
Документация
Войти
/
dimferon
/
AstrobloQ
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
source/dDialogs.pas
43 строки
798 B
glscene
Added fParadox form
10 июл 2024, 19:45
10 июл 2024, 19:45
485e27d
Код
Авторство
О чём код?
unit dDialogs; interface uses System.SysUtils, System.Classes, Vcl.Dialogs, Vcl.ExtDlgs, gnugettext; type TdmDialogs = class(TDataModule) SaveTextFileDialog: TSaveTextFileDialog; OpenTextFileDialog: TOpenTextFileDialog; OpenDialog: TOpenDialog; SaveDialog: TSaveDialog; OpenPictureDialog: TOpenPictureDialog; SavePictureDialog: TSavePictureDialog; procedure DataModuleCreate(Sender: TObject); private public end; var dmDialogs: TdmDialogs; implementation {%CLASSGROUP 'Vcl.Controls.TControl'} {$R *.dfm} procedure TdmDialogs.DataModuleCreate(Sender: TObject); begin TP_GlobalIgnoreClass(TOpenDialog); TP_GlobalIgnoreClass(TSaveDialog); TP_GlobalIgnoreClass(TOpenTextFileDialog); TP_GlobalIgnoreClass(TSaveTextFileDialog); end; end.