ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/IBXServiceEditor.pas
(Generate patch)

Comparing ibx/trunk/design/IBXServiceEditor.pas (file contents):
Revision 266 by tony, Mon Apr 16 13:45:11 2018 UTC vs.
Revision 267 by tony, Fri Dec 28 10:44:23 2018 UTC

# Line 41 | Line 41 | type
41    TIBXServiceEditorForm = class(TForm)
42      Bevel1: TBevel;
43      CancelBtn: TButton;
44 +    ConfigOverrides: TMemo;
45      ConnectionTypeBtn: TRadioGroup;
46 +    Label10: TLabel;
47      PortNo: TEdit;
48      Label1: TLabel;
49      ServiceParams: TMemo;
# Line 57 | Line 59 | type
59      ServerName: TEdit;
60      Test: TButton;
61      UserName: TEdit;
62 +    UseWireCompression: TCheckBox;
63 +    procedure ConfigOverridesEditingDone(Sender: TObject);
64      procedure ConnectionTypeBtnSelectionChanged(Sender: TObject);
65      procedure PasswordEditingDone(Sender: TObject);
66      procedure ProtocolCloseUp(Sender: TObject);
67      procedure ServiceParamsEditingDone(Sender: TObject);
68      procedure TestClick(Sender: TObject);
69      procedure UserNameEditingDone(Sender: TObject);
70 +    procedure UseWireCompressionEditingDone(Sender: TObject);
71    private
72      { private declarations }
73 +    FChanging: boolean;
74      function Edit: Boolean;
75      procedure AddParam(aName, Value: string);
76      procedure DeleteParam(aName: string);
# Line 115 | Line 121 | begin
121    end;
122   end;
123  
124 + procedure TIBXServiceEditorForm.ConfigOverridesEditingDone(Sender: TObject);
125 + begin
126 +  FChanging := true;
127 +  try
128 +    UseWireCompression.Checked := CompareText(ConfigOverrides.Lines.Values['WireCompression'],'true') = 0;
129 +  finally
130 +    FChanging := false;
131 +  end;
132 + end;
133 +
134   procedure TIBXServiceEditorForm.PasswordEditingDone(Sender: TObject);
135   begin
136    AddParam('password', Password.Text);
# Line 162 | Line 178 | begin
178    AddParam('user_name', UserName.Text);
179   end;
180  
181 < function TIBXServiceEditorForm.Edit: Boolean;
181 > procedure TIBXServiceEditorForm.UseWireCompressionEditingDone(Sender: TObject);
182 > var Index: integer;
183   begin
184 <  if Trim(Service.Params.Text) = '' then
185 <    ServiceParams.Clear
184 >  if FChanging then Exit;
185 >  if UseWireCompression.Checked then
186 >    ConfigOverrides.Lines.Values['WireCompression'] := 'true'
187    else
188 <    ServiceParams.Lines.Assign(Service.Params);
188 >  begin
189 >    Index := ConfigOverrides.Lines.IndexOfName('WireCompression');
190 >    if Index <> -1 then
191 >      ConfigOverrides.Lines.Delete(Index);
192 >  end;
193 > end;
194 >
195 > function TIBXServiceEditorForm.Edit: Boolean;
196 > begin
197 >  ServiceParams.Lines.Assign(Service.Params);
198 >  ConfigOverrides.Lines.Assign(Service.ConfigOverrides);
199  
200    ServerName.Text := Service.ServerName;
201    Protocol.ItemIndex := ord(Service.Protocol);
202    LoginPrompt.Checked := Service.LoginPrompt;
203 +  UseWireCompression.Checked := Service.WireCompression;
204    PortNo.Text := Service.PortNo;
205    ProtocolCloseUp(nil);
206    ConnectionTypeBtnSelectionChanged(nil);
# Line 183 | Line 212 | begin
212      Service.ServerName := ServerName.Text;
213      Service.PortNo := PortNo.Text;
214      Service.Params.Assign(ServiceParams.Lines);
215 +    Service.ConfigOverrides.Assign(ConfigOverrides.Lines);
216      Service.LoginPrompt := LoginPrompt.Checked;
217      Result := True;
218    end;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines