diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-11-08 08:40:00 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-11-08 08:40:00 +0000 |
| commit | 08de118bcf5f120f1e4eeaa8b1b6c28c4dca494d (patch) | |
| tree | 91c23249007fbe499ddd3098cdac01e9c5d6ffd7 /src/gui | |
| parent | e1c4e17ab85fdc8ce5d79c1c42acadfdb5372249 (diff) | |
| download | fpGUI-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')
| -rw-r--r-- | src/gui/gui_gauge.pas | 2 | ||||
| -rw-r--r-- | src/gui/gui_popupcalendar.pas | 6 |
2 files changed, 5 insertions, 3 deletions
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} |