diff options
Diffstat (limited to 'uidesigner/vfdwidgets.pas')
-rw-r--r-- | uidesigner/vfdwidgets.pas | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas index d002e5ac..65057c84 100644 --- a/uidesigner/vfdwidgets.pas +++ b/uidesigner/vfdwidgets.pas @@ -268,6 +268,11 @@ begin sizeof(stdimg_vfd_groupbox), 0, 0); + fpgImages.AddMaskedBMP( + 'vfd.combodatecheckedit', @stdimg_vfd_combodatecheckedit, + sizeof(stdimg_vfd_combodatecheckedit), + 0, 0); + end; procedure AddWidgetPosProps(wgc: TVFDWidgetClass); @@ -389,13 +394,28 @@ begin // Calendar ComboBox wc := TVFDWidgetClass.Create(TfpgCalendarCombo); wc.NameBase := 'CalendarCombo'; + wc.AddProperty('DateFormat', TPropertyString, 'Standard RTL date formatting applies'); wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text'); wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); wc.AddProperty('ShowHint', TPropertyBoolean, ''); + wc.AddProperty('WeekStartDay', TPropertyInteger, '0 = Sun, 1 = Mon, etc.'); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); wc.WidgetIconName := 'vfd.combodateedit'; RegisterVFDWidget(wc); + // Calendar ComboBox Checkbox + wc := TVFDWidgetClass.Create(TfpgCalendarCheckCombo); + wc.NameBase := 'CalendarCombo'; + wc.AddProperty('Checked', TPropertyBoolean, 'Boolean value'); + wc.AddProperty('DateFormat', TPropertyString, 'Standard RTL date formatting applies'); + wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text'); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); + wc.AddProperty('WeekStartDay', TPropertyInteger, '0 = Sun, 1 = Mon, etc.'); + wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); + wc.WidgetIconName := 'vfd.combodatecheckedit'; + RegisterVFDWidget(wc); + // ListBox wc := TVFDWidgetClass.Create(TfpgListBox); wc.NameBase := 'ListBox'; |