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

Merged revision(s) 59490 #f7d2aeee31 from trunk:

Browse Source 
SynEdit: fix showing caret, after getting focus. Issue #0034527, #0034506
If the widgetset sends the wmFocus before the parent is made visible (FVisible=true), then the caret is not made visible. A check for this is/was in VisibleChanged (kept for now, review todo), but that is not called. When the parent becomes visible UpdateShowing is called, so that is where the check now happens.
........

git-svn-id: branches/fixes_2_0@59532 -
This commit is contained in:
maxim 2018-11-12 22:59:47 +00:00
parent 3285cf31bf
commit 26f603a08f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedit.pp
View File

@ -3493,6 +3493,8 @@ begin
inherited UpdateShowing;
if fMarkupManager <> nil then
fMarkupManager.DoVisibleChanged(IsVisible);
if HandleAllocated then
UpdateScreenCaret;
end;
procedure TCustomSynEdit.SetColor(Value: TColor);
@ -8356,7 +8358,7 @@ end;
procedure TCustomSynEdit.VisibleChanged;
begin
inherited VisibleChanged;
UpdateScreenCaret;
UpdateScreenCaret; // This may no longer be needed. It is now done in UpdateShowing
end;
procedure TCustomSynEdit.DoAutoAdjustLayout(