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

Packager: Make code more readable.

Browse Source 
git-svn-id: trunk@64412 -
This commit is contained in:
juha 2021-01-20 22:00:01 +00:00
parent 672f80c137
commit f852f4d56a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packager/packageeditor.pas
View File

@ -3161,6 +3161,7 @@ type
var
i: integer;
Rec: PIDEOptionsGroupRec;
InstCls: TAbstractPackageFileIDEOptionsClass;
Instance: TAbstractPackageFileIDEOptions;
InstanceList: TFPList;
stag: TStage;
@ -3177,7 +3178,8 @@ begin
Rec := IDEEditorGroups[i];
if not PassesFilter(Rec) then
Continue;
Instance := TAbstractPackageFileIDEOptions(TAbstractPackageFileIDEOptionsClass(Rec^.GroupClass).GetInstance(LazPackage, FOptionsShownOfFile));
InstCls := TAbstractPackageFileIDEOptionsClass(Rec^.GroupClass);
Instance := TAbstractPackageFileIDEOptions(InstCls.GetInstance(LazPackage, FOptionsShownOfFile));
if (InstanceList.IndexOf(Instance)<0) and Assigned(Instance) then
begin
InstanceList.Add(Instance);
@ -3203,6 +3205,7 @@ type
var
i: integer;
Rec: PIDEOptionsGroupRec;
InstCls: TAbstractPackageFileIDEOptionsClass;
Instance: TAbstractPackageFileIDEOptions;
stag: TStage;
begin
@ -3215,7 +3218,8 @@ begin
Rec := IDEEditorGroups[i];
if not PassesFilter(Rec) then
Continue;
Instance := TAbstractPackageFileIDEOptions(TAbstractPackageFileIDEOptionsClass(Rec^.GroupClass).GetInstance(LazPackage, FOptionsShownOfFile));
InstCls := TAbstractPackageFileIDEOptionsClass(Rec^.GroupClass);
Instance := TAbstractPackageFileIDEOptions(InstCls.GetInstance(LazPackage, FOptionsShownOfFile));
if Assigned(Instance) then
begin
case stag of