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

packagetabs: highDPI support

Browse Source 
git-svn-id: trunk@53620 -
This commit is contained in:
ondrej 2016-12-09 10:39:42 +00:00
parent 6e32346069
commit 547523b49a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/packagetabs/packagetabs_impl.pas
View File

@ -907,7 +907,7 @@ begin
xLbl.Caption := xPkgItem.Title;
xLbl.Parent := FPanel;
xLbl.PopupMenu := FTabLabelMenu;
xLbl.Height := TPackageTabButton.GetControlClassDefaultSize.cy;
xLbl.Height := FPanel.ScaleCoord(TPackageTabButton.GetControlClassDefaultSize.cy);
xLbl.OnCloseAllFiles := @CloseAllFiles;
if FPanel is TPackageTabScrollBox then
begin