mirror of
http://gitlab.expertsoft.com.ua/git/expertcad
synced 2026-01-12 00:45:40 +02:00
103 lines
3.0 KiB
ObjectPascal
103 lines
3.0 KiB
ObjectPascal
unit U_Settings;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, ExtCtrls, RzPanel, RzRadGrp, cxControls, cxContainer, cxEdit,
|
|
cxCheckBox, cxLookAndFeelPainters, StdCtrls, cxButtons,
|
|
// POWERCAD
|
|
PCPanel, PCDrawBox, PCDrawing, PowerCad, pcMsbar, XP_Panel, PCTypesUtils,
|
|
DrawObjects, DlgBase, ExtDlgs, PCLayerDlg, OleCtnrs, PCgui, GuiStrings,
|
|
DrawEngine, U_ESCadClasess;
|
|
|
|
|
|
type
|
|
TF_Settings = class(TForm)
|
|
RzGroupBox1: TRzGroupBox;
|
|
cbShowLinesLength: TcxCheckBox;
|
|
cbShowLinesCaptions: TcxCheckBox;
|
|
cbShowConnectorsCaptions: TcxCheckBox;
|
|
bOK: TcxButton;
|
|
bCancel: TcxButton;
|
|
bDefault: TcxButton;
|
|
RzGroupBox2: TRzGroupBox;
|
|
cbAutoSelectTrace: TcxCheckBox;
|
|
procedure bCancelClick(Sender: TObject);
|
|
procedure bOKClick(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure bDefaultClick(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormKeyPress(Sender: TObject; var Key: Char);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
F_Settings: TF_Settings;
|
|
|
|
implementation
|
|
uses USCS_Main, U_CAD, U_Common, U_Layers;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TF_Settings.bCancelClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
procedure TF_Settings.bOKClick(Sender: TObject);
|
|
begin
|
|
try
|
|
GCadForm.FShowLinesLength := cbShowLinesLength.Checked;
|
|
GCadForm.FShowLinesCaptions := cbShowLinesCaptions.Checked;
|
|
GCadForm.FShowConnectorsCaptions := cbShowConnectorsCaptions.Checked;
|
|
GCadForm.FAutoSelectTrace := cbAutoSelectTrace.Checked;
|
|
except
|
|
ShowMessage('EXCEPTION: TF_Settings.bOKClick');
|
|
end;
|
|
end;
|
|
|
|
procedure TF_Settings.FormShow(Sender: TObject);
|
|
begin
|
|
try
|
|
cbShowLinesLength.Checked := GCadForm.FShowLinesLength;
|
|
cbShowLinesCaptions.Checked := GCadForm.FShowLinesCaptions;
|
|
cbShowConnectorsCaptions.Checked := GCadForm.FShowConnectorsCaptions;
|
|
cbAutoSelectTrace.Checked := GCadForm.FAutoSelectTrace;
|
|
bOK.SetFocus;
|
|
except
|
|
ShowMessage('EXCEPTION: TF_Settings.FormShow');
|
|
end;
|
|
end;
|
|
|
|
procedure TF_Settings.bDefaultClick(Sender: TObject);
|
|
begin
|
|
GCadForm.FShowLinesLength := True;
|
|
GCadForm.FShowLinesCaptions := True;
|
|
GCadForm.FShowConnectorsCaptions := True;
|
|
GCadForm.FAutoSelectTrace := False;
|
|
cbShowLinesLength.Checked := GCadForm.FShowLinesLength;
|
|
cbShowLinesCaptions.Checked := GCadForm.FShowLinesCaptions;
|
|
cbShowConnectorsCaptions.Checked := GCadForm.FShowConnectorsCaptions;
|
|
cbAutoSelectTrace.Checked := GCadForm.FAutoSelectTrace;
|
|
end;
|
|
|
|
procedure TF_Settings.FormCreate(Sender: TObject);
|
|
begin
|
|
cbShowLinesLength.Checked := GCadForm.FShowLinesLength;
|
|
cbShowLinesCaptions.Checked := GCadForm.FShowLinesCaptions;
|
|
cbShowConnectorsCaptions.Checked := GCadForm.FShowConnectorsCaptions;
|
|
cbAutoSelectTrace.Checked := GCadForm.FAutoSelectTrace;
|
|
end;
|
|
|
|
procedure TF_Settings.FormKeyPress(Sender: TObject; var Key: Char);
|
|
begin
|
|
if Key = #27 then
|
|
Close;
|
|
end;
|
|
|
|
end.
|