paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:59:13 +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; UnitOutputDirEdit.Text := FCompilerOpts.UnitOutputDirectory;
SetPathTextAndHint(FCompilerOpts.DebugPath, DebugPathEdit); SetPathTextAndHint(FCompilerOpts.DebugPath, DebugPathEdit);
chkUseAsDefault.Visible := FCompilerOpts.CanBeDefaulForProject; chkUseAsDefault.Visible := FCompilerOpts.CanBeDefaultForProject;
end; end;
procedure TCompilerPathOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions); procedure TCompilerPathOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);

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

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

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

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