home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / nastroje / d5 / MFTP.ZIP / demo / ftppanel / connect.pas < prev    next >
Pascal/Delphi Source File  |  2000-05-14  |  2KB  |  96 lines
  1. unit connect;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TfrmConnect = class(TForm)
  11.     Image1: TImage;
  12.     Edit1: TEdit;
  13.     Label1: TLabel;
  14.     Label5: TLabel;
  15.     Label6: TLabel;
  16.     Label7: TLabel;
  17.     Edit3: TEdit;
  18.     Edit4: TEdit;
  19.     Edit5: TEdit;
  20.     CheckBox1: TCheckBox;
  21.     Button1: TButton;
  22.     Button2: TButton;
  23.     procedure CheckBox1Click(Sender: TObject);
  24.     procedure Button2Click(Sender: TObject);
  25.     procedure Button1Click(Sender: TObject);
  26.     procedure Edit1Change(Sender: TObject);
  27.     procedure FormCreate(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  33.  
  34. var
  35.   frmConnect: TfrmConnect;
  36.  
  37. implementation
  38.  
  39. uses main;
  40.  
  41. {$R *.DFM}
  42.  
  43. procedure TfrmConnect.CheckBox1Click(Sender: TObject);
  44. var
  45.    B: Boolean;
  46. begin
  47.    B := (CheckBox1.State <> cbChecked);
  48.  
  49.    Label5.Enabled := B;
  50.    Label6.Enabled := B;
  51.    Label7.Enabled := B;
  52.  
  53.    Edit3.Enabled := B;
  54.    Edit4.Enabled := B;
  55.    Edit5.Enabled := B;
  56. end;
  57.  
  58. procedure TfrmConnect.Button2Click(Sender: TObject);
  59. begin
  60.    Close;
  61. end;
  62.  
  63. procedure TfrmConnect.Button1Click(Sender: TObject);
  64. begin
  65.    with frmMain.MFtp1 do
  66.    begin
  67.       Server := Edit1.Text;
  68.       if CheckBox1.State = cbChecked then
  69.       begin
  70.          Username := 'anonymous';
  71.          Password := 'guest@mftp.org';
  72.          Account := '';
  73.       end
  74.       else
  75.       begin
  76.          Username := Edit3.Text;
  77.          Password := Edit4.Text;
  78.          Account := Edit5.Text;
  79.       end;
  80.       Login;
  81.    end;
  82.    Close;
  83. end;
  84.  
  85. procedure TfrmConnect.Edit1Change(Sender: TObject);
  86. begin
  87.    Button1.Enabled := (Trim(Edit1.Text) <> '');
  88. end;
  89.  
  90. procedure TfrmConnect.FormCreate(Sender: TObject);
  91. begin
  92.    CheckBox1Click(Self);
  93. end;
  94.  
  95. end.
  96.