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

IDE: added "const" for some "array of" params

Browse Source 
git-svn-id: trunk@59928 -
This commit is contained in:
martin 2018-12-28 17:51:51 +00:00
parent d0de825bcf
commit 78fdca77d0
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/anchoreditor.pas
View File

@ -247,7 +247,7 @@ begin
end; end;
end; end;
procedure SetEnabledControls(AEnabled: Boolean; AControls: array of TControl); procedure SetEnabledControls(AEnabled: Boolean; const AControls: array of TControl);
var var
i: Integer; i: Integer;
begin begin

2
ide/etsrceditmarks.pas
View File

@ -436,7 +436,7 @@ procedure Test_MergeTETSrcChanges;
var var
Changes: TETSingleSrcChanges; Changes: TETSingleSrcChanges;
procedure Check(Title: string; aChanges: array of TETSrcChange); procedure Check(Title: string; const aChanges: array of TETSrcChange);
procedure E(Msg: string); procedure E(Msg: string);
var var

4
ide/main.pp
View File

@ -404,7 +404,7 @@ type
fBuilder: TLazarusBuilder; fBuilder: TLazarusBuilder;
fOIActivateLastRow: Boolean; fOIActivateLastRow: Boolean;
function DoBuildLazarusSub(Flags: TBuildLazarusFlags): TModalResult; function DoBuildLazarusSub(Flags: TBuildLazarusFlags): TModalResult;
procedure ProjectOptionsHelper(AFilter: array of TAbstractIDEOptionsClass); procedure ProjectOptionsHelper(const AFilter: array of TAbstractIDEOptionsClass);
// Global IDE event handlers // Global IDE event handlers
procedure ProcessIDECommand(Sender: TObject; Command: word; var Handled: boolean); procedure ProcessIDECommand(Sender: TObject; Command: word; var Handled: boolean);
procedure ExecuteIDEShortCutHandler(Sender: TObject; var Key: word; procedure ExecuteIDEShortCutHandler(Sender: TObject; var Key: word;
@ -4141,7 +4141,7 @@ begin
OpenMainUnit(-1,-1,[]); OpenMainUnit(-1,-1,[]);
end; end;
procedure TMainIDE.ProjectOptionsHelper(AFilter: array of TAbstractIDEOptionsClass); procedure TMainIDE.ProjectOptionsHelper(const AFilter: array of TAbstractIDEOptionsClass);
var var
Capt: String; Capt: String;
begin begin

2
ide/searchfrm.pas
View File

@ -659,7 +659,7 @@ begin
end; end;
procedure TSearchProgressForm.SearchFormCREATE(Sender: TObject); procedure TSearchProgressForm.SearchFormCREATE(Sender: TObject);
Function MaxWidth(Labs : array of TLabel) : integer; Function MaxWidth(const Labs : array of TLabel) : integer;
var i,w : integer; var i,w : integer;
begin begin
Result:=0; Result:=0;