diff options
Diffstat (limited to 'UQuickConnect.pas')
| -rw-r--r-- | UQuickConnect.pas | 349 |
1 files changed, 349 insertions, 0 deletions
diff --git a/UQuickConnect.pas b/UQuickConnect.pas new file mode 100644 index 0000000..d92e335 --- /dev/null +++ b/UQuickConnect.pas @@ -0,0 +1,349 @@ +(* + Tux Commander - UQuickConnect - Quick connection dialog + Copyright (C) 2008 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 UQuickConnect; + +interface + +uses + glib2, gdk2, gtk2, pango, SysUtils, Types, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKView, + GTKUtils, GTKDialogs, GTKPixbuf, GTKClasses, GTKMenus, + UCore, UCoreClasses, UVFSCore, UEngines, UConnectionManager; + +type + TFQuickConnect = class(TGTKDialog) + TitleFrame: TGTKFrame; + TitleLabel: TGTKLabel; + TitleEventBox: TGTKEventBox; + TitleIcon: TGTKImage; + TitleHBox: TGTKHBox; + Table: TGTKTable; + ActionButtonBox: TGTKHButtonBox; + ConnectButton, StopButton, CloseButton: TGTKButton; + Label1, Label2: TGTKLabel; + URIComboBox: TGTKCombo; + PluginOptionMenu: TGTKOptionMenu; + procedure FormCreate(Sender: TObject); override; + procedure FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormResponse(Sender: TObject; const ResponseID: integer); + procedure CloseButtonClick(Sender: TObject); + procedure ConnectButtonClick(Sender: TObject); + procedure StopButtonClick(Sender: TObject); + procedure ComboBoxKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean); + procedure ComboBoxChanged(Sender: TObject); + private + AFConnectionManager: TFConnectionManager; + SavedData: string; + procedure DoConnect; + public + SourcePanelEngine: TPanelEngine; + ConnectedEngine: TVFSEngine; + ConnectionManager: TFConnectionManager; + end; + +var + FQuickConnect: TFQuickConnect; + +implementation + +uses ULocale, UCoreUtils, UConfig, UConnectionProperties, UGnome, uVFSprototypes; + + +procedure TFQuickConnect.FormCreate(Sender: TObject); +var i: integer; + MenuItem: TGTKMenuItem; +begin + SavedData := ''; + ConnectedEngine := nil; + ConnectionManager := nil; + AFConnectionManager := nil; + SetDefaultSize(435, 200); + Caption := 'Quick connect'; + Buttons := []; + ShowSeparator := False; + + ConnectButton := TGTKButton.Create(Self); + ConnectButton.Caption := LANGConnMgr_ConnectButton; +// ConnectButton.Default := True; + CloseButton := TGTKButton.CreateFromStock(Self, GTK_STOCK_CLOSE); + StopButton := TGTKButton.CreateFromStock(Self, GTK_STOCK_STOP); + StopButton.Visible := False; + StopButton.Enabled := False; +// Default := ConnectButton; + ActionButtonBox := TGTKHButtonBox.Create(Self); + ActionButtonBox.Layout := blEnd; + ActionButtonBox.Spacing := 10; + ActionButtonBox.BorderWidth := 0; + ActionButtonBox.AddControlEnd(CloseButton); + ActionButtonBox.AddControlEnd(ConnectButton); + ActionButtonBox.AddControlEnd(StopButton); + + ActionArea.AddControlEx(ActionButtonBox, False, False, 0); + + TitleEventBox := TGTKEventBox.Create(Self); + TitleLabel := TGTKLabel.Create(Self); + TitleLabel.Caption := Format('<span size="x-large" weight="ultrabold">%s</span>', ['Quick connect']); + 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); + + Table := TGTKTable.Create(Self); + Table.BorderWidth := 25; + ClientArea.AddControlEx(Table, True, True, 0); + + URIComboBox := TGtkCombo.Create(Self); + URIComboBox.DisableActivate; + PluginOptionMenu := TGTKOptionMenu.Create(Self); + + Label1 := TGTKLabel.Create(Self); + Label1.Caption := Format('<span weight="ultrabold">%s</span>', ['C_onnect to URI:']); + Label1.FocusControl := URIComboBox.Entry; + Label1.UseMarkup := True; + Label1.UseUnderline := True; + Label1.XAlign := 0; + Label2 := TGTKLabel.Create(Self); + Label2.Caption := LANGConnProp_VFSModule; + Label2.FocusControl := PluginOptionMenu; + Label2.UseUnderline := True; + Label2.XAlign := 0; + + if QuickConnectHistory.Count > 0 then + for i := 0 to QuickConnectHistory.Count - 1 do + URIComboBox.Items.Append(QuickConnectHistory[i]); + URIComboBox.Entry.Text := ''; + + // Fill the plugins menu + MenuItem := TGTKMenuItem.CreateTyped(Self, itLabel); + MenuItem.Caption := LANGConnProp_MenuItemCaption; + PluginOptionMenu.Items.Add(MenuItem); + for i := 0 to PluginList.Count - 1 do begin + MenuItem := TGTKMenuItem.CreateTyped(Self, itImageText); + MenuItem.SetCaptionPlain(Format('%s [%s]', [TVFSPlugin(PluginList[i]).VFSName, + ExtractFileName(TVFSPlugin(PluginList[i]).FullPath)])); + PluginOptionMenu.Items.Add(MenuItem); + end; + + // Find last used plugin + if Length(Trim(ConfQuickConnectPluginID)) > 0 then + for i := 0 to PluginList.Count - 1 do + if TVFSPlugin(PluginList[i]).VFSName = ConfQuickConnectPluginID then begin + PluginOptionMenu.ItemIndex := i + 1; + Break; + end; + +// Table.AddControlEx(1, 1, 2, 1, TGTKEventBox.Create(Self), [taoExpand, taoFill], [taoShrink], 0, 2); + Table.AddControlEx(0, 0, 2, 1, Label1, [taoShrink, taoFill], [taoShrink], 0, 2); + Table.AddControlEx(0, 1, 2, 1, URIComboBox, [taoExpand, taoFill], [taoShrink], 0, 5); + Table.AddControlEx(0, 2, 1, 1, Label2, [taoShrink, taoFill], [taoShrink], 10, 5); + Table.AddControlEx(1, 2, 1, 1, PluginOptionMenu, [taoExpand, taoFill], [taoShrink], 0, 5); + + CloseButton.OnClick := CloseButtonClick; + ConnectButton.OnClick := ConnectButtonClick; + StopButton.OnClick := StopButtonClick; + OnKeyDown := FormKeyDown; + OnClose := FormClose; + OnResponse := FormResponse; + URIComboBox.Entry.OnKeyDown := ComboBoxKeyDown; + URIComboBox.Entry.OnChanged := ComboBoxChanged; + ComboBoxChanged(Sender); +end; + +procedure TFQuickConnect.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean); +begin + case Key of + GDK_RETURN, GDK_KP_ENTER: if StopButton.Visible then StopButtonClick(Sender) + else DoConnect; + GDK_ESCAPE: begin + Accept := False; + if StopButton.Visible then StopButtonClick(Sender) + else ModalResult := mbCancel; + end; + end; +end; + +procedure TFQuickConnect.ComboBoxKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean); +var Orig, s: string; + i: integer; +begin + case Key of + GDK_UP, GDK_DOWN: if Shift = [] then begin + Accept := False; + if QuickConnectHistory.Count > 0 then begin + Orig := Trim(URIComboBox.Entry.Text); + i := QuickConnectHistory.IndexOf(Orig); + + if Key = GDK_DOWN then begin + if i < 0 then begin + SavedData := Orig; + i := 0; + end else + if QuickConnectHistory.Count > i + 1 then Inc(i); + s := QuickConnectHistory[i]; + end else begin + if i < 0 then Exit else + if i = 0 then begin + s := SavedData; + SavedData := ''; + end else + if QuickConnectHistory.Count > i then s := QuickConnectHistory[i - 1]; + end; + + URIComboBox.Entry.Text := s; + URIComboBox.Entry.SetFocus; + URIComboBox.Entry.SelectAll; + end; + end; + end; +end; + +procedure TFQuickConnect.ComboBoxChanged(Sender: TObject); +begin + ConnectButton.Enabled := Length(Trim(URIComboBox.Entry.Text)) > 0; +end; + +procedure TFQuickConnect.FormClose(Sender: TObject; var Action: TCloseAction); +begin + if Length(Trim(URIComboBox.Entry.Text)) > 0 then + SaveItemToHistory(URIComboBox.Entry.Text, QuickConnectHistory); + if PluginOptionMenu.ItemIndex <> 0 + then ConfQuickConnectPluginID := TVFSPlugin(PluginList[PluginOptionMenu.ItemIndex - 1]).VFSName + else ConfQuickConnectPluginID := ''; +end; + +procedure TFQuickConnect.FormResponse(Sender: TObject; const ResponseID: integer); +var Action: TCloseAction; +begin + FormClose(Sender, Action); +end; + +(********************************************************************************************************************************) +procedure TFQuickConnect.CloseButtonClick(Sender: TObject); +begin + ModalResult := mbCancel; +end; + +procedure TFQuickConnect.ConnectButtonClick(Sender: TObject); +begin + DoConnect; +end; + +procedure TFQuickConnect.StopButtonClick(Sender: TObject); +begin + if (AFConnectionManager <> nil) and (AFConnectionManager.Thread <> nil) then + AFConnectionManager.Thread.FCancelRequested := True; +end; + +procedure TFQuickConnect.DoConnect; +var Engine: TVFSEngine; + i, j: integer; + VFSPlugin: TVFSPlugin; + Scheme: string; +begin + if ConnectionManager <> nil then AFConnectionManager := ConnectionManager + else AFConnectionManager := TFConnectionManager.Create(Self); + + if PluginList.Count = 0 then begin + Application.MessageBox(PGtkWindow(FWidget), LANGThereIsNoModuleAvailable, [mbOK], mbError, mbOK, mbOK); + Exit; + end; + + // Find VFS module to use for this connection + VFSPlugin := nil; + if PluginOptionMenu.ItemIndex <> 0 then ConfQuickConnectPluginID := TVFSPlugin(PluginList[PluginOptionMenu.ItemIndex - 1]).VFSName + else ConfQuickConnectPluginID := ''; + if Length(ConfQuickConnectPluginID) > 0 then + for i := 0 to PluginList.Count - 1 do + if TVFSPlugin(PluginList[i]).VFSName = ConfQuickConnectPluginID then begin + VFSPlugin := PluginList[i]; + Break; + end; + if VFSPlugin = nil then begin + Scheme := ''; + if Pos('://', URIComboBox.Entry.Text) > 0 then + Scheme := Copy(URIComboBox.Entry.Text, 1, Pos('://', URIComboBox.Entry.Text) - 1); + for i := 0 to PluginList.Count - 1 do begin + if Length(TVFSPlugin(PluginList[i]).Services) > 0 then + for j := 0 to Length(TVFSPlugin(PluginList[i]).Services) - 1 do + if WideCompareText(TVFSPlugin(PluginList[i]).Services[j], Scheme) = 0 then begin + VFSPlugin := PluginList[i]; + Break; + end; + if VFSPlugin <> nil then Break; + end; + if VFSPlugin = nil then VFSPlugin := PluginList[0]; // Fallback in hope some other plugin can handle it + end; + + if (SourcePanelEngine is TVFSEngine) and (Application.MessageBox(PGtkWindow(FWidget), LANGCloseOpenConnection, [mbYes, mbNo], mbWarning, mbYes, mbNo) <> mbYes) then Exit; + + Table.Enabled := False; + CloseButton.Enabled := False; + ConnectButton.Enabled := False; + ConnectButton.Visible := False; + StopButton.Enabled := True; + StopButton.Visible := True; + StopButton.Default := True; + StopButton.SetFocus; + + // Construct the VFS Engine and try to open the connection + Engine := TVFSEngine.Create(VFSPlugin); + Engine.ParentEngine := SourcePanelEngine; + Engine.SavePath := SourcePanelEngine.Path; + Engine.OpenedFromQuickConnect := True; + + if not AFConnectionManager.DoConnectInternal(URIComboBox.Entry.Text, Engine, FWidget) then begin + if not AFConnectionManager.FSilenceError then Application.MessageBox(PGtkWindow(FWidget), LANGCouldntOpenURI, [mbOK], mbError, mbOK, mbOK); + Table.Enabled := True; + CloseButton.Enabled := True; + ConnectButton.Enabled := True; + ConnectButton.Visible := True; + StopButton.Visible := False; + StopButton.Enabled := False; + URIComboBox.Entry.SetFocus; + Engine.Free; + Exit; + end; + + Engine.Password := ''; // Security precaution + StopButton.Enabled := False; + ConnectedEngine := Engine; + + if ConnectionManager = nil then AFConnectionManager.Free; + ModalResult := mbOK; +end; + + + +end. + + |