From 92d83425c6b0800e702deddf27e21706d31e028d Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Mon, 21 Aug 2017 15:35:42 +0000 Subject: [PATCH] SpkToolbar: Fix compilation after Laz-trunk r55713 git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6005 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/spktoolbar/SpkToolbar/SpkToolbar.pas | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/components/spktoolbar/SpkToolbar/SpkToolbar.pas b/components/spktoolbar/SpkToolbar/SpkToolbar.pas index c083c1fab..5bdb05195 100644 --- a/components/spktoolbar/SpkToolbar/SpkToolbar.pas +++ b/components/spktoolbar/SpkToolbar/SpkToolbar.pas @@ -535,7 +535,11 @@ begin //inherited AlignWithMargins:=true; if AOwner is TForm then + {$IF LCL_FullVersion >= 1090000} + DesignDPI := TForm(AOwner).DesignTimePPI + {$ELSE} DesignDPI := TForm(AOwner).DesignTimeDPI + {$ENDIF} else DesignDPI := ScreenInfo.PixelsPerInchX;