From 854b606a1c74dddb410c718ddeb296a3841a51a3 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Wed, 27 Mar 2013 16:36:08 +0000 Subject: Includes Reporting images as part of "standard images" list. --- examples/gui/stdimages/stdimglist.lpi | 18 ++++++++++++------ examples/gui/stdimages/stdimglist.lpr | 4 +++- 2 files changed, 15 insertions(+), 7 deletions(-) (limited to 'examples') diff --git a/examples/gui/stdimages/stdimglist.lpi b/examples/gui/stdimages/stdimglist.lpi index 94af915b..f519fc99 100644 --- a/examples/gui/stdimages/stdimglist.lpi +++ b/examples/gui/stdimages/stdimglist.lpi @@ -1,7 +1,7 @@ - + @@ -9,11 +9,13 @@ - - + + + + @@ -38,10 +40,14 @@ - + + + + + + - + diff --git a/examples/gui/stdimages/stdimglist.lpr b/examples/gui/stdimages/stdimglist.lpr index 09e57990..2d4ba9d9 100644 --- a/examples/gui/stdimages/stdimglist.lpr +++ b/examples/gui/stdimages/stdimglist.lpr @@ -4,7 +4,7 @@ uses Classes, SysUtils, - fpg_base, fpg_main, fpg_form, fpg_imgfmt_bmp, fpg_button; + fpg_base, fpg_main, fpg_form, fpg_imgfmt_bmp, fpg_button, u_reportimages; type @@ -28,6 +28,8 @@ procedure TMainForm.AfterCreate; MinWidth := 200; MinHeight := 100; + CreateReportImages; + btnClose := CreateButton(self, Width-90, Height-35, 75, 'Quit', @btnCloseClick); btnClose.ImageName := 'stdimg.quit'; btnClose.Anchors := [anRight, anBottom]; -- cgit v1.2.3-54-g00ecf