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

focus fixes, reduced lpi size

Browse Source 
git-svn-id: trunk@2419 -
This commit is contained in:
mattias 2002-08-17 23:41:21 +00:00
parent 604a18667b
commit ddae4a8ce1
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synedit.pp
View File

@ -1534,8 +1534,8 @@ procedure TCustomSynEdit.HideCaret;
begin
//writeln('[TCustomSynEdit.HideCaret]');
if sfCaretVisible in fStateFlags then begin
if {$IFDEF SYN_LAZARUS}LCLLinux{$ELSE}Windows{$ENDIF}.HideCaret(Handle) then
Exclude(fStateFlags, sfCaretVisible);
{$IFDEF SYN_LAZARUS}LCLLinux{$ELSE}Windows{$ENDIF}.HideCaret(Handle);
Exclude(fStateFlags, sfCaretVisible);
end;
end;
@ -4109,11 +4109,13 @@ end;
procedure TCustomSynEdit.WMSetFocus(var Msg: TWMSetFocus);
begin
LastMouseCaret:=Point(-1,-1);
//writeln('[TCustomSynEdit.WMSetFocus] A');
{$IFDEF VerboseFocus}
writeln('[TCustomSynEdit.WMSetFocus] A');
{$ENDIF}
//InitializeCaret;
//if FHideSelection and SelAvail then
// Invalidate;
//writeln('[TCustomSynEdit.WMSetFocus] END');
//writeln('[TCustomSynEdit.WMSetFocus] END');
end;
procedure TCustomSynEdit.WMSize(var Msg: TWMSize);