pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

spkToolbar: A more general solution to issue #37961 than r7786

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7787 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-10-20 16:09:14 +00:00
parent ee669bbd95
commit 8bdb1bd4d4
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/spktoolbar/SpkToolbar/SpkToolbar.pas
View File

@@ -647,7 +647,7 @@ begin
//todo: not found in lcl //todo: not found in lcl
//inherited AlignWithMargins:=true; //inherited AlignWithMargins:=true;
if (AOwner is TForm) or (AOwner is TFrame) then if (AOwner is TCustomDesignControl) then // form or frame
SpkInitLayoutConsts(96); // This default dpi value is ignored for LCL scaling SpkInitLayoutConsts(96); // This default dpi value is ignored for LCL scaling
// Height := CalcToolbarHeight; // Height := CalcToolbarHeight;