paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 15:37:50 +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 EMSSupported then {%H-}exit;
if not (GetSkipCheckByKey('MacroScript') or GetSkipCheckByKey('All')) then begin if not GetSkipCheckByKey('MacroScript') then begin
conf := GetEMSConf; conf := GetEMSConf;
try try

2
ide/ideinstances.pas
View File

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

4
ide/main.pp
View File

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

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

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

2
packager/pkgmanager.pas
View File

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