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

IdeConfig, IdeProject: Fix a typo in the method name TProjectCompilerOptions.CanBeDefaulForProject

Browse Source
This commit is contained in:
n7800 2024-09-14 17:04:49 +05:00 committed by Martin
parent 8644edbc61
commit 0ac8701194
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/frames/compiler_path_options.pas
View File

@ -723,7 +723,7 @@ begin
UnitOutputDirEdit.Text := FCompilerOpts.UnitOutputDirectory;
SetPathTextAndHint(FCompilerOpts.DebugPath, DebugPathEdit);
chkUseAsDefault.Visible := FCompilerOpts.CanBeDefaulForProject;
chkUseAsDefault.Visible := FCompilerOpts.CanBeDefaultForProject;
end;
procedure TCompilerPathOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);

4
ide/packages/ideconfig/compileroptions.pp
View File

@ -328,7 +328,7 @@ type
): string; virtual;
function GetDefaultMainSourceFileName: string; virtual;
function GetDefaultWriteConfigFilePath: string; virtual; abstract;
function CanBeDefaulForProject: boolean; virtual;
function CanBeDefaultForProject: boolean; virtual;
function NeedsLinkerOpts: boolean;
function HasCommands: boolean; // true if there is at least one commad to execute
function HasCompilerCommand: boolean; virtual;
@ -1867,7 +1867,7 @@ begin
Result:='';
end;
function TBaseCompilerOptions.CanBeDefaulForProject: boolean;
function TBaseCompilerOptions.CanBeDefaultForProject: boolean;
begin
Result:=false;
end;

4
ide/packages/ideproject/project.pp
View File

@ -574,7 +574,7 @@ type
procedure Clear; override;
procedure LoadFromXMLConfig(AXMLConfig: TXMLConfig; const Path: string); override;
procedure SaveToXMLConfig(AXMLConfig: TXMLConfig; const Path: string); override;
function CanBeDefaulForProject: boolean; override;
function CanBeDefaultForProject: boolean; override;
function GetOwnerName: string; override;
function GetDefaultMainSourceFileName: string; override;
function GetDefaultWriteConfigFilePath: string; override;
@ -6661,7 +6661,7 @@ begin
inherited Clear;
end;
function TProjectCompilerOptions.CanBeDefaulForProject: boolean;
function TProjectCompilerOptions.CanBeDefaultForProject: boolean;
begin
Result:=true;
end;