diff options
Diffstat (limited to 'examples/apps/uidesigner/vfdwidgets.pas')
-rw-r--r-- | examples/apps/uidesigner/vfdwidgets.pas | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/examples/apps/uidesigner/vfdwidgets.pas b/examples/apps/uidesigner/vfdwidgets.pas index d47f0d88..fb41337f 100644 --- a/examples/apps/uidesigner/vfdwidgets.pas +++ b/examples/apps/uidesigner/vfdwidgets.pas @@ -200,6 +200,12 @@ begin 'vfd.combodateedit', @stdimg_vfd_dateedit, sizeof(stdimg_vfd_dateedit), 0, 0); + + fpgImages.AddMaskedBMP( + 'vfd.bevel', @stdimg_vfd_bevel, + sizeof(stdimg_vfd_bevel), + 0, 0); + end; procedure AddWidgetPosProps(wgc: TVFDWidgetClass); @@ -334,6 +340,16 @@ begin wc.WidgetIconName := 'vfd.stringgrid'; RegisterVFDWidget(wc); + // Bevel + wc := TVFDWidgetClass.Create(TfpgBevel); + wc.NameBase := 'bvlName'; + wc.AddProperty('BorderStyle', TPropertyEnum, 'Single or Double'); + wc.AddProperty('Style', TPropertyEnum, 'Raised or Lower look'); + wc.AddProperty('Shape', TPropertyEnum, 'Box, Frame, TopLine, Spacer etc..'); + wc.WidgetIconName := 'vfd.bevel'; + wc.Container := True; + RegisterVFDWidget(wc); + // Panel wc := TVFDWidgetClass.Create(TfpgPanel); wc.NameBase := 'pnlName'; |