quickfix for ftp function mmsource-1.3d
authorChristian Hammacher <bmasterc@gmail.com>
Mon Dec 18 22:15:04 2006 +0000 (2006-12-18)
changeset 277a50090ca6e6a
parent 276 82d4caf395c6
child 278 614ea295cd25
quickfix for ftp function
installer/MMS_Installer.exe
installer/UnitfrmMain.dfm
installer/UnitfrmMain.pas
     1.1 Binary file installer/MMS_Installer.exe has changed
     2.1 --- a/installer/UnitfrmMain.dfm	Mon Dec 18 20:55:03 2006 +0000
     2.2 +++ b/installer/UnitfrmMain.dfm	Mon Dec 18 22:15:04 2006 +0000
     2.3 @@ -11109,6 +11109,7 @@
     2.4            OnCollapsing = trvDirectoriesCollapsing
     2.5            OnExpanding = trvDirectoriesExpanding
     2.6            OnExpanded = trvDirectoriesExpanded
     2.7 +          OnMouseDown = trvDirectoriesMouseDown
     2.8          end
     2.9        end
    2.10        object pnlOS: TPanel
     3.1 --- a/installer/UnitfrmMain.pas	Mon Dec 18 20:55:03 2006 +0000
     3.2 +++ b/installer/UnitfrmMain.pas	Mon Dec 18 22:15:04 2006 +0000
     3.3 @@ -122,6 +122,8 @@
     3.4      procedure trvDirectoriesCollapsing(Sender: TObject; Node: TTreeNode;
     3.5        var AllowCollapse: Boolean);
     3.6      procedure trvModsClick(Sender: TObject);
     3.7 +    procedure trvDirectoriesMouseDown(Sender: TObject;
     3.8 +      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
     3.9    private
    3.10      OldProgress: Integer;
    3.11      CurrProgress: Integer;
    3.12 @@ -684,4 +686,15 @@
    3.13      cmdNext.Enabled := False;
    3.14  end;
    3.15  
    3.16 +procedure TfrmMain.trvDirectoriesMouseDown(Sender: TObject;
    3.17 +  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    3.18 +var Node: TTreeNode;
    3.19 +begin
    3.20 +  Node := trvDirectories.GetNodeAt(X, Y);
    3.21 +  if (Assigned(Node)) then begin
    3.22 +    if (Node.DisplayRect(True).Right < X) then
    3.23 +      trvDirectories.Selected := nil;
    3.24 +  end;
    3.25 +end;
    3.26 +
    3.27  end.