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: Open new tab by double click on panel

Browse source
This commit is contained in:
Alexander Koblov 2009-01-29 20:23:19 +00:00
commit bd324c4bc9
2 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
fmain.lfm
View file

@ -114,6 +114,7 @@ object frmMain: TfrmMain
ClientHeight = 162
ClientWidth = 170
TabOrder = 0
OnDblClick = pnlLeftRightDblClick
object nbLeft: TNotebook
Height = 138
Top = 24
@ -213,6 +214,7 @@ object frmMain: TfrmMain
ClientHeight = 162
ClientWidth = 502
TabOrder = 1
OnDblClick = pnlLeftRightDblClick
object nbRight: TNotebook
Height = 138
Top = 24

13
fmain.pas
View file

@ -341,6 +341,7 @@ type
procedure framedgPanelMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FramedgPanelDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure pnlLeftRightDblClick(Sender: TObject);
procedure seLogWindowSpecialLineColors(Sender: TObject; Line: integer;
var Special: boolean; var FG, BG: TColor);
procedure ShowPathEdit;
@ -2186,6 +2187,18 @@ begin
end; // case
end;
procedure TfrmMain.pnlLeftRightDblClick(Sender: TObject);
begin
if Sender is TPanel then
with (Sender as TPanel) do
begin
if Name = 'pnlLeft' then
Actions.cm_NewTab('nbLeft')
else if Name = 'pnlRight' then
Actions.cm_NewTab('nbRight');
end;
end;
procedure TfrmMain.seLogWindowSpecialLineColors(Sender: TObject; Line: integer;
var Special: boolean; var FG, BG: TColor);
var