feature/novas-bpl-para-versoes

Author: César Cardoso

Install-BPLs/Delphi-10.0-Seattle/C4DWizard.bpl

@@ -465,14 +465,16 @@ class function TC4DWizardUtils.SelectFile(const ADefaultFile: string; const ADef
   end;
 end;
 
+//FOR VERSIONS PRIOR TO DELPHI
+{$WARN SYMBOL_PLATFORM OFF}
 class function TC4DWizardUtils.SelectFolder(const ADefaultFolder: string; const ADefaultFolderIfCancel: Boolean = True): string;
 var
   LFileOpenDialog: TFileOpenDialog;
 begin
   Result := '';
   LFileOpenDialog := TFileOpenDialog.Create(nil);
   try
-    LFileOpenDialog.Title := 'C4D - Select a folder';
+    LFileOpenDialog.Title := 'Code4D-Wizard - Select a folder';
     LFileOpenDialog.Options := [fdoPickFolders];
 
     if(not ADefaultFolder.Trim.IsEmpty)and(System.SysUtils.DirectoryExists(ADefaultFolder))then
@@ -490,6 +492,7 @@ class function TC4DWizardUtils.SelectFolder(const ADefaultFolder: string; const
     LFileOpenDialog.Free;
   end;
 end;
+{$WARN SYMBOL_PLATFORM ON}
 
 class function TC4DWizardUtils.stringToColorDef(AValue: string; AColorDefault: TColor = clBlack): TColor;
 begin