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

spktoolbar: Improved handling of DoubleBuffered.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6203 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-02-16 16:46:53 +00:00
parent 235da117a9
commit cbd182c93d
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -558,7 +558,6 @@ begin
// Initialization of inherited property // Initialization of inherited property
Align := alTop; Align := alTop;
DoubleBuffered := true; // required after Laz 1.9
//todo: not found in lcl //todo: not found in lcl
//inherited AlignWithMargins:=true; //inherited AlignWithMargins:=true;
@ -706,6 +705,10 @@ procedure TSpkToolbar.Loaded;
begin begin
inherited; inherited;
if not (csDesigning in ComponentState) then
DoubleBuffered := DoubleBuffered or (GetSystemMetrics(SM_REMOTESESSION)=0);
// force DoubleBuffered if not used in remote session
InternalBeginUpdate; InternalBeginUpdate;
if FTabs.ListState = lsNeedsProcessing then if FTabs.ListState = lsNeedsProcessing then