1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
unit frmrpcmoduleoptions;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ButtonPanel, StdCtrls;
type
{ TJSONRPCModuleOptionsForm }
TJSONRPCModuleOptionsForm = class(TForm)
ButtonPanel1: TButtonPanel;
CBRegisterHandlers: TCheckBox;
CBRegisterModule: TCheckBox;
ERegModuleClassName: TEdit;
ERegModuleName: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure CBRegisterHandlersChange(Sender: TObject);
procedure CBRegisterModuleChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
function GetHP: String;
function GetJC: String;
function GetRH: Boolean;
function GetRM: Boolean;
procedure SetHP(const AValue: String);
procedure SetJC(const AValue: String);
{ private declarations }
public
{ public declarations }
Property RegisterHandlers : Boolean Read GetRH;
Property RegisterModule : Boolean Read GetRM;
Property JSONRPCClass : String Read GetJC Write SetJC;
Property HTTPPath : String Read GetHP Write SetHP;
end;
var
JSONRPCModuleOptionsForm: TJSONRPCModuleOptionsForm;
implementation
resourcestring
sCaption = 'Create a new JSON-RPC module';
sRegisterJSON = 'Register JSON-RPC handlers in factory';
sJSONClass = 'JSON-RPC class';
sRegisterWebM = 'Register web module';
sHTTPPath = 'HTTP Path';
{$R *.lfm}
{ TJSONRPCModuleOptionsForm }
procedure TJSONRPCModuleOptionsForm.CBRegisterHandlersChange(Sender: TObject);
begin
ERegModuleCLassName.Enabled:=CBRegisterHandlers.Checked;
end;
procedure TJSONRPCModuleOptionsForm.CBRegisterModuleChange(Sender: TObject);
begin
ERegModuleName.Enabled:=CBRegisterModule.Checked;
end;
procedure TJSONRPCModuleOptionsForm.FormCreate(Sender: TObject);
begin
Caption := sCaption;
CBRegisterHandlers.Caption := sRegisterJSON;
CBRegisterModule.Caption := sRegisterWebM;
Label1.Caption:= sJSONClass;
Label2.Caption:= sHTTPPath;
end;
function TJSONRPCModuleOptionsForm.GetHP: String;
begin
Result:=ERegModuleName.Text;
end;
function TJSONRPCModuleOptionsForm.GetJC: String;
begin
Result:=ERegModuleClassName.Text;
end;
function TJSONRPCModuleOptionsForm.GetRH: Boolean;
begin
Result:=CBRegisterHandlers.Checked;
end;
function TJSONRPCModuleOptionsForm.GetRM: Boolean;
begin
Result:=CBRegisterModule.Checked;
end;
procedure TJSONRPCModuleOptionsForm.SetHP(const AValue: String);
begin
ERegModuleName.Text:=AValue;
end;
procedure TJSONRPCModuleOptionsForm.SetJC(const AValue: String);
begin
ERegModuleClassName.Text:=AValue;
end;
end.
|
