anchor.diff:    end;
   end;
   
  +procedure TfpgPopupCalendar.SetSingleClickSelect(const AValue: boolean);
  +begin
  +  if FSingleClickSelect = AValue then exit;
  +  FSingleClickSelect := AValue;
  +end;
  +
   function TfpgPopupCalendar.GetDateElement(Index: integer): Word;
   var
     lD, lM, lY: Word;
  
positive.code:     DateValue := Now;
      TearDown;
    end;
  end;
  
  procedure TfpgPopupCalendar.HandlePaint;
  
negative.code:     FHolidayColor: TfpgColor;
      FSelectedColor: TfpgColor;
      FCloseOnSelect: boolean;
      FSingleClickSelect: boolean;
      procedure   SetDateFormat(const AValue: string);
      procedure   SetDateValue(const AValue: TDateTime);
      procedure   SetMaxDate(const AValue: TDateTime);
  