paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-02 15:30:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: syncompletion: use DoubleBuffered

Browse Source 
git-svn-id: trunk@57834 -
This commit is contained in:
ondrej 2018-05-07 23:59:04 +00:00
parent fc9c595505
commit 8a9c1b9922
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/synedit/syncompletion.pas
View File

@ -607,6 +607,7 @@ begin
KeyPreview:= True;
// we have no resource => must be constructed using CreateNew
inherited CreateNew(AOwner, 1);
DoubleBuffered := GetSystemMetrics(SM_REMOTESESSION)=0;
FItemList := TStringList.Create;
Scroll := TSynBaseCompletionFormScrollBar.Create(self);
Scroll.Kind := sbVertical;