* 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.

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';