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