paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 21:41:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit, forward focus msg to inherited

Browse Source 
git-svn-id: trunk@24037 -
This commit is contained in:
martin 2010-03-16 14:09:42 +00:00
parent e195f1df30
commit 8edd625a12
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -4408,6 +4408,7 @@ begin
end;
if FHideSelection and SelAvail then
Invalidate;
inherited;
end;
procedure TCustomSynEdit.WMSetFocus(var Msg: TWMSetFocus);
@ -4420,6 +4421,7 @@ begin
InitializeCaret;
//if FHideSelection and SelAvail then
// Invalidate;
inherited;
//DebugLn('[TCustomSynEdit.WMSetFocus] END');
end;