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

LCL: Use const for parameters. Patch by Alexey Torgashin. Issue #39617.

Browse Source
This commit is contained in:
Bart 2022-02-02 13:57:38 +01:00
parent a39d846108
commit 8c251bbdfb
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/forms.pp
View File

@ -1610,8 +1610,8 @@ type
procedure IntfThemeOptionChange(AThemeServices: TThemeServices; AOption: TThemeOption);
function IsRightToLeft: Boolean;
function IsRTLLang(ALang: string): Boolean;
function Direction(ALang: string): TBiDiMode;
function IsRTLLang(const ALang: string): Boolean;
function Direction(const ALang: string): TBiDiMode;
public
// on key down
procedure DoArrowKey(AControl: TWinControl; var Key: Word; Shift: TShiftState);

4
lcl/include/application.inc
View File

@ -2391,7 +2391,7 @@ begin
if Assigned(FOnActionUpdate) then FOnActionUpdate(TheAction, Result);
end;
function TApplication.IsRTLLang(ALang: String): Boolean;
function TApplication.IsRTLLang(const ALang: String): Boolean;
var
lng : String;
p : word;
@ -2436,7 +2436,7 @@ begin
;
end;
function TApplication.Direction(ALang: String): TBiDiMode;
function TApplication.Direction(const ALang: String): TBiDiMode;
const
BidiModeMap: array[Boolean] of TBiDiMode = (bdLeftToRight, bdRightToLeft);
begin