From 13ae577973bc4402f21ab6d547f423f2f95c5157 Mon Sep 17 00:00:00 2001 From: graemeg Date: Fri, 20 Mar 2009 14:28:21 +0000 Subject: * Minor X11 debugging improvements. * Named internal components * Introduced TfpgBaseCheckbox class. * Refactored text drawing in ComboBox to a method that can be overridden in descendants. * Implemented a new (experimental) Calendar Combo with Checkbox for optional date selection. * Added Calendar Combo Check component to UI Designer. * Fixed some missing properties from Calendar Combo component in UI Designer. --- uidesigner/vfdwidgets.pas | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'uidesigner/vfdwidgets.pas') 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'; -- cgit v1.2.3-70-g09d2