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

EditorOptions: Add "const" for some string param

Browse Source
This commit is contained in:
Martin 2022-04-01 00:02:44 +02:00
parent c84616d6e1
commit 013e6a61a5
1 changed files with 24 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
ide/editoroptions.pp
View File

@ -291,9 +291,9 @@ type
function Equals(Other: TColorSchemeAttribute): Boolean; reintroduce; function Equals(Other: TColorSchemeAttribute): Boolean; reintroduce;
function GetStoredValuesForAttrib: TColorSchemeAttribute; // The IDE default colors from the resources function GetStoredValuesForAttrib: TColorSchemeAttribute; // The IDE default colors from the resources
function GetSchemeGlobal: TColorSchemeAttribute; function GetSchemeGlobal: TColorSchemeAttribute;
procedure LoadFromXml(aXMLConfig: TRttiXMLConfig; aPath: String; procedure LoadFromXml(aXMLConfig: TRttiXMLConfig; const aPath: String;
Defaults: TColorSchemeAttribute; Version: Integer); Defaults: TColorSchemeAttribute; Version: Integer);
procedure SaveToXml(aXMLConfig: TRttiXMLConfig; aPath: String; procedure SaveToXml(aXMLConfig: TRttiXMLConfig; const aPath: String;
Defaults: TColorSchemeAttribute); Defaults: TColorSchemeAttribute);
property Group: TAhaGroupName read FGroup write FGroup; property Group: TAhaGroupName read FGroup write FGroup;
property IsUsingSchemeGlobals: Boolean read GetIsUsingSchemeGlobals; property IsUsingSchemeGlobals: Boolean read GetIsUsingSchemeGlobals;
@ -318,7 +318,7 @@ type
FLanguageName: String; FLanguageName: String;
FIsSchemeDefault: Boolean; FIsSchemeDefault: Boolean;
FFormatVersion: integer; FFormatVersion: integer;
function GetAttribute(Index: String): TColorSchemeAttribute; function GetAttribute(const Index: String): TColorSchemeAttribute;
function GetAttributeAtPos(Index: Integer): TColorSchemeAttribute; function GetAttributeAtPos(Index: Integer): TColorSchemeAttribute;
function GetAttributeByEnum(Index: TAdditionalHilightAttribute): TColorSchemeAttribute; function GetAttributeByEnum(Index: TAdditionalHilightAttribute): TColorSchemeAttribute;
function GetName: String; function GetName: String;
@ -345,7 +345,7 @@ type
property Name: String read GetName; property Name: String read GetName;
property Language: TLazSyntaxHighlighter read FLanguage; property Language: TLazSyntaxHighlighter read FLanguage;
property LanguageName: String read FLanguageName; property LanguageName: String read FLanguageName;
property Attribute[Index: String]: TColorSchemeAttribute read GetAttribute; property Attribute[const Index: String]: TColorSchemeAttribute read GetAttribute;
property AttributeByEnum[Index: TAdditionalHilightAttribute]: TColorSchemeAttribute property AttributeByEnum[Index: TAdditionalHilightAttribute]: TColorSchemeAttribute
read GetAttributeByEnum; read GetAttributeByEnum;
property AttributeAtPos[Index: Integer]: TColorSchemeAttribute read GetAttributeAtPos; property AttributeAtPos[Index: Integer]: TColorSchemeAttribute read GetAttributeAtPos;
@ -368,9 +368,9 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure Assign(Src: TColorScheme); reintroduce; procedure Assign(Src: TColorScheme); reintroduce;
function GetStoredValuesForScheme: TColorScheme; // The IDE default colors from the resources function GetStoredValuesForScheme: TColorScheme; // The IDE default colors from the resources
procedure LoadFromXml(aXMLConfig: TRttiXMLConfig; aPath: String; procedure LoadFromXml(aXMLConfig: TRttiXMLConfig; const aPath: String;
Defaults: TColorScheme; aOldPath: String = ''); Defaults: TColorScheme; const aOldPath: String = '');
procedure SaveToXml(aXMLConfig: TRttiXMLConfig; aPath: String; Defaults: TColorScheme); procedure SaveToXml(aXMLConfig: TRttiXMLConfig; const aPath: String; Defaults: TColorScheme);
property Name: string read FName; property Name: string read FName;
property DefaultColors: TColorSchemeLanguage read FDefaultColors; property DefaultColors: TColorSchemeLanguage read FDefaultColors;
property ColorScheme[Index: TLazSyntaxHighlighter]: TColorSchemeLanguage read GetColorScheme; property ColorScheme[Index: TLazSyntaxHighlighter]: TColorSchemeLanguage read GetColorScheme;
@ -382,7 +382,7 @@ type
TColorSchemeFactory = class(TObject) TColorSchemeFactory = class(TObject)
private private
FMappings: TQuickStringlist; // TColorScheme FMappings: TQuickStringlist; // TColorScheme
function GetColorSchemeGroup(Index: String): TColorScheme; function GetColorSchemeGroup(const Index: String): TColorScheme;
function GetColorSchemeGroupAtPos(Index: Integer): TColorScheme; function GetColorSchemeGroupAtPos(Index: Integer): TColorScheme;
public public
constructor Create; constructor Create;
@ -393,9 +393,9 @@ type
Defaults: TColorSchemeFactory; const aOldPath: String = ''); Defaults: TColorSchemeFactory; const aOldPath: String = '');
procedure SaveToXml(aXMLConfig: TRttiXMLConfig; const aPath: String; procedure SaveToXml(aXMLConfig: TRttiXMLConfig; const aPath: String;
Defaults: TColorSchemeFactory); Defaults: TColorSchemeFactory);
procedure RegisterScheme(aXMLConfig: TRttiXMLConfig; AName, aPath: String); procedure RegisterScheme(aXMLConfig: TRttiXMLConfig; AName: String; const aPath: String);
procedure GetRegisteredSchemes(AList: TStrings); procedure GetRegisteredSchemes(AList: TStrings);
property ColorSchemeGroup[Index: String]: TColorScheme read GetColorSchemeGroup; property ColorSchemeGroup[const Index: String]: TColorScheme read GetColorSchemeGroup;
property ColorSchemeGroupAtPos[Index: Integer]: TColorScheme read GetColorSchemeGroupAtPos; property ColorSchemeGroupAtPos[Index: Integer]: TColorScheme read GetColorSchemeGroupAtPos;
end; end;
@ -6294,8 +6294,8 @@ begin
end; end;
end; end;
procedure TColorSchemeAttribute.LoadFromXml(aXMLConfig: TRttiXMLConfig; aPath: String; procedure TColorSchemeAttribute.LoadFromXml(aXMLConfig: TRttiXMLConfig;
Defaults: TColorSchemeAttribute; Version: Integer); const aPath: String; Defaults: TColorSchemeAttribute; Version: Integer);
var var
Path: String; Path: String;
begin begin
@ -6327,8 +6327,8 @@ begin
end; end;
end; end;
procedure TColorSchemeAttribute.SaveToXml(aXMLConfig: TRttiXMLConfig; aPath: String; procedure TColorSchemeAttribute.SaveToXml(aXMLConfig: TRttiXMLConfig;
Defaults: TColorSchemeAttribute); const aPath: String; Defaults: TColorSchemeAttribute);
var var
AttriName: String; AttriName: String;
begin begin
@ -6344,7 +6344,8 @@ end;
{ TColorSchemeLanguage } { TColorSchemeLanguage }
function TColorSchemeLanguage.GetAttribute(Index: String): TColorSchemeAttribute; function TColorSchemeLanguage.GetAttribute(const Index: String
): TColorSchemeAttribute;
var var
Idx: Integer; Idx: Integer;
begin begin
@ -6977,8 +6978,8 @@ begin
end; end;
end; end;
procedure TColorScheme.LoadFromXml(aXMLConfig: TRttiXMLConfig; aPath: String; procedure TColorScheme.LoadFromXml(aXMLConfig: TRttiXMLConfig;
Defaults: TColorScheme; aOldPath: String); const aPath: String; Defaults: TColorScheme; const aOldPath: String);
var var
i: TLazSyntaxHighlighter; i: TLazSyntaxHighlighter;
Def: TColorSchemeLanguage; Def: TColorSchemeLanguage;
@ -7000,8 +7001,8 @@ begin
end; end;
end; end;
procedure TColorScheme.SaveToXml(aXMLConfig: TRttiXMLConfig; aPath: String; procedure TColorScheme.SaveToXml(aXMLConfig: TRttiXMLConfig;
Defaults: TColorScheme); const aPath: String; Defaults: TColorScheme);
var var
i: TLazSyntaxHighlighter; i: TLazSyntaxHighlighter;
Def: TColorSchemeLanguage; Def: TColorSchemeLanguage;
@ -7026,7 +7027,8 @@ end;
{ TColorSchemeFactory } { TColorSchemeFactory }
function TColorSchemeFactory.GetColorSchemeGroup(Index: String): TColorScheme; function TColorSchemeFactory.GetColorSchemeGroup(const Index: String
): TColorScheme;
var var
Idx: integer; Idx: integer;
begin begin
@ -7118,7 +7120,8 @@ begin
end end
end; end;
procedure TColorSchemeFactory.RegisterScheme(aXMLConfig: TRttiXMLConfig; AName, aPath: String); procedure TColorSchemeFactory.RegisterScheme(aXMLConfig: TRttiXMLConfig;
AName: String; const aPath: String);
var var
lMapping: TColorScheme; lMapping: TColorScheme;
i, j: integer; i, j: integer;