8234977fa9
- fixed bugs... lalala - updated debug-list - fixed comment-bug - now final edition... - updated captions - fixed configs-bug (configs weren't uploaded during FTP installations)
73 lines
1.5 KiB
ObjectPascal
Executable File
73 lines
1.5 KiB
ObjectPascal
Executable File
unit UnitfrmProxy;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
|
StdCtrls, ExtCtrls, Forms, TFlatButtonUnit, TFlatComboBoxUnit,
|
|
TFlatEditUnit;
|
|
|
|
type
|
|
TfrmProxy = class(TForm)
|
|
cmdClose: TFlatButton;
|
|
lblProxy: TLabel;
|
|
txtHost: TFlatEdit;
|
|
cboProxy: TFlatComboBox;
|
|
lblHost: TLabel;
|
|
txtPort: TFlatEdit;
|
|
lblPort: TLabel;
|
|
lblUsername: TLabel;
|
|
txtUsername: TFlatEdit;
|
|
txtPassword: TFlatEdit;
|
|
lblPassword: TLabel;
|
|
procedure cboProxyChange(Sender: TObject);
|
|
procedure txtPortChange(Sender: TObject);
|
|
public
|
|
procedure EnableControls(Enable: Boolean);
|
|
end;
|
|
|
|
var
|
|
frmProxy: TfrmProxy;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
{ TfrmProxy }
|
|
|
|
procedure TfrmProxy.EnableControls(Enable: Boolean);
|
|
begin
|
|
lblHost.Enabled := Enable;
|
|
lblPassword.Enabled := Enable;
|
|
lblPort.Enabled := Enable;
|
|
lblUsername.Enabled := Enable;
|
|
txtHost.Enabled := Enable;
|
|
txtPassword.Enabled := Enable;
|
|
txtPort.Enabled := Enable;
|
|
txtUsername.Enabled := Enable;
|
|
end;
|
|
|
|
procedure TfrmProxy.cboProxyChange(Sender: TObject);
|
|
begin
|
|
EnableControls(cboProxy.ItemIndex <> 0); // 0 = None
|
|
end;
|
|
|
|
procedure TfrmProxy.txtPortChange(Sender: TObject);
|
|
var i: integer;
|
|
begin
|
|
if txtPort.Text = '' then
|
|
txtPort.Text := '8080'
|
|
else begin
|
|
// check if value is numeric...
|
|
for i := Length(txtPort.Text) downto 1 do begin
|
|
if Pos(txtPort.Text[i], '0123456789') = 0 then begin
|
|
txtPort.Text := '8080';
|
|
txtPort.SelStart := 4;
|
|
exit;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
end.
|