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: Resize file panels only once after construction

Browse source
This commit is contained in:
Alexander Koblov 2017-04-16 12:02:43 +00:00
commit b395ca4368
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/fmain.pas
View file

@ -742,6 +742,7 @@ type
public
constructor Create(TheOwner: TComponent); override;
procedure AfterConstruction; override;
Function ActiveFrame: TFileView; // get Active frame
Function NotActiveFrame: TFileView; // get NotActive frame :)
function ActiveNotebook: TFileViewNotebook;
@ -2606,6 +2607,14 @@ begin
Screen.Cursors[crArrowLink] := LoadCursorFromLazarusResource('ArrowLink');
end;
procedure TfrmMain.AfterConstruction;
begin
FResizingFilePanels:= True;
inherited AfterConstruction;
FResizingFilePanels:= False;
pnlNotebooksResize(pnlNotebooks);
end;
procedure TfrmMain.UpdateActionIcons();
var
I: Integer;