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

IDE: checked compiler warnings, clean up

Browse Source 
git-svn-id: trunk@48225 -
This commit is contained in:
mattias 2015-03-10 15:14:20 +00:00
parent afd9191244
commit 9037eedcd4
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/main.pp
View File

@ -465,8 +465,8 @@ type
JumpToError: boolean; out Handled, Abort: boolean);
procedure OnSrcNotebookShowCodeContext(JumpToError: boolean;
out Abort: boolean);
procedure OnSrcNotebookJumpToHistoryPoint(var NewCaretXY: TPoint;
var NewTopLine: integer; var DestEditor: TSourceEditor; JumpAction: TJumpHistoryAction);
procedure OnSrcNotebookJumpToHistoryPoint(out NewCaretXY: TPoint;
out NewTopLine: integer; out DestEditor: TSourceEditor; JumpAction: TJumpHistoryAction);
procedure OnSrcNotebookReadOnlyChanged(Sender: TObject);
procedure OnSrcNotebookSaveAll(Sender: TObject);
procedure OnSrcNotebookShowHintForSource(SrcEdit: TSourceEditor;
@ -11085,8 +11085,8 @@ begin
Project1.JumpHistory.DeleteLast;
end;
procedure TMainIDE.OnSrcNotebookJumpToHistoryPoint(var NewCaretXY: TPoint;
var NewTopLine: integer; var DestEditor: TSourceEditor;
procedure TMainIDE.OnSrcNotebookJumpToHistoryPoint(out NewCaretXY: TPoint; out
NewTopLine: integer; out DestEditor: TSourceEditor;
JumpAction: TJumpHistoryAction);
{ How the HistoryIndex works:
@ -11114,6 +11114,8 @@ var DestIndex, UnitIndex: integer;
begin
DestEditor := nil;
NewCaretXY.Y:=-1;
NewCaretXY.X:=-1;
NewTopLine:=-1;
JumpHistory:=Project1.JumpHistory;
{$IFDEF VerboseJumpHistory}

6
ide/sourceeditor.pp
View File

@ -524,9 +524,9 @@ type
TJumpHistoryAction = (jhaBack, jhaForward, jhaViewWindow);
TOnJumpToHistoryPoint = procedure(var NewCaretXY: TPoint;
var NewTopLine: integer;
var DestEditor: TSourceEditor;
TOnJumpToHistoryPoint = procedure(out NewCaretXY: TPoint;
out NewTopLine: integer;
out DestEditor: TSourceEditor;
Action: TJumpHistoryAction) of object;
TOnAddJumpPoint = procedure(ACaretXY: TPoint; ATopLine: integer;
AEditor: TSourceEditor; DeleteForwardHistory: boolean) of object;