paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 11:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: set DoubleBuffered in Loaded and not in constructor

Browse Source 
git-svn-id: trunk@57313 -
This commit is contained in:
ondrej 2018-02-16 14:03:40 +00:00
parent 04519400dc
commit 2d90a836ed
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/synedit/synedit.pp
View File

@ -98,13 +98,7 @@ uses
SynGutterBase, SynGutter, SynGutterCodeFolding, SynGutterChanges,
SynGutterLineNumber, SynGutterMarks, SynGutterLineOverview,
SynEditMiscClasses, SynEditHighlighter, LazSynTextArea, SynTextDrawer, SynEditTextBidiChars,
LResources, Clipbrd, StdActns
{$IF DEFINED(LCLWin32)}
, win32proc
{$ENDIF}
;
LResources, Clipbrd, StdActns;
const
ScrollBarWidth=0;
@ -2109,11 +2103,6 @@ begin
RecreateMarkList;
{$IF NOT DEFINED(EnableDoubleBuf) AND DEFINED(LCLWin32)}
if not (csDesigning in ComponentState) then
DoubleBuffered := ((WindowsVersion <= wvVista) and (GetSystemMetrics(SM_REMOTESESSION)=0));
{$ENDIF}
fTextDrawer := TheTextDrawer.Create([fsBold], fFontDummy);
{$IFDEF WithSynExperimentalCharWidth}
FSysCharWidthLinesView.TextDrawer := fTextDrawer;
@ -2978,6 +2967,9 @@ procedure TCustomSynEdit.Loaded;
begin
inherited Loaded;
UpdateCaret;
if not (csDesigning in ComponentState) then
DoubleBuffered := DoubleBuffered or (GetSystemMetrics(SM_REMOTESESSION)=0); // force DoubleBuffered if not used in remote session
end;
procedure TCustomSynEdit.UTF8KeyPress(var Key: TUTF8Char);