Removed compiler warning #20

Embarcadero · Dec 6, 2024 · 1af9870 · 1af9870
1 parent 12b1b42
commit 1af9870
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Source/BoldWProjectWizard.pas b/Source/BoldWProjectWizard.pas
@@ -83,11 +83,11 @@ function TProjectWizard.GetCurrentProject(var Project: IOTAProject): Boolean;
       Result := true;
     end;
     if not Result then
-      if (CurrentModule.GetOwnerCount > 0) then
+      if (CurrentModule.GetOwnerModuleCount > 0) then
         for i:= 0 to CurrentModule.OwnerCount - 1 do
-          if (CurrentModule.GetOwner(i).QueryInterface(IOTAProject, Project) = S_OK) then
+          if (CurrentModule.GetOwnerModule(i).QueryInterface(IOTAProject, Project) = S_OK) then
           begin
-            Project := CurrentModule.GetOwner(i) as IOTAProject;
+            Project := CurrentModule.GetOwnerModule(i) as IOTAProject;
             Result := true;
             Break;
           end;