paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 20:38:15 +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 begin
LastMouseCaret:=Point(-1,-1); LastMouseCaret:=Point(-1,-1);
{$IFDEF VerboseFocus} {$IFDEF VerboseFocus}
writeln('[TCustomSynEdit.WMSetFocus] A'); writeln('[TCustomSynEdit.WMSetFocus] A ',Name,':',ClassName);
{$ENDIF} {$ENDIF}
UpdateCaret;
//InitializeCaret; //InitializeCaret;
//if FHideSelection and SelAvail then //if FHideSelection and SelAvail then
// Invalidate; // Invalidate;