diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-28 13:03:28 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-28 13:03:28 +0000 |
commit | 33f72fbc58ee1fd33b17e77b5d97a9aaa308314c (patch) | |
tree | d78bec9233d457728ee5a21ee6a49499ad627e82 | |
parent | e1559759b46a8c9d24fcd369ede78ad15bab41dd (diff) | |
download | fpGUI-33f72fbc58ee1fd33b17e77b5d97a9aaa308314c.tar.xz |
* Updated File Dialog (file information panel) to use the TfpgPanel instead of a TfpgBevel with a TfpgLabel. One less component to maintain.
-rw-r--r-- | prototypes/fpgui2/tests/drawtest.lpi | 2 | ||||
-rw-r--r-- | prototypes/fpgui2/tests/drawtest.lpr | 2 | ||||
-rw-r--r-- | src/gui/gui_dialogs.pas | 25 |
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); |