anchor.diff:    w: integer;
     pofs: integer;
   begin
  -  Canvas.BeginDraw;
   //  inherited HandlePaint;
     Canvas.ClearClipRect;
     Canvas.Clear(clButtonFace);
  
positive.code: var
    r: TfpgRect;
  begin
    Canvas.BeginDraw;
    inherited HandlePaint;
    Canvas.Clear(clBlue);
  
  
negative.code:   Canvas.SetColor(clGreen);
    Canvas.FillRectangle(r);
  }
  end;
  
  constructor TMyWidget.Create(AOwner: TComponent);
  