paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

packagetabs: fixed scrolling increment, fixed make active tab visible on recreate.

Browse Source 
git-svn-id: trunk@50510 -
This commit is contained in:
ondrej 2015-11-26 20:12:12 +00:00
parent 54ec800040
commit 22c38e578f
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/packagetabs/packagetabs_impl.pas
View File

@ -355,8 +355,8 @@ begin
VertScrollBar.Smooth := False;
HorzScrollBar.Tracking := True;
VertScrollBar.Tracking := True;
HorzScrollBar.Increment := 50;
VertScrollBar.Increment := 50;
HorzScrollBar.Increment := TPackageTabButton.GetControlClassDefaultSize.cy;
VertScrollBar.Increment := TPackageTabButton.GetControlClassDefaultSize.cy;
HorzScrollBar.Visible := False;
end;
@ -686,7 +686,7 @@ end;
procedure TPackageTabPanel.RecreateToolBar;
var
I, L, xPkgIndex, xNewIndex, xOldIndex: Integer;
xBtn: TPackageTabButton;
xBtn, xActBtn: TPackageTabButton;
xPackages: TStringList;
xPackage: TIDEPackage;
xEditor, xOldActive: TSourceEditorInterface;
@ -774,6 +774,8 @@ begin
xBtn.ControlStyle := xBtn.ControlStyle + [csDoubleClicks];
xBtn.PopupMenu := FTabButtonMenu;
xBtn.Down := xEditor = xOldActive;
if xBtn.Down then
xActBtn := xBtn;
xBtn.IsOtherFile := xPackages[I][1] = High(Char); // ToDo: do it better...
end;
end;
@ -786,6 +788,9 @@ begin
if Assigned(xOldActive) and (xOldActive <> FWindow.ActiveEditor) then // the pageorder change could change activeeditor
FWindow.ActiveEditor := xOldActive;
if (xActBtn<>nil) and (FPanel is TPackageTabScrollBox) then
TPackageTabScrollBox(FPanel).ScrollInView(xActBtn);
finally
FWindow.EnableAlign;
FWindow.DecUpdateLock;