anchor.diff:    {$MODE DELPHI}
   {$ENDIF}
   
  +{$I mDefines.inc}
  +
   uses
  -  Classes, SysUtils, Variants, {$ifdef windows}Windows, {$ifdef fpc}{$ifndef console}InterfaceBase,{$endif}{$endif} {$ifndef console}Forms,{$endif}{$endif}
  +  Classes, SysUtils, Variants, {$IFDEF WINDOWS}Windows, {$IFDEF FPC}{$IFDEF GRAPHICS_AVAILABLE}InterfaceBase,{$ENDIF}{$ENDIF} {$ENDIF}
  +  {$IFDEF GRAPHICS_AVAILABLE}Graphics,{$ENDIF} {$IFDEF GUI}Forms,{$ENDIF}
     mIntList, mDoubleList;
   
   const
  
positive.code:   Result := tmpVariant;
  end;
  
  {$ifdef windows}
  function GetCPUCores : integer;
  var
    Info: TSystemInfo;
  
negative.code: // try to convert the input text from the user as a time value, if it fails it returns false
  // user can edit time as hhmm or hhmmss or with separators like ':', '.', ....
  function TryToUnderstandTimeString(const aInputString : String; out aValue : TDateTime) : boolean;
  {$IFDEF GRAPHICS_AVAILABLE}
  function TryToUndestandColorString(const aInputString : String; out Value : TColor) : boolean;
  {$ENDIF}
  
  // http://users.atw.hu/delphicikk/listaz.php?id=2189&oldal=11
  function DateTimeStrEval(const DateTimeFormat: string; const DateTimeStr: string): TDateTime;
  