diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-07-13 08:29:54 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-07-13 08:29:54 +0200 |
| commit | 4e7dc68ff9fab4992d4b652f00c4ab9271610c40 (patch) | |
| tree | 98be82479f21ac0a2be6a3685c24718d7b98284b | |
| parent | 96e659e2f1c26e629ac6c4de61d4eb8c4c15c323 (diff) | |
| download | fpGUI-4e7dc68ff9fab4992d4b652f00c4ab9271610c40.tar.xz | |
changes in preparation for FPC Trunk support.
Prevents a possible compiler error.
| -rw-r--r-- | src/gui/fpg_popupcalendar.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/gui/fpg_popupcalendar.pas b/src/gui/fpg_popupcalendar.pas index 34f73f3d..cace4f97 100644 --- a/src/gui/fpg_popupcalendar.pas +++ b/src/gui/fpg_popupcalendar.pas @@ -131,7 +131,7 @@ type procedure PopulateDays; procedure CalculateMonthOffset; function CalculateCellDay(const ACol, ARow: Integer): Integer; - procedure SetDateElement(Index: integer; const AValue: Word); + procedure SetDateElement(AIndex: integer; const AValue: Word); procedure SetDateValue(const AValue: TDateTime); procedure SetMaxDate(const AValue: TDateTime); procedure SetMinDate(const AValue: TDateTime); @@ -763,7 +763,7 @@ begin FThisMonthDays[ACol,ARow] := True; end; -procedure TfpgPopupCalendar.SetDateElement(Index: integer; const AValue: Word); +procedure TfpgPopupCalendar.SetDateElement(AIndex: integer; const AValue: Word); var lD, lM, lY: Word; lDate: TDateTime; @@ -772,7 +772,7 @@ begin if AValue > 0 then begin DecodeDate(FDate, lY, lM, lD); - case Index of + case AIndex of 1: lD := AValue; 2: begin lM := AValue; |