Initial commitv0.6.36release-0.6.36-dev

1 files changed, 293 insertions, 0 deletions

diff --git a/UConnectionManager.pas b/UConnectionManager.pas
new file mode 100644
index 0000000..1c1a057
--- /dev/null
+++ b/UConnectionManager.pas
@@ -0,0 +1,293 @@
+(*
+    Tux Commander - UConnectionManager - Connection manager dialog
+    Copyright (C) 2004 Tomas Bzatek <tbzatek@users.sourceforge.net>

+    Check for updates on tuxcmd.sourceforge.net

+

+    This program is free software; you can redistribute it and/or modify

+    it under the terms of the GNU General Public License as published by

+    the Free Software Foundation; either version 2 of the License, or

+    (at your option) any later version.

+

+    This program is distributed in the hope that it will be useful,

+    but WITHOUT ANY WARRANTY; without even the implied warranty of

+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

+    GNU General Public License for more details.

+

+    You should have received a copy of the GNU General Public License

+    along with this program; if not, write to the Free Software

+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

+*)
+unit UConnectionManager;
+
+interface
+
+uses
+  glib2, gdk2, gtk2, pango, SysUtils, Types, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKView,
+  GTKUtils, GTKDialogs, GTKPixbuf, GTKClasses,
+  UCoreClasses;
+
+type
+  TFConnectionManager = class(TGTKDialog)
+    TitleFrame: TGTKFrame;
+    TitleLabel: TGTKLabel;
+    TitleEventBox: TGTKEventBox;
+    TitleIcon: TGTKImage;
+    TitleHBox: TGTKHBox;
+    ListView: TGTKListView;
+    ListViewScrolledWindow: TGTKScrolledWindow;
+    ListViewTable: TGTKTable;
+    AddConnectionButton, EditButton, RemoveButton: TGTKImageButton;
+    procedure FormCreate(Sender: TObject); override;
+    procedure ListViewSelectionChanged(Sender: TObject);
+    procedure FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean);
+    procedure AddConnectionButtonClick(Sender: TObject);
+    procedure EditButtonClick(Sender: TObject);
+    procedure RemoveButtonClick(Sender: TObject);
+    procedure ListViewDblClick(Sender: TObject; Button: TGDKMouseButton; Shift: TShiftState; X, Y: Integer; var Accept: boolean);
+  private
+    procedure FillList;
+  end;
+
+var
+  FConnectionManager: TFConnectionManager;
+
+implementation
+
+uses ULocale, UCoreUtils, UConfig, UCore, UConnectionProperties, UVFSCore;
+
+const Connect_Button_ID = integer(mbOK);
+
+
+procedure TFConnectionManager.FormCreate(Sender: TObject);
+var Column: TGTKTreeViewColumn;
+begin
+  SetDefaultSize(550, 450);
+  Caption := LANGConnMgr_Caption;
+  AddButton(LANGConnMgr_ConnectButton, Connect_Button_ID);
+  Buttons := [mbClose];
+  ShowSeparator := False;
+  TitleEventBox := TGTKEventBox.Create(Self);
+  TitleLabel := TGTKLabel.Create(Self);
+  TitleLabel.Caption := Format('<span size="x-large" weight="ultrabold">%s</span>', [LANGConnMgr_OpenConnection]);
+  TitleLabel.UseMarkup := True;
+  TitleLabel.XAlign := 0;
+  TitleLabel.XPadding := 0;
+  TitleLabel.YPadding := 3;
+  TitleEventBox.ControlState := csPrelight;
+  TitleFrame := TGTKFrame.CreateWithoutLabel(Self);
+  TitleFrame.ShadowType := stShadowOut;
+  TitleIcon := TGTKImage.Create(Self);
+  TitleIcon.SetFromStock('gtk-connect', isLargeToolbar);
+  TitleHBox := TGTKHBox.Create(Self);
+  TitleHBox.Homogeneous := False;
+  TitleHBox.AddControlEx(TGTKEventBox.Create(Self), False, False, 5);
+  TitleHBox.AddControlEx(TitleIcon, False, False, 0);
+  TitleHBox.AddControlEx(TitleLabel, True, True, 10);
+  TitleEventBox.AddControl(TitleHBox);
+  TitleFrame.AddControl(TitleEventBox);
+  ClientArea.AddControlEx(TitleFrame, False, True, 0);
+
+  ListViewTable := TGTKTable.Create(Self);
+  ListViewTable.BorderWidth := 7;
+  ClientArea.AddControlEx(ListViewTable, True, True, 0);
+
+  ListView := TGTKListView.CreateTyped(Self, False, [lcPointer, lcText, lcText]);
+
+  ListView.RulesHint := True;
+  ListView.ShowHeaders := True;
+  Column := ListView.Columns.Add;
+  Column.AddAttribute('text', 1);
+  Column.Resizable := True;
+  Column.FixedWidth := 200;
+  Column.SizingMode := smFixed;
+  Column.Caption := LANGConnMgr_NameColumn;
+  Column.Clickable := True;
+  Column.SortID := 1;
+  Column := ListView.Columns.Add;
+  Column.AddAttribute('text', 2);
+  Column.Resizable := True;
+  Column.SizingMode := smFixed;
+  Column.Caption := LANGConnMgr_URIColumn;
+  Column.Clickable := True;
+  Column.SortID := 2;
+  ListViewScrolledWindow := TGTKScrolledWindow.Create(Self);
+  ListViewScrolledWindow.AddControl(ListView);
+  ListViewScrolledWindow.HorizScrollBarPolicy := sbAutomatic;
+  ListViewScrolledWindow.VertScrollBarPolicy := sbAutomatic;
+  ListViewScrolledWindow.ShadowType := stShadowIn;
+
+  AddConnectionButton := TGTKImageButton.Create(Self);
+  AddConnectionButton.SetFromStock('gtk-add', isSmallToolbar);
+  AddConnectionButton.Caption := LANGConnMgr_AddConnectionButtonCaption;
+  AddConnectionButton.UseUnderline := True;
+  AddConnectionButton.Tooltip := LANGConnMgr_AddConnectionButtonTooltip;
+  EditButton := TGTKImageButton.Create(Self);
+  EditButton.Caption := LANGConnMgr_EditButtonCaption;
+  EditButton.UseUnderline := True;
+  EditButton.Tooltip := LANGConnMgr_EditButtonTooltip;
+  RemoveButton := TGTKImageButton.Create(Self);
+  RemoveButton.SetFromStock('gtk-remove', isSmallToolbar);
+  RemoveButton.Caption := LANGConnMgr_RemoveButtonCaption;
+  RemoveButton.UseUnderline := True;
+  RemoveButton.Tooltip := LANGConnMgr_RemoveButtonTooltip;
+
+  ListViewTable.AddControlEx(0, 1, 3, 5, ListViewScrolledWindow, [taoExpand, taoFill], [taoExpand, taoFill], 0, 5);
+  ListViewTable.AddControlEx(3, 2, 1, 1, AddConnectionButton, [taoShrink, taoFill], [taoShrink], 5, 5);
+  ListViewTable.AddControlEx(3, 3, 1, 1, EditButton, [taoShrink, taoFill], [taoShrink], 5, 5);
+  ListViewTable.AddControlEx(3, 4, 1, 1, RemoveButton, [taoShrink, taoFill], [taoShrink], 5, 5);
+//  ListViewTable.AddControlEx(3, 1, 1, 1, TGTKLabel.Create(Self), [taoShrink, taoFill], [taoExpand, taoFill], 0, 2);
+  ListViewTable.AddControlEx(3, 5, 1, 1, TGTKLabel.Create(Self), [taoShrink, taoFill], [taoExpand, taoFill], 0, 2);
+
+
+  FillList;
+  ListView.OnSelectionChanged := ListViewSelectionChanged;
+  ListView.OnDblClick := ListViewDblClick;
+  ListView.SetFocus;
+  if ListView.Items.Count > 0 then ListView.Items[0].SetCursor(0, False, False, 0, 0);
+  ListViewSelectionChanged(Self);
+  AddConnectionButton.OnClick := AddConnectionButtonClick;
+  EditButton.OnClick := EditButtonClick;
+  RemoveButton.OnClick := RemoveButtonClick;
+  OnKeyDown := FormKeyDown;
+end;
+
+procedure TFConnectionManager.ListViewSelectionChanged(Sender: TObject);
+begin
+  try
+    EditButton.Enabled := Assigned(ListView.Selected);
+    RemoveButton.Enabled := Assigned(ListView.Selected);
+    SetResponseSensitive(Connect_Button_ID, Assigned(ListView.Selected));
+  except end;
+end;
+
+procedure TFConnectionManager.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean);
+begin
+  case Key of
+    GDK_RETURN, GDK_KP_ENTER: if Assigned(ListView.Selected) then ModalResult := mbOK;
+    GDK_ESCAPE: ModalResult := mbCancel;
+  end;
+end;
+
+procedure TFConnectionManager.ListViewDblClick(Sender: TObject; Button: TGDKMouseButton; Shift: TShiftState; X, Y: Integer; var Accept: boolean);
+begin
+  if Assigned(ListView.Selected) then ModalResult := mbOK;
+end;
+    
+(********************************************************************************************************************************)
+(********************************************************************************************************************************)
+procedure TFConnectionManager.AddConnectionButtonClick(Sender: TObject);
+var Item: TGTKListItem;
+    ConnMgrItem: TConnMgrItem;
+begin
+  try
+    FConnectionProperties := TFConnectionProperties.Create(Self);
+    if FConnectionProperties.Run = mbOK then begin
+      ConnMgrItem := TConnMgrItem.Create;
+      with FConnectionProperties do begin
+        ConnMgrItem.ConnectionName := NameEntry.Text;
+        ConnMgrItem.URI := MakeURI(False);
+        ConnMgrItem.ServiceType := Copy(ConnMgrItem.URI, 1, Pos('://', ConnMgrItem.URI) - 1);
+        ConnMgrItem.Server := ServerEntry.Text;
+        ConnMgrItem.Username := UserNameEntry.Text;
+        ConnMgrItem.Password := PasswordEntry.Text;
+        ConnMgrItem.TargetDir := TargetDirEntry.Text;
+        ConnMgrItem.PluginID := '';
+        if PluginOptionMenu.ItemIndex <> 0 then ConnMgrItem.PluginID := TVFSPlugin(PluginList[PluginOptionMenu.ItemIndex - 1]).VFSName;
+      end;
+      ConnectionMgrList.Add(ConnMgrItem);
+      Item := ListView.Items.Add;
+      Item.SetValue(0, ConnMgrItem);
+      Item.SetValue(1, ConnMgrItem.ConnectionName);
+      Item.SetValue(2, FConnectionProperties.MakeURI(True));
+    end;
+  finally
+    FConnectionProperties.Free;
+  end;
+end;
+
+procedure TFConnectionManager.EditButtonClick(Sender: TObject);
+var Item: TGTKListItem;
+    ConnMgrItem: TConnMgrItem;
+    i: integer;
+begin
+  try
+    Item := ListView.Selected;
+    if Item = nil then Exit;
+    ConnMgrItem := Item.AsPointer(0);
+    if ConnMgrItem = nil then Exit;
+    FConnectionProperties := TFConnectionProperties.Create(Self);
+    FConnectionProperties.NameEntry.Text := ConnMgrItem.ConnectionName;
+    FConnectionProperties.URIEntry.Text := ConnMgrItem.URI;
+    FConnectionProperties.ServiceTypeOptionMenuChanged(Sender);
+    //  Find the plugin by PluginID
+    for i := 0 to PluginList.Count - 1 do
+      if TVFSPlugin(PluginList[i]).VFSName = ConnMgrItem.PluginID then begin
+        FConnectionProperties.PluginOptionMenu.ItemIndex := i + 1;
+        Break;
+      end;
+
+    if FConnectionProperties.Run = mbOK then begin
+      with FConnectionProperties do begin
+        ConnMgrItem.ConnectionName := NameEntry.Text;
+        ConnMgrItem.URI := MakeURI(False);
+        ConnMgrItem.ServiceType := Copy(ConnMgrItem.URI, 1, Pos('://', ConnMgrItem.URI) - 1);
+        ConnMgrItem.Server := ServerEntry.Text;
+        ConnMgrItem.Username := UserNameEntry.Text;
+        ConnMgrItem.Password := PasswordEntry.Text;
+        ConnMgrItem.TargetDir := TargetDirEntry.Text;
+        ConnMgrItem.PluginID := '';
+        if PluginOptionMenu.ItemIndex <> 0 then ConnMgrItem.PluginID := TVFSPlugin(PluginList[PluginOptionMenu.ItemIndex - 1]).VFSName;
+      end;
+      Item.SetValue(1, ConnMgrItem.ConnectionName);
+      Item.SetValue(2, FConnectionProperties.MakeURI(True));
+    end;
+  finally
+    FConnectionProperties.Free;
+  end;
+end;
+
+procedure TFConnectionManager.RemoveButtonClick(Sender: TObject);
+var Item: TGTKListItem;
+    ConnMgrItem: TConnMgrItem;
+    i: integer;
+begin
+  Item := ListView.Selected;
+  if Item = nil then Exit;
+  ConnMgrItem := Item.AsPointer(0);
+  if ConnMgrItem = nil then Exit;
+  if Application.MessageBox(Format(LANGConnMgr_DoYouWantDelete, [Item.AsString(1)]),
+                            [mbYes, mbNo], mbQuestion, mbYes, mbNo) = mbYes then
+  begin
+    if ConnectionMgrList.Count > 0 then
+      for i := 0 to ConnectionMgrList.Count - 1 do
+        if ConnectionMgrList[i] = ConnMgrItem then begin
+          ConnectionMgrList.Delete(i);
+          Break;
+        end;
+    ConnMgrItem.Free;
+    ListView.Items.Delete(Item.Index);
+  end;
+end;
+
+procedure TFConnectionManager.FillList;
+var i: integer;
+    Item: TGTKListItem;
+    ConnMgrItem: TConnMgrItem;
+begin
+  if ConnectionMgrList.Count > 0 then
+    for i := 0 to ConnectionMgrList.Count - 1 do begin
+      ConnMgrItem := ConnectionMgrList[i];
+      Item := ListView.Items.Add;
+      Item.SetValue(0, ConnMgrItem);
+      Item.SetValue(1, ConnMgrItem.ConnectionName);
+      Item.SetValue(2, ConstructURI(True, ConnMgrItem.ServiceType, ConnMgrItem.Server, ConnMgrItem.Username,
+                                          ConnMgrItem.Password, ConnMgrItem.TargetDir));
+    end;
+
+end;
+
+
+
+
+end.
+