anchor.diff:      x := 3;
   
     Canvas.DrawString(x + pofs, y + pofs, FText);
  -  Canvas.EndDraw;
   end;
   
   procedure TXPButton.HandleLMouseDown(X, Y: integer; ShiftState: TShiftState);
  
positive.code:   w: integer;
    pofs: integer;
  begin
    Canvas.BeginDraw;
  //  inherited HandlePaint;
    Canvas.ClearClipRect;
    Canvas.Clear(clButtonFace);
  
negative.code:   Canvas.SetColor(clGreen);
    Canvas.FillRectangle(r);
  }
  end;
  
  constructor TMyWidget.Create(AOwner: TComponent);
  