mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-06 02:07:22 +02:00
IDE: checked compiler warnings, clean up
git-svn-id: trunk@48225 -
This commit is contained in:
parent
afd9191244
commit
9037eedcd4
10
ide/main.pp
10
ide/main.pp
@ -465,8 +465,8 @@ type
|
|||||||
JumpToError: boolean; out Handled, Abort: boolean);
|
JumpToError: boolean; out Handled, Abort: boolean);
|
||||||
procedure OnSrcNotebookShowCodeContext(JumpToError: boolean;
|
procedure OnSrcNotebookShowCodeContext(JumpToError: boolean;
|
||||||
out Abort: boolean);
|
out Abort: boolean);
|
||||||
procedure OnSrcNotebookJumpToHistoryPoint(var NewCaretXY: TPoint;
|
procedure OnSrcNotebookJumpToHistoryPoint(out NewCaretXY: TPoint;
|
||||||
var NewTopLine: integer; var DestEditor: TSourceEditor; JumpAction: TJumpHistoryAction);
|
out NewTopLine: integer; out DestEditor: TSourceEditor; JumpAction: TJumpHistoryAction);
|
||||||
procedure OnSrcNotebookReadOnlyChanged(Sender: TObject);
|
procedure OnSrcNotebookReadOnlyChanged(Sender: TObject);
|
||||||
procedure OnSrcNotebookSaveAll(Sender: TObject);
|
procedure OnSrcNotebookSaveAll(Sender: TObject);
|
||||||
procedure OnSrcNotebookShowHintForSource(SrcEdit: TSourceEditor;
|
procedure OnSrcNotebookShowHintForSource(SrcEdit: TSourceEditor;
|
||||||
@ -11085,8 +11085,8 @@ begin
|
|||||||
Project1.JumpHistory.DeleteLast;
|
Project1.JumpHistory.DeleteLast;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMainIDE.OnSrcNotebookJumpToHistoryPoint(var NewCaretXY: TPoint;
|
procedure TMainIDE.OnSrcNotebookJumpToHistoryPoint(out NewCaretXY: TPoint; out
|
||||||
var NewTopLine: integer; var DestEditor: TSourceEditor;
|
NewTopLine: integer; out DestEditor: TSourceEditor;
|
||||||
JumpAction: TJumpHistoryAction);
|
JumpAction: TJumpHistoryAction);
|
||||||
{ How the HistoryIndex works:
|
{ How the HistoryIndex works:
|
||||||
|
|
||||||
@ -11114,6 +11114,8 @@ var DestIndex, UnitIndex: integer;
|
|||||||
begin
|
begin
|
||||||
DestEditor := nil;
|
DestEditor := nil;
|
||||||
NewCaretXY.Y:=-1;
|
NewCaretXY.Y:=-1;
|
||||||
|
NewCaretXY.X:=-1;
|
||||||
|
NewTopLine:=-1;
|
||||||
JumpHistory:=Project1.JumpHistory;
|
JumpHistory:=Project1.JumpHistory;
|
||||||
|
|
||||||
{$IFDEF VerboseJumpHistory}
|
{$IFDEF VerboseJumpHistory}
|
||||||
|
@ -524,9 +524,9 @@ type
|
|||||||
|
|
||||||
TJumpHistoryAction = (jhaBack, jhaForward, jhaViewWindow);
|
TJumpHistoryAction = (jhaBack, jhaForward, jhaViewWindow);
|
||||||
|
|
||||||
TOnJumpToHistoryPoint = procedure(var NewCaretXY: TPoint;
|
TOnJumpToHistoryPoint = procedure(out NewCaretXY: TPoint;
|
||||||
var NewTopLine: integer;
|
out NewTopLine: integer;
|
||||||
var DestEditor: TSourceEditor;
|
out DestEditor: TSourceEditor;
|
||||||
Action: TJumpHistoryAction) of object;
|
Action: TJumpHistoryAction) of object;
|
||||||
TOnAddJumpPoint = procedure(ACaretXY: TPoint; ATopLine: integer;
|
TOnAddJumpPoint = procedure(ACaretXY: TPoint; ATopLine: integer;
|
||||||
AEditor: TSourceEditor; DeleteForwardHistory: boolean) of object;
|
AEditor: TSourceEditor; DeleteForwardHistory: boolean) of object;
|
||||||
|
Loading…
Reference in New Issue
Block a user