/
YakuninAV
/
Convertors
Обзор
Документация
Войти
/
YakuninAV
/
Convertors
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
PIR/PIRTableDescriptionForm.pas
54 строки
1 KB
YakuninAV
begin with gitflick
31 июл 2026, 15:21
31 июл 2026, 15:21
1dc0fc6
Код
Авторство
О чём код?
unit PIRTableDescriptionForm; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, PIRTableDescriptorFrame, PIRTypes, Vcl.StdCtrls, Vcl.Buttons; type TfrmTableDsescriptor = class(TForm) framePIRTabDesctipor: TframePIRTabDesctipor; btnApply: TBitBtn; private FDescr: TPIRTableDescriptor; procedure SetDescr(const Value: TPIRTableDescriptor); { Private declarations } public { Public declarations } property Descr: TPIRTableDescriptor read FDescr write SetDescr; end; var frmTableDsescriptor: TfrmTableDsescriptor; function ShowTableDescriptorForm(Descr: TPIRTableDescriptor): Boolean; implementation {$R *.dfm} function ShowTableDescriptorForm(Descr: TPIRTableDescriptor): Boolean; var f: TfrmTableDsescriptor; begin f:=TfrmTableDsescriptor.Create(nil); try f.Descr:=Descr; Result:=(f.ShowModal=mrOk); if Result then Descr:=f.Descr; finally f.Free; end; end; { TfrmTableDsescriptor } procedure TfrmTableDsescriptor.SetDescr(const Value: TPIRTableDescriptor); begin FDescr := Value; framePIRTabDesctipor.TableDescriptor:=Value; end; end.