Summary Table
Categories |
Total Count |
PII |
0 |
URL |
0 |
DNS |
0 |
EKL |
0 |
IP |
0 |
PORT |
0 |
VsID |
0 |
CF |
0 |
AI |
0 |
VPD |
0 |
PL |
0 |
Other |
0 |
File Content
unit mGMV_SystemParameters;
interface
uses
Windows,
Messages,
SysUtils,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
// TRPCB,
StdCtrls,
CheckLst,
ExtCtrls
// , u_Common
;
type
TfraSystemParameters = class(TFrame)
Panel1: TPanel;
pnlBottom: TPanel;
Label1: TLabel;
Label3: TLabel;
clbxVersions: TCheckListBox;
pnlMain: TPanel;
Label2: TLabel;
edtWebLink: TEdit;
cbxAllowUserTemplates: TCheckBox;
pnlHeader: TPanel;
procedure pnlMainResize(Sender: TObject);
private
{ Private declarations }
fOriglstVersions: TStringList;
fOrigsWebLink: string;
fOrigsUserTemplates: Boolean;
Function GetHasChanged: Boolean;
public
// procedure LoadParameters(Broker: TRPCBroker);
// procedure SaveParameters(Broker: TRPCBroker);
procedure LoadParameters;
procedure SaveParameters;
destructor Destroy; override;
Property HasChanged: Boolean read GetHasChanged;
{ Public declarations }
end;
implementation
uses uGMV_Const
//, fROR_PCall
, uGMV_Engine, uGMV_Common;
{$R *.DFM}
//procedure TfraSystemParameters.LoadParameters(Broker: TRPCBroker);
procedure TfraSystemParameters.LoadParameters;
var
lstVersions: TStringList;
sWebLink: string;
sUserTemplates: string;
i: integer;
begin
clbxVersions.Items.Clear;
if not assigned(fOriglstVersions) then
fOriglstVersions := TStringList.Create;
fOriglstVersions.Clear;
// lstVersions := TStringList.Create;
try
// CallRemoteProc(Broker, RPC_PARAMETER, ['GETLST', 'SYS', 'GMV GUI VERSION'], nil,[rpcSilent,rpcNoResChk], lstVersions);
lstVersions := getGUIVersionList;
// CallRemoteProc(Broker, RPC_PARAMETER, ['GETPAR', 'SYS', 'GMV WEBLINK'], nil);
// sWebLink := Broker.Results[0];
sWebLink := getWebLinkAddress;
fOrigsWebLink := sWebLink;
// CallRemoteProc(Broker, RPC_PARAMETER, ['GETPAR', 'SYS', 'GMV ALLOW USER TEMPLATES'], nil);
// sUserTemplates := Broker.Results[0];
sUserTemplates := getSystemParameterByName('GMV ALLOW USER TEMPLATES');
cbxAllowUserTemplates.Checked := (Pos('Y', sUserTemplates) > 0);
fOrigsUserTemplates := cbxAllowUserTemplates.Checked;
edtWebLink.Text := sWebLink;
for i := 1 to lstVersions.Count - 1 do
begin
clbxVersions.Checked[clbxVersions.Items.Add(Piece(lstVersions[i], '^', 1))] := (Pos('Y', Piece(lstVersions[i], '^', 2)) > 0);
fOriglstVersions.Add(Piece(lstVersions[i], '^', 1)+'='+Piece(lstVersions[i], '^', 2));
end;
finally
FreeAndNil(lstVersions);
end;
end;
//procedure TfraSystemParameters.SaveParameters(Broker: TRPCBroker);
procedure TfraSystemParameters.SaveParameters;
var
i: integer;
begin
for i := 0 to clbxVersions.Items.Count - 1 do
// if clbxVersions.Checked[i] then
// CallRemoteProc(Broker, RPC_PARAMETER, ['SETPAR', 'SYS', 'GMV GUI VERSION', clbxVersions.Items[i], '1'], nil)
// else
// CallRemoteProc(Broker, RPC_PARAMETER, ['SETPAR', 'SYS', 'GMV GUI VERSION', clbxVersions.Items[i], '0'], nil);
if clbxVersions.Checked[i] then
setSystemParameter('GMV GUI VERSION', clbxVersions.Items[i], '1')
else
setSystemParameter('GMV GUI VERSION', clbxVersions.Items[i], '0');
// if cbxAllowUserTemplates.Checked then
// CallRemoteProc(Broker, RPC_PARAMETER, ['SETPAR', 'SYS', 'GMV ALLOW USER TEMPLATES', '1', '1'], nil)
// else
// CallRemoteProc(Broker, RPC_PARAMETER, ['SETPAR', 'SYS', 'GMV ALLOW USER TEMPLATES', '1', '0'], nil);
if cbxAllowUserTemplates.Checked then
setSystemParameter('GMV ALLOW USER TEMPLATES', '1', '1')
else
setSystemParameter('GMV ALLOW USER TEMPLATES', '1', '0');
// CallRemoteProc(Broker, RPC_PARAMETER, ['SETPAR', 'SYS', 'GMV WEBLINK', '1', edtWebLink.Text], nil);
setSystemParameter('GMV WEBLINK', '1', edtWebLink.Text);
end;
procedure TfraSystemParameters.pnlMainResize(Sender: TObject);
begin
edtWebLink.Width := pnlMain.Width - (edtWebLink.Left * 2);
end;
Function TfraSystemParameters.GetHasChanged: Boolean;
var
I: Integer;
begin
Result := edtWebLink.Text <> fOrigsWebLink;
if not Result then
Result := (fOrigsUserTemplates <> cbxAllowUserTemplates.Checked);
if not Result then
begin
for i := 0 to clbxVersions.Items.Count - 1 do
begin
if clbxVersions.Checked[i] then
Result := fOriglstVersions.Values[clbxVersions.Items[i]] = 'Y'
else
Result := fOriglstVersions.Values[clbxVersions.Items[i]] <> 'Y';
if Result then
break;
end;
end;
end;
destructor TfraSystemParameters.Destroy;
begin
if assigned(fOriglstVersions) then
fOriglstVersions.Free;
inherited;
end;
end.