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

synedit: fix compilation

Browse Source 
git-svn-id: trunk@29695 -
This commit is contained in:
paul 2011-03-01 04:45:38 +00:00
parent 1f90a967b2
commit 32f21a5927
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

@ -613,7 +613,7 @@ type
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
override; override;
procedure ScrollTimerHandler(Sender: TObject); procedure ScrollTimerHandler(Sender: TObject);
procedure DoContextPopup(const MousePos: TPoint; var Handled: Boolean); override; procedure DoContextPopup(MousePos: TPoint; var Handled: Boolean); override;
procedure FindAndHandleMouseAction(AButton: TMouseButton; AShift: TShiftState; procedure FindAndHandleMouseAction(AButton: TMouseButton; AShift: TShiftState;
X, Y: Integer; ACCount:TSynMAClickCount; X, Y: Integer; ACCount:TSynMAClickCount;
@ -2950,7 +2950,7 @@ begin
end; end;
end; end;
procedure TCustomSynEdit.DoContextPopup(const MousePos: TPoint; var Handled: Boolean); procedure TCustomSynEdit.DoContextPopup(MousePos: TPoint; var Handled: Boolean);
begin begin
Handled := FInMouseClickEvent; Handled := FInMouseClickEvent;
if not Handled then if not Handled then