installer/UnitfrmMain.pas
changeset 277 a50090ca6e6a
parent 274 4461dca354a5
child 285 05c677265fbc
     1.1 --- a/installer/UnitfrmMain.pas	Mon Dec 18 20:55:03 2006 +0000
     1.2 +++ b/installer/UnitfrmMain.pas	Mon Dec 18 22:15:04 2006 +0000
     1.3 @@ -122,6 +122,8 @@
     1.4      procedure trvDirectoriesCollapsing(Sender: TObject; Node: TTreeNode;
     1.5        var AllowCollapse: Boolean);
     1.6      procedure trvModsClick(Sender: TObject);
     1.7 +    procedure trvDirectoriesMouseDown(Sender: TObject;
     1.8 +      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
     1.9    private
    1.10      OldProgress: Integer;
    1.11      CurrProgress: Integer;
    1.12 @@ -684,4 +686,15 @@
    1.13      cmdNext.Enabled := False;
    1.14  end;
    1.15  
    1.16 +procedure TfrmMain.trvDirectoriesMouseDown(Sender: TObject;
    1.17 +  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    1.18 +var Node: TTreeNode;
    1.19 +begin
    1.20 +  Node := trvDirectories.GetNodeAt(X, Y);
    1.21 +  if (Assigned(Node)) then begin
    1.22 +    if (Node.DisplayRect(True).Right < X) then
    1.23 +      trvDirectories.Selected := nil;
    1.24 +  end;
    1.25 +end;
    1.26 +
    1.27  end.