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

synedit: set DoubleBuffered in CreateWnd and not in Loaded (Loaded is not called if creating SynEdit in runtime)

Browse Source 
git-svn-id: trunk@57745 -
This commit is contained in:
ondrej 2018-04-30 09:14:23 +00:00
parent c21a4162b9
commit 8b4e1e953d
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/synedit.pp
View File

@ -2967,9 +2967,6 @@ 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);
@ -8202,6 +8199,8 @@ end;
procedure TCustomSynEdit.CreateWnd;
begin
if not (csDesigning in ComponentState) then
DoubleBuffered := DoubleBuffered or (GetSystemMetrics(SM_REMOTESESSION)=0); // force DoubleBuffered if not used in remote session
inherited;
if (eoDropFiles in fOptions) and not (csDesigning in ComponentState) then
// ToDo DragAcceptFiles