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

ADD: Patch from pestasoft

Browse source
This commit is contained in:
Alexander Koblov 2008-04-29 20:10:14 +00:00
commit a1e785a107
2 changed files with 50 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
fmain.lfm
View file

@ -174,6 +174,16 @@ object frmMain: TfrmMain
ParentColor = False
OnDblClick = lblDriveInfoDblClick
end
object btnLeftDirectoryHotlist: TSpeedButton
Left = 78
Height = 24
Width = 23
Align = alRight
Caption = '*'
Color = clBtnFace
NumGlyphs = 0
OnClick = btnLeftDirectoryHotlistClick
end
end
end
object pnlRight: TPanel
@ -251,6 +261,16 @@ object frmMain: TfrmMain
ParentColor = False
OnDblClick = lblDriveInfoDblClick
end
object btnRightDirectoryHotlist: TSpeedButton
Left = 408
Height = 24
Width = 23
Align = alRight
Caption = '*'
Color = clBtnFace
NumGlyphs = 0
OnClick = btnRightDirectoryHotlistClick
end
end
end
object pnlCommand: TPanel

30
fmain.pas
View file

@ -83,6 +83,8 @@ type
btnF7: TSpeedButton;
btnF8: TSpeedButton;
btnF9: TSpeedButton;
btnLeftDirectoryHotlist: TSpeedButton;
btnRightDirectoryHotlist: TSpeedButton;
dskLeft: TKAStoolBar;
dskRight: TKAStoolBar;
edtCommand: TComboBox;
@ -235,7 +237,9 @@ type
procedure actTransferLeftExecute(Sender: TObject);
procedure actTransferRightExecute(Sender: TObject);
procedure btnLeftClick(Sender: TObject);
procedure btnLeftDirectoryHotlistClick(Sender: TObject);
procedure btnRightClick(Sender: TObject);
procedure btnRightDirectoryHotlistClick(Sender: TObject);
procedure DeleteClick(Sender: TObject);
procedure dskRightChangeLineCount(AddSize: Integer);
procedure dskToolButtonClick(Sender: TObject; NumberOfButton: Integer);
@ -478,6 +482,8 @@ begin
btnLeftUp.Flat := gInterfaceFlat;
btnLeftHome.Visible := gDriveMenuButton;
btnLeftHome.Flat := gInterfaceFlat;
btnLeftDirectoryHotlist.Visible := gDriveMenuButton;
btnLeftDirectoryHotlist.Flat := gInterfaceFlat;
btnRightDrive.Visible := gDriveMenuButton;
btnRightDrive.Flat := gInterfaceFlat;
@ -487,6 +493,8 @@ begin
btnRightUp.Flat := gInterfaceFlat;
btnRightHome.Visible := gDriveMenuButton;;
btnRightHome.Flat := gInterfaceFlat;
btnRightDirectoryHotlist.Visible := gDriveMenuButton;
btnRightDirectoryHotlist.Flat := gInterfaceFlat;
pnlCommand.Visible := gCmdLine;
pnlKeys.Visible := gKeyButtons;
@ -594,6 +602,17 @@ begin
SetActiveFrame(fpLeft);
end;
procedure TfrmMain.btnLeftDirectoryHotlistClick(Sender: TObject);
Var P:TPoint;
begin
inherited;
SetActiveFrame(fpLeft);
CreatePopUpHotDir;// TODO: i thing in future this must call on create or change
p := Classes.Point(btnLeftDirectoryHotlist.Left,btnLeftDirectoryHotlist.Height);
p := pnlLeftTools.ClientToScreen(p);
pmHotList.PopUp(P.x,P.y);
end;
procedure TfrmMain.btnRightClick(Sender: TObject);
begin
with Sender as TSpeedButton do
@ -610,6 +629,17 @@ begin
SetActiveFrame(fpRight);
end;
procedure TfrmMain.btnRightDirectoryHotlistClick(Sender: TObject);
Var P:TPoint;
begin
inherited;
SetActiveFrame(fpRight);
CreatePopUpHotDir;// TODO: i thing in future this must call on create or change
p := Classes.Point(btnRightDirectoryHotlist.Left,btnRightDirectoryHotlist.Height);
p := pnlRightTools.ClientToScreen(p);
pmHotList.PopUp(P.x,P.y);
end;
procedure TfrmMain.actExtractFilesExecute(Sender: TObject);
var
fl : TFileList;