anchor.diff:  procedure FlashInWindowsTaskbar(const aFlashEvenIfActive : boolean);
   begin
     {$IFDEF WINDOWS}
  +  {$push}{$warnings off}
  +  begin
     // http://forum.lazarus.freepascal.org/index.php?topic=33574.0
     If aFlashEvenIfActive or (not Application.Active) Then
       FlashWindow({$IFDEF FPC}WidgetSet.AppHandle{$ELSE}Application.Handle{$ENDIF}, True);
  +  end;
  +  {$pop}
     {$ENDIF}
   end;
   {$ENDIF}
  
positive.code:   end;
  end;
  
  
  (*
      https://docs.microsoft.com/it-it/windows/desktop/FileIO/naming-a-file#basic_naming_conventions
  
negative.code: function EncodeURIComponent(const aSrc: String): UTF8String;
  
  function EncodeSVGString(const aSrc : String): String;
  
  function EscapeSQLStringValue(const aSrc: String): String;
  
  // https://docs.microsoft.com/it-it/windows/desktop/FileIO/naming-a-file#basic_naming_conventions
  function SanitizeFileName(const aSrc: String) : String;
  