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

IdeConfig: Always check the skcAll key in GetSkipCheckByKey function

Browse Source
This commit is contained in:
n7800 2025-03-05 22:50:05 +05:00 committed by Maxim Ganetsky
parent 20d924570a
commit 971885c68a
5 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/macroscript/registerems.pas
View File

@ -31,7 +31,7 @@ begin
if not EMSSupported then {%H-}exit;
if not (GetSkipCheckByKey('MacroScript') or GetSkipCheckByKey('All')) then begin
if not GetSkipCheckByKey('MacroScript') then begin
conf := GetEMSConf;
try

2
ide/ideinstances.pas
View File

@ -743,7 +743,7 @@ var
I: Integer;
begin
FForceNewInstance := CheckParamsForForceNewInstanceOpt;
FSkipAllChecks := GetSkipCheck(skcUniqueInstance) or GetSkipCheck(skcAll);
FSkipAllChecks := GetSkipCheck(skcUniqueInstance);
//get cmd line filenames
FFilesToOpen := ExtractCmdLineFilenames;

4
ide/main.pp
View File

@ -1301,7 +1301,7 @@ begin
end;
end
else
if (not (GetSkipCheck(skcLastCalled) or GetSkipCheck(skcAll)) ) and
if (not GetSkipCheck(skcLastCalled)) and
(CompareFilenames(LastCalled,CurPrgName)<>0) and
(CompareFilenames(LastCalled,AltPrgName)<>0) and
(CompareFilenames(CurPrgName,AltPrgName)<>0) // we can NOT check, if we only have the path inside the PCP
@ -1434,7 +1434,7 @@ begin
ShowSetupDialog:=true;
{$ENDIF}
SkipAllTests := GetSkipCheck(skcSetup) or GetSkipCheck(skcAll);
SkipAllTests := GetSkipCheck(skcSetup);
// check lazarus directory
if (not ShowSetupDialog)

5
ide/packages/ideconfig/idecmdline.pas
View File

@ -289,10 +289,11 @@ end;
function GetSkipCheckByKey(AKey: String): Boolean;
var
i: integer;
AValue: string;
AAll, AValue: string;
begin
// return language specified in command line (empty string if no language specified)
Result := False;
AAll := ','+UpperCase(SkipChecksKeys[skcAll])+',';
AKey := ','+UpperCase(AKey)+',';
AValue := '';
i := 1;
@ -301,7 +302,7 @@ begin
if ParamIsOptionPlusValue(i, SkipChecksOptLong, AValue) = true then
begin
AValue := ','+UpperCase(AValue)+',';
Result := Pos(AKey, AValue) > 0;
Result := (Pos(AAll, AValue) > 0) or (Pos(AKey, AValue) > 0);
if Result then
exit;
end;

2
packager/pkgmanager.pas
View File

@ -1538,7 +1538,7 @@ var
begin
StaticPackages:=LazarusPackageIntf.RegisteredPackages;
if StaticPackages=nil then exit;
Quiet:=GetSkipCheck(skcMissingPackageFile) or GetSkipCheck(skcAll);
Quiet:=GetSkipCheck(skcMissingPackageFile);
PackageGraph.AbortRegistration:=false;
// register components in Lazarus packages
for i:=0 to StaticPackages.Count-1 do begin