anchor.diff:      ACanvas: TCanvas; const ARect: TRect; var ACanDraw: boolean) of object;
   
   type
  -
     { TATStatus }
   
     TATStatus = class(TPanel)
  
positive.code:   Caption:= '';
    BorderStyle:= bsNone;
    ControlStyle:= ControlStyle+[csOpaque];
  
    Width:= 400;
    Height:= 24;
  
negative.code: 
  procedure TATStatus.Paint;
  begin
    if DoubleBuffered then
    begin
      if Assigned(FBitmap) then
      begin
        DoPaintTo(FBitmap.Canvas);
        Canvas.CopyRect(ClientRect, FBitmap.Canvas, ClientRect);
      end;
    end
    else
      DoPaintTo(Canvas);
  end;
  
  procedure TATStatus.DoPaintPanelTo(C: TCanvas; ARect: TRect;
  