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

EditorOptions/Mouse: small fix in caret handling

Browse Source 
git-svn-id: trunk@20409 -
This commit is contained in:
martin 2009-06-04 21:16:53 +00:00
parent bfffb43cb7
commit 3332a54674
3 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/syngutter.pp
View File

@ -52,10 +52,10 @@ type
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
function MaybeHandleMouseAction(AnInfo: TSynEditMouseActionInfo;
function MaybeHandleMouseAction(var AnInfo: TSynEditMouseActionInfo;
HandleActionProc: TSynEditMouseActionHandler): Boolean;
function DoHandleMouseAction(AnAction: TSynEditMouseAction;
AnInfo: TSynEditMouseActionInfo): Boolean;
var AnInfo: TSynEditMouseActionInfo): Boolean;
procedure DoOnGutterClick(X, Y: integer);
property OnGutterClick: TGutterClickEvent
read FOnGutterClick write FOnGutterClick;
@ -319,7 +319,7 @@ begin
Parts[FMouseDownPart].MouseUp(Button, Shift, X, Y);
end;
function TSynGutter.MaybeHandleMouseAction(AnInfo: TSynEditMouseActionInfo;
function TSynGutter.MaybeHandleMouseAction(var AnInfo: TSynEditMouseActionInfo;
HandleActionProc: TSynEditMouseActionHandler): Boolean;
var
MouseDownPart: LongInt;
@ -331,7 +331,7 @@ begin
end;
function TSynGutter.DoHandleMouseAction(AnAction: TSynEditMouseAction;
AnInfo: TSynEditMouseActionInfo): Boolean;
var AnInfo: TSynEditMouseActionInfo): Boolean;
var
i: Integer;
ACommand: Word;

8
components/synedit/syngutterbase.pp
View File

@ -118,10 +118,10 @@ type
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); virtual;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); virtual;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); virtual;
function MaybeHandleMouseAction(AnInfo: TSynEditMouseActionInfo;
function MaybeHandleMouseAction(var AnInfo: TSynEditMouseActionInfo;
HandleActionProc: TSynEditMouseActionHandler): Boolean; virtual;
function DoHandleMouseAction(AnAction: TSynEditMouseAction;
AnInfo: TSynEditMouseActionInfo): Boolean; virtual;
var AnInfo: TSynEditMouseActionInfo): Boolean; virtual;
procedure DoOnGutterClick(X, Y: integer); virtual;
property OnGutterClick: TGutterClickEvent
read FOnGutterClick write FOnGutterClick;
@ -337,14 +337,14 @@ procedure TSynGutterPartBase.MouseUp(Button: TMouseButton; Shift: TShiftState; X
begin
end;
function TSynGutterPartBase.MaybeHandleMouseAction(AnInfo: TSynEditMouseActionInfo;
function TSynGutterPartBase.MaybeHandleMouseAction(var AnInfo: TSynEditMouseActionInfo;
HandleActionProc: TSynEditMouseActionHandler): Boolean;
begin
Result := False;
end;
function TSynGutterPartBase.DoHandleMouseAction(AnAction: TSynEditMouseAction;
AnInfo: TSynEditMouseActionInfo): Boolean;
var AnInfo: TSynEditMouseActionInfo): Boolean;
begin
Result := False;
end;

8
components/synedit/synguttercodefolding.pp
View File

@ -57,10 +57,10 @@ type
override;
function RealGutterWidth(CharWidth: integer): integer; override;
procedure DoOnGutterClick(X, Y: integer); override;
function MaybeHandleMouseAction(AnInfo: TSynEditMouseActionInfo;
function MaybeHandleMouseAction(var AnInfo: TSynEditMouseActionInfo;
HandleActionProc: TSynEditMouseActionHandler): Boolean; override;
function DoHandleMouseAction(AnAction: TSynEditMouseAction;
AnInfo: TSynEditMouseActionInfo): Boolean; override;
var AnInfo: TSynEditMouseActionInfo): Boolean; override;
published
property MarkupInfo;
property MouseActionsExpanded: TSynEditMouseActions
@ -150,7 +150,7 @@ begin
// Do Nothing
end;
function TSynGutterCodeFolding.MaybeHandleMouseAction(AnInfo: TSynEditMouseActionInfo;
function TSynGutterCodeFolding.MaybeHandleMouseAction(var AnInfo: TSynEditMouseActionInfo;
HandleActionProc: TSynEditMouseActionHandler): Boolean;
begin
Result := False;
@ -165,7 +165,7 @@ begin
end;
function TSynGutterCodeFolding.DoHandleMouseAction(AnAction: TSynEditMouseAction;
AnInfo: TSynEditMouseActionInfo): Boolean;
var AnInfo: TSynEditMouseActionInfo): Boolean;
var
c, i, line: Integer;
inf: TFoldViewNodeInfo;