forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

split view, left page,set focus after the split

This commit is contained in:
Basile Burg 2015-12-20 13:12:17 +01:00
parent e52d83ecda
commit 548221ce0f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_controls.pas
View File

@ -289,6 +289,10 @@ begin
fSplitter.Visible:= true; fSplitter.Visible:= true;
rightp := getPage(fSplittedPageIndex);
rightp.Align := alClient;
showPage(fSplittedPageIndex);
leftp := getPage(fPageIndex); leftp := getPage(fPageIndex);
leftp.Align := alLeft; leftp.Align := alLeft;
if fOldSplitPos = 0 then if fOldSplitPos = 0 then
@ -296,10 +300,6 @@ begin
else else
leftp.Width:= fOldSplitPos; leftp.Width:= fOldSplitPos;
showPage(fPageIndex); showPage(fPageIndex);
rightp := getPage(fSplittedPageIndex);
rightp.Align := alClient;
showPage(fSplittedPageIndex);
end; end;
if fTabs.TabIndex <> fPageIndex then if fTabs.TabIndex <> fPageIndex then