anchor.diff:    WriteText(ACanvas, BoxRect, AText, ATextAlignment, true);
   end;
   
  +initialization
  +
   finalization
     if DottedBrush <> 0 then
       DeleteObject(DottedBrush);
  
positive.code: implementation
  
  uses
    SysUtils {$IFDEF WINDOWS},Windows{$ENDIF}
    , mGraphicsUtility;
  
  var
    DottedBrush : HBrush;
  
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);
  