mirror of
http://gitlab.expertsoft.com.ua/git/expertcad
synced 2026-01-12 00:45:40 +02:00
101 lines
2.7 KiB
ObjectPascal
101 lines
2.7 KiB
ObjectPascal
unit U_ParamMasterCompl;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, RzButton, RzRadChk, U_MasterComplCommon, ExtCtrls, RzPanel,
|
|
cxLookAndFeelPainters, StdCtrls, cxButtons, siComp, siLngLnk, cxGraphics,
|
|
cxLookAndFeels, Menus;
|
|
|
|
type
|
|
TF_ParamMasterCompl = class(TForm)
|
|
RzGroupBox1: TRzGroupBox;
|
|
Propertyes_CheckBox: TRzCheckBox;
|
|
Interfases_CheckBox: TRzCheckBox;
|
|
Producerr_CheckBox: TRzCheckBox;
|
|
btnOk: TcxButton;
|
|
bCancel: TcxButton;
|
|
lng_Forms: TsiLangLinked;
|
|
procedure btnOkClick(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure Producerr_CheckBoxClick(Sender: TObject);
|
|
procedure Interfases_CheckBoxClick(Sender: TObject);
|
|
procedure Propertyes_CheckBoxClick(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
procedure bCancelClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
|
|
ParamSelect: T_ParamSelect;
|
|
end;
|
|
|
|
var
|
|
F_ParamMasterCompl: TF_ParamMasterCompl;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TF_ParamMasterCompl.btnOkClick(Sender: TObject);
|
|
begin
|
|
ModalResult := mrOk;
|
|
end;
|
|
|
|
procedure TF_ParamMasterCompl.FormShow(Sender: TObject);
|
|
begin
|
|
ParamSelect.ByProducer := True;
|
|
ParamSelect.ByInterfaces := True;
|
|
ParamSelect.ByPropertyes := True;
|
|
Producerr_CheckBox.Checked := true;
|
|
Interfases_CheckBox.Checked := true;
|
|
Propertyes_CheckBox.Checked := true;
|
|
end;
|
|
|
|
procedure TF_ParamMasterCompl.Producerr_CheckBoxClick(Sender: TObject);
|
|
begin
|
|
ParamSelect.ByProducer := Producerr_CheckBox.Checked;
|
|
end;
|
|
|
|
procedure TF_ParamMasterCompl.Interfases_CheckBoxClick(Sender: TObject);
|
|
begin
|
|
ParamSelect.ByInterfaces := Interfases_CheckBox.Checked;
|
|
if Interfases_CheckBox.Checked then
|
|
begin
|
|
Propertyes_CheckBox.Checked := true;
|
|
Propertyes_CheckBox.Enabled := true;
|
|
end
|
|
else
|
|
begin
|
|
Propertyes_CheckBox.Checked := false;
|
|
Propertyes_CheckBox.Enabled := false;
|
|
end;
|
|
end;
|
|
|
|
procedure TF_ParamMasterCompl.Propertyes_CheckBoxClick(Sender: TObject);
|
|
begin
|
|
ParamSelect.ByPropertyes := Interfases_CheckBox.Checked;
|
|
end;
|
|
|
|
|
|
|
|
procedure TF_ParamMasterCompl.FormClose(Sender: TObject;
|
|
var Action: TCloseAction);
|
|
begin
|
|
ParamSelect.ByProducer := Producerr_CheckBox.Checked;
|
|
ParamSelect.ByInterfaces := Interfases_CheckBox.Checked;
|
|
if ParamSelect.ByInterfaces then
|
|
ParamSelect.ByPropertyes := Propertyes_CheckBox.Checked
|
|
else
|
|
ParamSelect.ByPropertyes := False;
|
|
end;
|
|
|
|
procedure TF_ParamMasterCompl.bCancelClick(Sender: TObject);
|
|
begin
|
|
ModalResult := mrCancel;
|
|
end;
|
|
|
|
end.
|