anchor.diff:      Result := ((128 * 3) - (cRed + cGreen + cBlue)) > 0;
     end;
   
  +  function ScaleForDPI(const aValue: integer): integer;
  +  begin
  +    Result := aValue;
  +
  +    if Screen.PixelsPerInch=96 then exit;
  +
  +
  +    Result := round(aValue * (Screen.PixelsPerInch / 96));
  +  end;
  +
   procedure GetScreenShot (aBitmap : Graphics.TBitmap);
   var
     DC : {$IFDEF LINUX}LCLType.{$ENDIF}HDC;
  
positive.code: interface
  
  uses
    {$IFDEF WINDOWS}Windows,{$ELSE}LCLIntf, LCLType,{$ENDIF}  Graphics, Types;
  
  type
    TRectangleSide = (rsCenter, rsTop, rsLeft, rsBottom, rsRight, rsOutside);
  
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
  