anchor.diff:        // Update available options
         if AFirstLoading then begin
           if wDateStart > 0 then begin
  +          // initialisation  0 pour viter l'erreur Min > Max
  +          DatePickerStart.MinDate := 0;
  +          DatePickerStart.MaxDate := DateOf(wDateEnd);
             DatePickerStart.MinDate := DateOf(wDateStart);
  -          DatePickerStart.MaxDate := DateOf(wDateEnd);
             DatePickerStart.Date := DateOf(wDateStart);
             TimePickerStart.Time := TimeOf(wDateStart);
  +
  +          DatePickerEnd.MinDate := 0;
  +          DatePickerEnd.MaxDate := DateOf(wDateEnd);
             DatePickerEnd.MinDate := DateOf(wDateStart);
  -          DatePickerEnd.MaxDate := DateOf(wDateEnd);
             DatePickerEnd.Date := DateOf(wDateEnd);
             TimePickerEnd.Time := TimeOf(wDateEnd);
           end;
  
positive.code: {*==============================================================================
  Replace special chars for HTML
  ===============================================================================}
  function TFormProgress.RemoveHtmlSpecialChars(ALine: String): String;
  begin
    Result := ALine;
    if (Pos('>', ALine) > 0) or (Pos('<', ALine) > 0) then begin
  
negative.code: *******************************************************************************}
  function TFormProgress.ColorTextHtml(AHtmlColor: String; AText: String): String;
  begin
    AText := ReplaceHtmlSpecialChars(AText);
    Result := Format('<font color="%s">%s</font>', [AHtmlColor, AText]);
  end;
  
  