anchor.diff:           Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
   end;
   
  +
  +{$IFNDEF GUI}
  +** This unit should not be compiled in a console application **
  +{$ENDIF}
   end.
  
positive.code: interface
  
  uses
    {$IFDEF WINDOWS}Windows,{$ELSE} LCLIntf, LCLType,{$ENDIF} Forms, Controls, Graphics, Types;
  
  type
    TRectangleSide = (rsCenter, rsTop, rsLeft, rsBottom, rsRight, rsOutside);
  
negative.code: 
    function ScaleForDPI (const aValue : integer) : integer;
  
    procedure WriteText(ACanvas: TCanvas; const ARect: TRect; const AText: string; ATextAlignment: TAlignment);
  
  implementation
  
  uses
    SysUtils, Math {$IFDEF FPC},graphutil{$ENDIF};
  