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: Show/hide console by Ctrl+O

Browse source
This commit is contained in:
Alexander Koblov 2022-01-07 18:53:10 +03:00
commit 32d37efad0
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/fmain.pas
View file

@ -1240,8 +1240,19 @@ begin
end;
procedure TfrmMain.ConsoleSplitterMoved(Sender: TObject);
var
AHeight: Integer;
begin
nbConsole.Height := nbConsole.Height + nbConsole.Tag - pnlCommand.Height;
AHeight:= nbConsole.Height + nbConsole.Tag - pnlCommand.Height;
if AHeight > 0 then
begin
nbConsole.Height := AHeight;
cmdConsole.Visible:= True;
end
else begin
cmdConsole.Hide;
nbConsole.Height := 0;
end;
end;
procedure TfrmMain.dskToolButtonMouseDown(Sender: TObject;