From 08de118bcf5f120f1e4eeaa8b1b6c28c4dca494d Mon Sep 17 00:00:00 2001 From: graemeg Date: Thu, 8 Nov 2007 08:40:00 +0000 Subject: * 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. --- src/gui/gui_gauge.pas | 2 +- src/gui/gui_popupcalendar.pas | 6 ++++-- 2 files changed, 5 insertions(+), 3 deletions(-) (limited to 'src/gui') diff --git a/src/gui/gui_gauge.pas b/src/gui/gui_gauge.pas index 68c4da2e..c998e232 100644 --- a/src/gui/gui_gauge.pas +++ b/src/gui/gui_gauge.pas @@ -79,6 +79,7 @@ type constructor Create(AOwner: TComponent); override; procedure AddProgress(AValue: Longint); property Percentage: Longint read GetPercentage; + property Font: TfpgFont read FFont; published property Align; property Anchors; @@ -87,7 +88,6 @@ type property Color: TfpgColor read FColor write FColor default clButtonFace; property Enabled; property FirstColor: TfpgColor read FFirstColor write SetFirstColor default clBlack; - property Font: TfpgFont read FFont; property Kind: TGaugeKind read FKind write SetGaugeKind default gkHorizontalBar; property MinValue: Longint read FMin write SetMin default 0; property MaxValue: Longint read FMax write SetMax default 100; 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} -- cgit v1.2.3-70-g09d2