mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

B1658677

Browse source
This commit is contained in:
Attid 2007-02-13 10:22:29 +00:00
commit f11fae0393
1 changed files with 22 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

27
fmain.pas
View file

@ -41,7 +41,7 @@ uses
LResources,
Graphics, Forms, Menus, Controls, Dialogs, ComCtrls,
StdCtrls, ExtCtrls,ActnList,Buttons,
SysUtils, Classes, {uFilePanel,} fLngForm, framePanel, FileCtrl, Grids,
SysUtils, Classes, {uFilePanel,} fLngForm, framePanel, {FileCtrl,} Grids,
KASToolBar;
const
@ -277,6 +277,7 @@ type
procedure CreatePopUpHotDir;
procedure CreatePopUpDirHistory;
procedure miHotAddClick(Sender: TObject);
procedure miHotDeleteClick(Sender: TObject);
procedure miHotConfClick(Sender: TObject);
procedure CalculateSpace(bDisplayMessage:Boolean);
procedure RenameFile(sDestPath:String); // this is for F6 and Shift+F6
@ -1221,7 +1222,7 @@ var
p:TPoint;
begin
inherited;
CreatePopUpHotDir;
CreatePopUpHotDir;// TODO: i thing in future this must call on create or change
p:=ActiveFrame.dgPanel.ClientToScreen(Point(0,0));
pmHotList.Popup(p.X,p.Y);
end;
@ -1241,6 +1242,13 @@ begin
// OnClick:=HotDirSelected;
end;
procedure TfrmMain.miHotDeleteClick(Sender: TObject);
var i : integer;
begin
i:= glsHotDir.IndexOf(ActiveFrame.ActiveDir);
if i > 0 then glsHotDir.Delete(i);
end;
procedure TfrmMain.miHotConfClick(Sender: TObject);
begin
inherited;
@ -1298,10 +1306,19 @@ begin
mi:=TMenuItem.Create(pmHotList);
mi.Caption:='-';
pmHotList.Items.Add(mi);
// now add ADD item
// now add ADD or DELETE item
mi:=TMenuItem.Create(pmHotList);
mi.Caption:=Format(lngGetString(clngMsgPopUpHotAdd),[ActiveFrame.ActiveDir]);
mi.OnClick:=@miHotAddClick;
if glsHotDir.IndexOf(ActiveFrame.ActiveDir)>0 then
begin
mi.Caption:=Format(lngGetString(clngMsgPopUpHotDelete),[ActiveFrame.ActiveDir]);
mi.OnClick:=@miHotDeleteClick;
end
else
begin
mi.Caption:=Format(lngGetString(clngMsgPopUpHotAdd),[ActiveFrame.ActiveDir]);
mi.OnClick:=@miHotAddClick;
end;
pmHotList.Items.Add(mi);
// now add configure item