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

SynEdit: more debug output

Browse Source 
git-svn-id: trunk@27157 -
This commit is contained in:
martin 2010-08-20 13:38:40 +00:00
parent 4e8ea2da7f
commit e096a0f121
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedit.pp
View File

@ -4543,7 +4543,7 @@ begin
Exclude(FStateFlags, sfHideCursor);
inherited;
{$IFDEF VerboseFocus}
DebugLn('[TCustomSynEdit.WMKillFocus] A ',Name);
DebugLn(['[TCustomSynEdit.WMKillFocus] A ',Name, ' time=', dbgs(Now*86640)]);
{$ENDIF}
{$IF defined(LCLGTK) or defined(LCLGTK2)}
// This is to temporarily address issue http://bugs.freepascal.org/view.php?id=12460
@ -4569,7 +4569,7 @@ begin
Exclude(FStateFlags, sfHideCursor);
LastMouseCaret:=Point(-1,-1);
{$IFDEF VerboseFocus}
DebugLn('[TCustomSynEdit.WMSetFocus] A ',Name,':',ClassName);
DebugLn(['[TCustomSynEdit.WMSetFocus] A ',Name,':',ClassName, ' time=', dbgs(Now*86640)]);
{$ENDIF}
FScreenCaret.DestroyCaret; // Ensure recreation. On Windows only one caret exists, and it must be moved to the focused editor
FScreenCaret.Visible := True;