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

FIX: Alignment of log and terminal window

Browse source
This commit is contained in:
Alexander Koblov 2011-03-08 11:33:16 +00:00
commit b6e90eaef7
1 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/fmain.pas
View file

@ -3801,22 +3801,28 @@ begin
UpdateNoteBook(nbLeft);
UpdateNoteBook(nbRight);
// Command line
pnlCommand.Visible := gCmdLine;
edtCommand.Tag := 0;
ToggleConsole;
// Log window
seLogWindow.Visible := gLogWindow;
LogSplitter.Visible := gLogWindow;
// Align log window
seLogWindow.Top := 0;
LogSplitter.Top := 0;
FontOptionsToFont(gFonts[dcfLog], seLogWindow.Font);
// Command line
pnlCommand.Visible := gCmdLine;
edtCommand.Tag := 0;
// Align command line and terminal window
pnlCommand.Top := -Height;
ConsoleSplitter.Top:= -Height;
ToggleConsole;
// Function keys
pnlKeys.Visible := gKeyButtons;
if gKeyButtons then
begin
pnlKeys.Height := Canvas.TextHeight('Wg') + 4;
pnlKeys.Top:= Height;
pnlKeys.Top:= Height * 2;
for I := 0 to pnlKeys.ControlCount - 1 do
if pnlKeys.Controls[I] is TSpeedButton then
(pnlKeys.Controls[I] as TSpeedButton).Flat := gInterfaceFlat;