* Updated File Dialog (file information panel) to use the TfpgPanel instead of a TfpgBevel with a TfpgLabel. One less component to maintain.

3 files changed, 11 insertions, 18 deletions

diff --git a/prototypes/fpgui2/tests/drawtest.lpi b/prototypes/fpgui2/tests/drawtest.lpi
index 348d0d52..978bd036 100644
--- a/prototypes/fpgui2/tests/drawtest.lpi
+++ b/prototypes/fpgui2/tests/drawtest.lpi
@@ -28,7 +28,7 @@
     </RunParams>
     <RequiredPackages Count="1">
       <Item1>
-        <PackageName Value="fpgui_package"/>
+        <PackageName Value="fpgui_toolkit"/>
       </Item1>
     </RequiredPackages>
     <Units Count="1">
diff --git a/prototypes/fpgui2/tests/drawtest.lpr b/prototypes/fpgui2/tests/drawtest.lpr
index 5d55ebae..dc2dfaec 100644
--- a/prototypes/fpgui2/tests/drawtest.lpr
+++ b/prototypes/fpgui2/tests/drawtest.lpr
@@ -10,7 +10,7 @@ uses
   fpgfx,
   gfxbase,
   gui_form,
-  gfx_imgfmt_bmp;
+  gfx_imgfmt_bmp, fpgui_toolkit;
   
 type
 
diff --git a/src/gui/gui_dialogs.pas b/src/gui/gui_dialogs.pas
index 9fa65eb8..f177f597 100644
--- a/src/gui/gui_dialogs.pas
+++ b/src/gui/gui_dialogs.pas
@@ -45,7 +45,7 @@ uses
   gui_edit,
   gui_grid,
   gui_combobox,
-  gui_bevel,
+  gui_panel,
   gui_memo;
 
 type
@@ -148,8 +148,7 @@ type
     btnUpDir: TfpgButton;
     btnDirNew: TfpgButton;
     btnShowHidden: TfpgButton;
-    panel1: TfpgBevel;
-    lbFileInfo: TfpgLabel;
+    pnlFileInfo: TfpgPanel;
     edFilename: TfpgEdit;
     chlFilter: TfpgComboBox;
     lb1: TfpgLabel;
@@ -919,7 +918,7 @@ begin
     edFileName.Text := grid.CurrentEntry.Name;
 
   UpdateButtonState;
-  lbFileInfo.Text := s;
+  pnlFileInfo.Text := s;
 end;
 
 procedure TfpgFileDialog.GridDblClicked(Sender: TObject; AButton: TMouseButton;
@@ -1016,22 +1015,16 @@ begin
 
   { Create lower Panel details }
   
-  panel1 := TfpgBevel.Create(self);
-  with panel1 do
+  pnlFileInfo := TfpgPanel.Create(self);
+  with pnlFileInfo do
   begin
+    Name := 'pnlFileInfo';
     SetPosition(8, 253, 622, 25);
     Anchors := [anLeft, anRight, anBottom];
-    Shape := bsBox;
+    Alignment := taLeftJustify;
+    Margin := 4;
     Style := bsLowered;
-  end;
-
-  lbFileInfo := TfpgLabel.Create(panel1);
-  with lbFileInfo do
-  begin
-    SetPosition(5, 4, 609, 16);
-    Anchors := [anLeft, anRight, anTop];
-    Text := ' ';
-    FontDesc := '#Label1';
+    Text := '';
   end;
 
   edFilename := TfpgEdit.Create(self);