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

UPD: Cleanup disabling actions in command line.

Browse source 
UPD: Rename "CommandLine" -> "Command Line" for consistency with the other names.
This commit is contained in:
cobines 2011-08-27 04:57:20 +00:00
commit f77e4e564c
2 changed files with 16 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/fmain.lfm
View file

@ -4,7 +4,7 @@ object frmMain: TfrmMain
Top = 100
Width = 760
Caption = 'Double Commander'
ClientHeight = 344
ClientHeight = 370
ClientWidth = 760
KeyPreview = True
OnClose = frmMainClose
@ -20,7 +20,7 @@ object frmMain: TfrmMain
SessionProperties = 'nbConsole.Height;seLogWindow.Height'
ShowHint = True
ShowInTaskBar = stAlways
LCLVersion = '0.9.29'
LCLVersion = '0.9.31'
Visible = True
object MainToolBar: TKASToolBar
AnchorSideTop.Control = Owner
@ -122,23 +122,23 @@ object frmMain: TfrmMain
end
object pnlNotebooks: TPanel
Left = 0
Height = 128
Height = 154
Top = 46
Width = 760
Align = alClient
ClientHeight = 128
ClientHeight = 154
ClientWidth = 760
FullRepaint = False
TabOrder = 1
OnResize = pnlNotebooksResize
object pnlLeft: TPanel
Left = 1
Height = 126
Height = 152
Top = 1
Width = 511
Align = alLeft
BevelOuter = bvNone
ClientHeight = 126
ClientHeight = 152
ClientWidth = 511
TabOrder = 0
OnDblClick = pnlLeftRightDblClick
@ -265,12 +265,12 @@ object frmMain: TfrmMain
end
object pnlRight: TPanel
Left = 512
Height = 126
Height = 152
Top = 1
Width = 247
Align = alClient
BevelOuter = bvNone
ClientHeight = 126
ClientHeight = 152
ClientWidth = 247
TabOrder = 1
OnDblClick = pnlLeftRightDblClick
@ -410,7 +410,7 @@ object frmMain: TfrmMain
object PanelAllProgress: TPanel
Left = 3
Height = 0
Top = 174
Top = 200
Width = 754
Align = alBottom
BorderSpacing.Left = 3
@ -429,6 +429,8 @@ object frmMain: TfrmMain
Height = 0
Top = 0
Width = 755
HorzScrollBar.Page = 755
VertScrollBar.Page = 1
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True
TabOrder = 0
@ -442,7 +444,7 @@ object frmMain: TfrmMain
Cursor = crVSplit
Left = 0
Height = 3
Top = 177
Top = 203
Width = 760
Align = alBottom
AutoSnap = False
@ -454,7 +456,7 @@ object frmMain: TfrmMain
AnchorSideBottom.Control = LogSplitter
Left = 0
Height = 89
Top = 180
Top = 206
Width = 760
Align = alBottom
AutoSize = True
@ -499,7 +501,6 @@ object frmMain: TfrmMain
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
ItemHeight = 21
OnEnter = edtCommandEnter
OnExit = edtCommandExit
OnKeyDown = edtCommandKeyDown
TabOrder = 0
@ -527,7 +528,7 @@ object frmMain: TfrmMain
Cursor = crVSplit
Left = 0
Height = 4
Top = 269
Top = 295
Width = 760
Align = alBottom
AutoSnap = False
@ -539,7 +540,7 @@ object frmMain: TfrmMain
AnchorSideBottom.Control = pnlKeys
Left = 0
Height = 51
Top = 273
Top = 299
Width = 760
Align = alBottom
Font.Height = -16

12
src/fmain.pas
View file

@ -485,7 +485,6 @@ type
procedure FileViewReload(FileView: TFileView);
procedure edtCommandKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure edtCommandEnter(Sender: TObject);
procedure edtCommandExit(Sender: TObject);
procedure tbChangeDirClick(Sender: TObject);
procedure tbCopyClick(Sender: TObject);
@ -705,7 +704,7 @@ begin
FResizingFilePanels := False;
HMMainForm := HotMan.Register(Self, 'Main');
HotMan.Register(edtCommand, 'CommandLine');
HotMan.Register(edtCommand, 'Command Line');
nbLeft := CreateNotebook(pnlLeft, fpLeft);
nbRight := CreateNotebook(pnlRight, fpRight);
@ -3937,15 +3936,6 @@ begin
end;
end;
procedure TfrmMain.edtCommandEnter(Sender: TObject);
begin
// Which actions should be active in the command line.
Actions.EnableAction('AddPathToCmdLine', True);
Actions.EnableAction('AddFilenameToCmdLine', True);
Actions.EnableAction('AddPathAndFilenameToCmdLine', True);
Actions.EnableAction('ShowCmdLineHistory', True);
end;
procedure TfrmMain.edtCommandExit(Sender: TObject);
begin
edtCommand.Tag:= 0;