Merge pull request #8 from Embarcadero/cpp

Adding support to cpp #7

Author: lmbelo

Source/PythonTools.IOTAUtils.pas

@@ -21,6 +21,7 @@   TIOTAFormInfo = record
   TIOTAUtils = class
   private
     class function ModuleIsPas(const AModule: IOTAModule): boolean;
+    class function ModuleIsCpp(const AModule: IOTAModule): boolean;
     class function ModuleIsForm(const AModule: IOTAModule): boolean;
 
     class procedure EnumComps(const AFormEditor: IOTAFormEditor; const ACallback: TProc<TComponent>);
@@ -102,7 +103,7 @@ class procedure TIOTAUtils.EnumForms(const AProc: TProc<TIOTAFormInfo>);
       LModule := LModuleServices.Modules[I];
       LEditor := GetFormEditorFromModule(LModule);
 
-      if not (ModuleIsPas(LModule) and ModuleIsForm(LModule)) then
+      if not ((ModuleIsPas(LModule) or ModuleIsCpp(LModule)) and ModuleIsForm(LModule)) then
         Continue;
 
       LDesigner := (LEditor as INTAFormEditor).FormDesigner;
@@ -305,12 +306,20 @@ class function TIOTAUtils.HasForms: boolean;
   LModuleServices := (BorlandIDEServices as IOTAModuleServices);
   for I := 0 to LModuleServices.ModuleCount - 1 do begin
     LModule := LModuleServices.Modules[I];
-    if ModuleIsPas(LModule) and ModuleIsForm(LModule) then
+    if (ModuleIsPas(LModule) or ModuleIsCpp(LModule)) and ModuleIsForm(LModule) then
       Exit(true);
   end;
   Result := false;
 end;
 
+class function TIOTAUtils.ModuleIsCpp(const AModule: IOTAModule): boolean;
+begin
+  if SameText(ExtractFileExt(AModule.FileName), '.cpp') then
+    Result := true
+  else
+    Result := false;
+end;
+
 class function TIOTAUtils.ModuleIsForm(const AModule: IOTAModule): boolean;
 var
   LEditor: IOTAFormEditor;