diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-11-19 23:58:03 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-11-19 23:58:03 +0000 |
| commit | abed0abfe372ba23d5b36ab8270587e5694fb491 (patch) | |
| tree | dd9d3424633e6bb7b2fe1ebb0fba199924003a9f /src | |
| parent | da84dca6ec48d25c0b35593e9aebf8b2e9de11c4 (diff) | |
| download | fpGUI-abed0abfe372ba23d5b36ab8270587e5694fb491.tar.xz | |
ReadOnly property implemented for TfpgCalendarCombo
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/fpg_popupcalendar.pas | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/gui/fpg_popupcalendar.pas b/src/gui/fpg_popupcalendar.pas index 74a48f71..87b9f3ad 100644 --- a/src/gui/fpg_popupcalendar.pas +++ b/src/gui/fpg_popupcalendar.pas @@ -235,6 +235,7 @@ type property MaxDate: TDateTime read FMaxDate write SetMaxDate; property MinDate: TDateTime read FMinDate write SetMinDate; property ParentShowHint; + property ReadOnly; property SelectedColor: TfpgColor read FSelectedColor write SetSelectedColor; property SingleClickSelect: boolean read FSingleClickSelect write SetSingleClickSelect default False; property ShowHint; @@ -1299,6 +1300,8 @@ end; procedure TfpgCalendarCombo.SetDateValue(const AValue: TDateTime); begin + if ReadOnly then + Exit; if FDate = AValue then Exit; //==> FDate := AValue; |