FIX: improve UI

Author: PascalCorpsman

src/ufpc_understand.pas

@@ -1148,9 +1148,9 @@
   fChanged := false;
   If (cnt <> 0) Or (fFiles.LPISource <> '') Then Begin
     If (fFiles.RootFolder = '') Or ((fFiles.RootFolder <> '') And Not DirectoryExistsUTF8(fFiles.RootFolder)) Then Begin
-      ShowMessage('Your project root folder seems to be invalid (old value was: "' + fFiles.RootFolder + '"), please select a correct one for: ' + fGeneral.ProjectName);
+      ShowMessage('Your project root folder seems to be invalid, please select a correct one for: ' + fFiles.LPISource);
       fFiles.RootFolder := '';
-      If SelectDirectory('Root folder for: ' + fGeneral.ProjectName, '', fFiles.RootFolder) Then Begin
+      If SelectDirectory('Root folder for: ' + fFiles.LPISource, '', fFiles.RootFolder) Then Begin
         fFiles.RootFolder := IncludeTrailingPathDelimiter(fFiles.RootFolder);
         fChanged := true;
       End;

src/unit1.lfm

@@ -9,7 +9,7 @@ object Form1: TForm1
   ClientWidth = 760
   Menu = MainMenu1
   Position = poScreenCenter
-  LCLVersion = '3.99.0.0'
+  LCLVersion = '4.99.0.0'
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDropFiles = FormDropFiles
@@ -39,9 +39,9 @@ object Form1: TForm1
   end
   object Label1: TLabel
     Left = 304
-    Height = 15
+    Height = 16
     Top = 160
-    Width = 122
+    Width = 140
     Caption = 'Nothing loaded, please'
   end
   object Button1: TButton
@@ -64,9 +64,9 @@ object Form1: TForm1
   end
   object Label2: TLabel
     Left = 368
-    Height = 15
+    Height = 16
     Top = 208
-    Width = 11
+    Width = 13
     Caption = 'or'
   end
   object MainMenu1: TMainMenu

src/unit1.pas

@@ -1,7 +1,7 @@
 (******************************************************************************)
 (* FPC Understand                                                  30.03.2023 *)
 (*                                                                            *)
-(* Version     : 0.29                                                         *)
+(* Version     : 0.30                                                         *)
 (*                                                                            *)
 (* Author      : Uwe Schächterle (Corpsman)                                   *)
 (*                                                                            *)
@@ -68,6 +68,7 @@
 (*                      FIX: Set carety when showing code editor              *)
 (*               0.28 - FIX: invalid Rootfolder                               *)
 (*               0.29 - FIX: automatically add .lpi path to searchpaths       *)
+(*               0.30 - FIX: select root folder dialog was not clear enough   *)
 (*                                                                            *)
 (* Known Bugs  : - if a project holds 2 units with the same name              *)
 (*                 the dependency graph will merge them to one                *)
@@ -96,7 +97,7 @@
   StdCtrls, ugraphs, ufpc_understand, ufpcparser, LvlGraphCtrl, Types;
 
 Const
-  Version = '0.29';
+  Version = '0.30';
   ScrollDelta = 25;
 
 Type