anchor.diff:  {$ENDIF}
   
   uses
  -  Classes, SysUtils, Variants, {$ifdef windows}Windows,{$endif}
  +  Classes, SysUtils, Variants, {$ifdef windows}Windows, {$ifdef fpc}InterfaceBase,{$endif} Forms,{$endif}
     mIntList, mDoubleList;
   
   const
  
positive.code: function GetApplicationLocalDataFolder (const aApplicationSubDir : string) : String;
  function GetApplicationDataFolder (const aApplicationSubDir : string) : String;
  function GetOSUser : string;
  
  implementation
  
  
negative.code:     Result := SysUtils.GetEnvironmentVariable('USER');
  end;
  
  procedure FlashInWindowsTaskbar(const aFlashEvenIfActive : boolean);
  begin
    {$ifdef windows}
    // 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);
    {$endif}
  end;
  
  
  initialization
    Randomize;
  