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

SynEdit: remove double calling of iherited in TCustomSynEdit.WMKillFocus.

Browse Source 
git-svn-id: trunk@44917 -
This commit is contained in:
bart 2014-05-04 22:37:57 +00:00
parent 847147250b
commit 8804674487
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/synedit/synedit.pp
View File

@ -4639,7 +4639,6 @@ procedure TCustomSynEdit.WMKillFocus(var Msg: TWMKillFocus);
begin begin
if fCaret = nil then exit; // This SynEdit is in Destroy if fCaret = nil then exit; // This SynEdit is in Destroy
Exclude(FStateFlags, sfHideCursor); Exclude(FStateFlags, sfHideCursor);
inherited;
{$IFDEF VerboseFocus} {$IFDEF VerboseFocus}
DebugLn(['[TCustomSynEdit.WMKillFocus] A ',DbgSName(Self), ' time=', dbgs(Now*86640)]); DebugLn(['[TCustomSynEdit.WMKillFocus] A ',DbgSName(Self), ' time=', dbgs(Now*86640)]);
{$ENDIF} {$ENDIF}