anchor.diff:  implementation
   
   uses
  -  SysUtils {$IFDEF WINDOWS},Windows{$ENDIF}
  -  , mGraphicsUtility;
  +  SysUtils,
  +  mGraphicsUtility;
   
   var
     DottedBrush : HBrush;
  
positive.code:   WriteText(ACanvas, BoxRect, AText, ATextAlignment, true);
  end;
  
  finalization
    if DottedBrush <> 0 then
      DeleteObject(DottedBrush);
  
negative.code: 
  uses
    Classes,
    {$ifdef fpc}LCLIntf, LCLType, LCLProc, InterfaceBase,{$else}Types, WinTypes, WinProcs,{$endif}
    {$ifdef windows}Windows,{$endif}
    Graphics,
    mGanttDataProvider;
  
  procedure DrawBucketBox(ACanvas: TCanvas; const ARect: TRect; const AText: string; const ATextAlignment: TAlignment);
  procedure DrawHeadBox(ACanvas: TCanvas; const ARect: TRect; const AText: string; const ATextAlignment: TAlignment; const AIsFirst : boolean);
  