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

IDE: fixed uninitialized result

Browse Source 
git-svn-id: trunk@22109 -
This commit is contained in:
mattias 2009-10-12 11:38:35 +00:00
parent 08dcae4a3e
commit 69cb699ca6
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/sourceeditor.pp
View File

@ -612,9 +612,9 @@ type
procedure EditorMouseLink(
Sender: TObject; X,Y: Integer; var AllowMouseLink: Boolean);
function EditorGetIndent(Sender: TSynCustomBeautifier; Editor: TObject;
LogCaret: TPoint; var FirstLinePos, LinesCount: Integer;
Reason: TSynEditorCommand;
SetIndentProc: TSynBeautifierSetIndentProc): Boolean;
LogCaret: TPoint; var FirstLinePos, LinesCount: Integer;
Reason: TSynEditorCommand;
SetIndentProc: TSynBeautifierSetIndentProc): Boolean;
procedure EditorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure EditorMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
@ -6742,6 +6742,7 @@ function TSourceNotebook.EditorGetIndent(Sender: TSynCustomBeautifier; Editor: T
LogCaret: TPoint; var FirstLinePos, LinesCount: Integer; Reason: TSynEditorCommand;
SetIndentProc: TSynBeautifierSetIndentProc): Boolean;
begin
Result:=false;
if Assigned(OnGetIndent) then
Result := OnGetIndent(Sender, GetActiveSE, LogCaret, FirstLinePos, LinesCount,
Reason, SetIndentProc);