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

SpkToolbar: Fix compilation after Laz-trunk r55713

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6005 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-08-21 15:35:42 +00:00
parent eac3afadb9
commit 92d83425c6
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -535,7 +535,11 @@ begin
//inherited AlignWithMargins:=true; //inherited AlignWithMargins:=true;
if AOwner is TForm then if AOwner is TForm then
{$IF LCL_FullVersion >= 1090000}
DesignDPI := TForm(AOwner).DesignTimePPI
{$ELSE}
DesignDPI := TForm(AOwner).DesignTimeDPI DesignDPI := TForm(AOwner).DesignTimeDPI
{$ENDIF}
else else
DesignDPI := ScreenInfo.PixelsPerInchX; DesignDPI := ScreenInfo.PixelsPerInchX;