paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 21:42:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit, fix compile with fpc trunk

Browse Source 
git-svn-id: trunk@31948 -
This commit is contained in:
jesus 2011-08-11 20:24:58 +00:00
parent 561307dda3
commit c7d7e4e44d
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

@ -338,7 +338,7 @@ type
{$IFNDEF SYN_LAZARUS}
procedure WMMouseWheel(var Msg: TMessage); message WM_MOUSEWHEEL;
{$ENDIF}
procedure WMSetFocus(var Msg: TWMSetFocus); message WM_SETFOCUS;
procedure WMSetFocus(var Msg: TLMSetFocus); message WM_SETFOCUS;
procedure WMVScroll(var Msg: {$IFDEF SYN_LAZARUS}TLMScroll{$ELSE}TWMScroll{$ENDIF}); message WM_VSCROLL;
private
FBlockIndent: integer;
@ -4695,7 +4695,7 @@ begin
inherited;
end;
procedure TCustomSynEdit.WMSetFocus(var Msg: TWMSetFocus);
procedure TCustomSynEdit.WMSetFocus(var Msg: TLMSetFocus);
begin
if fCaret = nil then exit; // This SynEdit is in Destroy
Exclude(FStateFlags, sfHideCursor);