mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Disable moving through controls with TAB in main window.

Browse source
This commit is contained in:
cobines 2009-04-28 14:15:19 +00:00
commit ef57abcecb
2 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/fmain.lfm
View file

@ -24,7 +24,7 @@ object frmMain: TfrmMain
Position = poScreenCenter
ShowHint = True
ShowInTaskBar = stAlways
LCLVersion = '0.9.26.3'
LCLVersion = '0.9.27'
Visible = True
object pnlSyncSize: TPanel
Height = 26
@ -91,7 +91,6 @@ object frmMain: TfrmMain
ClientWidth = 659
FullRepaint = False
TabOrder = 1
TabStop = True
object pnlLeft: TPanel
Left = 1
Height = 323
@ -109,6 +108,7 @@ object frmMain: TfrmMain
Height = 299
Top = 24
Width = 170
TabStop = False
Align = alClient
OnCloseTabClicked = NoteBookCloseTabClicked
OnMouseDown = nbPageMouseDown
@ -211,6 +211,7 @@ object frmMain: TfrmMain
Height = 299
Top = 24
Width = 484
TabStop = False
Align = alClient
OnCloseTabClicked = NoteBookCloseTabClicked
OnMouseDown = nbPageMouseDown
@ -352,6 +353,7 @@ object frmMain: TfrmMain
Height = 139
Top = 1
Width = 655
TabStop = False
Align = alClient
PageIndex = 0
ShowTabs = False
@ -524,6 +526,7 @@ object frmMain: TfrmMain
ParentColor = False
ParentFont = False
TabOrder = 4
TabStop = False
Keystrokes = <
item
Command = 3
@ -1089,7 +1092,7 @@ object frmMain: TfrmMain
object mnuFilesShwSysFiles: TMenuItem
Action = actShowSysFiles
OnClick = actExecute
end
end
end
object mnuConfig: TMenuItem
Caption = 'C&onfiguration'

4
src/framepanel.pas
View file

@ -1556,6 +1556,8 @@ begin
edtPath:=TEdit.Create(lblLPath);
edtPath.Parent:=pnlHeader;
edtPath.Visible:=False;
edtPath.TabStop:=False;
pnlFooter:=TPanel.Create(Self);
pnlFooter.Parent:=Self;
@ -1606,6 +1608,7 @@ begin
edtRename:=TEdit.Create(dgPanel);
edtRename.Parent:=dgPanel;
edtRename.Visible:=False;
edtRename.TabStop:=False;
// now create search panel
pnAltSearch:=TPanel.Create(Self);
@ -1615,6 +1618,7 @@ begin
edtSearch:=TEdit.Create(pnAltSearch);
edtSearch.Parent:=pnAltSearch;
edtSearch.TabStop:=False;
edtSearch.Left:=64;
edtSearch.Top:=1;