summaryrefslogtreecommitdiff
path: root/examples/apps/uidesigner/vfdwidgets.pas
diff options
context:
space:
mode:
Diffstat (limited to 'examples/apps/uidesigner/vfdwidgets.pas')
-rw-r--r--examples/apps/uidesigner/vfdwidgets.pas16
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';