Adjust form height on construction

In cases where long directory paths needs wrapping,
make the vertical growth visible the first time the
form appears

Author: Robert Di Pardo

src/Forms/AboutForm.pas

@@ -59,6 +59,7 @@   TFrmAbout = class(TfpgForm)
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+    procedure AfterCreate; override;
   published
     procedure DoOnShow({%H-}Sender: TObject);
     procedure FormClose({%H-}Sender: TObject);
@@ -179,6 +180,12 @@ destructor TFrmAbout.Destroy;
   inherited;
 end;
 
+procedure TFrmAbout.AfterCreate;
+begin
+    inherited;
+    FindEntities;
+end;
+
 procedure TFrmAbout.DoOnShow({%H-}Sender: TObject);
 begin
   FindEntities;
@@ -306,7 +313,7 @@ procedure TFrmAbout.WrapFilePath(Path: TfpgPanel);
     else
     begin
       WrapAt := Round(BtnWidth * 0.8);
-      Bump := (Length(Text) div 4);
+      Bump := (Length(Text) div 8);
     end;
 
     if Length(Txt) > WrapAt then