bk/2024-05-21-1414

Author: César Cardoso

Src/IDE/MainMenu/C4D.Wizard.IDE.MainMenu.Clicks.pas

@@ -147,9 +147,7 @@ class procedure TC4DWizardIDEMainMenuClicks.VsCodeIntegrationInstallDelphiLSPCli
 
 class procedure TC4DWizardIDEMainMenuClicks.DefaultFilesInOpeningProjectClick(Sender: TObject);
 begin
-  TC4DWizardDefaultFilesInOpeningProject
-    .New(Self.GetFileNameCurrentProject)
-    .SelectionFilesForDefaultOpening;
+  TC4DWizardDefaultFilesInOpeningProject.New(Self.GetFileNameCurrentProject).SelectionFilesForDefaultOpening;
 end;
 
 class procedure TC4DWizardIDEMainMenuClicks.BackupExportClick(Sender: TObject);

Src/View/C4D.Wizard.View.ListFilesForSelection.pas

@@ -101,8 +101,8 @@ implementation
 
 procedure TC4DWizardViewListFilesForSelection.FormCreate(Sender: TObject);
 begin
-  Self.Width := Screen.Width - 100;
-  Self.Height := Screen.Height - 200;
+  Self.Width := Screen.Width - 200;
+  Self.Height := Screen.Height - 250;
   pnOrigin.Width := (Self.Width div 2) - 10;
   TC4DWizardUtilsOTA.IDEThemingAll(TC4DWizardViewListFilesForSelection, Self);
 
@@ -181,8 +181,7 @@ procedure TC4DWizardViewListFilesForSelection.FillListViewsWithfilesProjectOrGro
       LStrings := TStringList.Create;
       try
         TC4DWizardUtilsOTA.GetAllFilesFromProjectGroup(LStrings,
-          FFilePathProjectOrGroupForFilter,
-          [TC4DExtensionsFiles.PAS, TC4DExtensionsFiles.DPR]);
+          FFilePathProjectOrGroupForFilter, [TC4DExtensionsFiles.PAS, TC4DExtensionsFiles.DPR]);
 
         TThread.Synchronize(nil,
           procedure