anchor.diff:  interface
   
   uses
  -  {$IFDEF WINDOWS}Windows,{$ELSE}LCLIntf, LCLType,{$ENDIF}  Graphics, Types;
  +  {$IFDEF WINDOWS}Windows,{$ELSE}LCLIntf, LCLType,{$ENDIF}  Graphics, Types, Controls;
   
   type
     TRectangleSide = (rsCenter, rsTop, rsLeft, rsBottom, rsRight, rsOutside);
  
positive.code:     Result := ((128 * 3) - (cRed + cGreen + cBlue)) > 0;
    end;
  
  procedure GetScreenShot (aBitmap : Graphics.TBitmap);
  var
    DC : {$IFDEF LINUX}LCLType.{$ENDIF}HDC;
  
negative.code:   function LighterColor(aColor: TColor; percent: Byte): TColor;
    function IsDark (const aColor: TColor): boolean;
  
    function ScaleForDPI (const aValue : integer) : integer;
  
  implementation
  
  uses
    SysUtils, Math, Forms {$IFDEF FPC},graphutil{$ENDIF};
  
  {$IFDEF FPC}
  const
  