anchor.diff:    Caption:= '';
     BorderStyle:= bsNone;
     ControlStyle:= ControlStyle+[csOpaque];
  +  DoubleBuffered:= IsDoubleBufferedNeeded;
   
     Width:= 400;
     Height:= 24;
  
positive.code:     ACanvas: TCanvas; const ARect: TRect; var ACanDraw: boolean) of object;
  
  type
  
    { TATStatus }
  
    TATStatus = class(TPanel)
  
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;
  