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

spktoolbar: Fix compilation for Laz trunk before r57304.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6204 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-02-16 17:05:09 +00:00
parent cbd182c93d
commit 966ef750d3
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -702,12 +702,20 @@ begin
end;
procedure TSpkToolbar.Loaded;
{$IF LCL_FULLVERSION = 1090000}
const
SM_REMOTESESSION = $1000;
// is defined only after Lazarus r57304
{$ENDIF}
begin
inherited;
{$IF LCL_FULLVERSION >= 1090000}
// Needed due to changes of doublebuffering in Laz r57267
// force DoubleBuffered if not used in remote session
if not (csDesigning in ComponentState) then
DoubleBuffered := DoubleBuffered or (GetSystemMetrics(SM_REMOTESESSION)=0);
// force DoubleBuffered if not used in remote session
{$ENDIF}
InternalBeginUpdate;