diff options
Diffstat (limited to 'uidesigner/vfdwidgets.pas')
-rw-r--r-- | uidesigner/vfdwidgets.pas | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas index ad45c113..08031eb6 100644 --- a/uidesigner/vfdwidgets.pas +++ b/uidesigner/vfdwidgets.pas @@ -65,6 +65,7 @@ uses fpg_gauge, fpg_editbtn, fpg_ColorWheel, + fpg_splitter, vfdpropeditgrid, vfdmain; @@ -305,6 +306,11 @@ begin 'vfd.valuebar', @stdimg_vfd_valuebar, sizeof(stdimg_vfd_valuebar), 0, 0); + + fpgImages.AddMaskedBMP( + 'vfd.splitter', @stdimg_vfd_splitter, + sizeof(stdimg_vfd_splitter), + 0, 0); end; procedure AddWidgetPosProps(wgc: TVFDWidgetClass); @@ -881,6 +887,15 @@ begin wc.WidgetIconName := 'vfd.valuebar'; RegisterVFDWidget(wc); + // Splitter - works in accordance with color wheel + wc := TVFDWidgetClass.Create(TfpgSplitter); + wc.NameBase := 'Splitter'; + wc.AddProperty('Align', TPropertyEnum, ''); + wc.AddProperty('ColorGrabBar', TPropertyColor, ''); + wc.AddProperty('AutoSnap', TPropertyBoolean, ''); + wc.WidgetIconName := 'vfd.splitter'; + RegisterVFDWidget(wc); + // Other - do not delete!!! this should be the last... wc := TVFDWidgetClass.Create(TOtherWidget); wc.NameBase := 'Custom'; |