summaryrefslogtreecommitdiff
path: root/src/gui/gui_popupcalendar.pas
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-11-08 08:40:00 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-11-08 08:40:00 +0000
commit08de118bcf5f120f1e4eeaa8b1b6c28c4dca494d (patch)
tree91c23249007fbe499ddd3098cdac01e9c5d6ffd7 /src/gui/gui_popupcalendar.pas
parente1c4e17ab85fdc8ce5d79c1c42acadfdb5372249 (diff)
downloadfpGUI-08de118bcf5f120f1e4eeaa8b1b6c28c4dca494d.tar.xz
* X11: Setting a window title via netlayer does not work for the
IceWM. I had to add the old XSetWMName back into the code. * GUI: Renamed the ComboCalendar's Value property to DateValue. * GUI: Minor change in Gauges property visibility. * UIDesigner: Added the ComboCalendar and Gauge components to the palette.
Diffstat (limited to 'src/gui/gui_popupcalendar.pas')
-rw-r--r--src/gui/gui_popupcalendar.pas6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/gui/gui_popupcalendar.pas b/src/gui/gui_popupcalendar.pas
index 88da838f..9d6431f0 100644
--- a/src/gui/gui_popupcalendar.pas
+++ b/src/gui/gui_popupcalendar.pas
@@ -106,9 +106,11 @@ type
procedure DoDropDown; override;
public
constructor Create(AOwner: TComponent); override;
+ property DateValue: TDateTime read FDate write SetDateValue;
published
- property Value: TDateTime read FDate write SetDateValue;
+ property BackgroundColor;
property DateFormat: string read FDateFormat write SetDateFormat;
+ property FontDesc;
end;
{@VFD_NEWFORM_DECL}
@@ -529,7 +531,7 @@ end;
procedure TfpgCalendarCombo.InternalOnValueSet(Sender: TObject;
const ADate: TDateTime);
begin
- Value := ADate;
+ DateValue := ADate;
{$IFDEF DEBUG}
writeln('New value: ', FormatDateTime(FDateFormat, ADate));
{$ENDIF}