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

reduced focus handling and improved focus setting

Browse Source 
git-svn-id: trunk@2602 -
This commit is contained in:
mattias 2002-08-17 23:41:31 +00:00
parent 9cfc5551f4
commit 78cb32fe74
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synedit.pp
View File

@ -4129,8 +4129,9 @@ procedure TCustomSynEdit.WMSetFocus(var Msg: TWMSetFocus);
begin
LastMouseCaret:=Point(-1,-1);
{$IFDEF VerboseFocus}
writeln('[TCustomSynEdit.WMSetFocus] A');
writeln('[TCustomSynEdit.WMSetFocus] A ',Name,':',ClassName);
{$ENDIF}
UpdateCaret;
//InitializeCaret;
//if FHideSelection and SelAvail then
// Invalidate;