ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/design/ibserviceeditor.pas

Comparing ibx/trunk/design/ibserviceeditor.pas (file contents):
Revision 208 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

#	Line 41 | Line 41 | type
41		TIBServiceEditorForm = class(TForm)
42		Bevel1: TBevel;
43		CancelBtn: TButton;
44	+	PortNo: TEdit;
45	+	Label1: TLabel;
46		ServiceParams: TMemo;
47		Label2: TLabel;
48		Label3: TLabel;
#	Line 137 | Line 139 | begin
139		end;
140		tempService.ServerName := ServerName.Text
141		end;
142	+	tempService.PortNo := PortNo.Text;
143		tempService.Params.Assign(ServiceParams.Lines);
144		tempService.LoginPrompt := true;
145		try
#	Line 166 | Line 169 | begin
169
170		ServerName.Text := Service.ServerName;
171		LoginPrompt.Checked := Service.LoginPrompt;
172	+	PortNo.Text := Service.PortNo;
173		UserName.Text := GetParam('user_name');
174		Password.Text := GetParam('password');
175		RemoteRbtn.Checked := (Service.Protocol <> Local);
#	Line 188 | Line 192 | begin
192		end;
193		Service.Params := ServiceParams.Lines;
194		Service.LoginPrompt := LoginPrompt.Checked;
195	+	Service.PortNo := PortNo.Text;
196		Result := True;
197		end;
198		end;

Diff Legend

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