diff options
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} |