anchor.diff:    w: integer;
     pofs: integer;
   begin
  -  Canvas.BeginDraw;
   //  inherited HandlePaint;
     Canvas.ClearClipRect;
     Canvas.Clear(clButtonFace);
  
positive.code:     x := 3;
  
    Canvas.DrawString(x + pofs, y + pofs, FText);
    Canvas.EndDraw;
  end;
  
  procedure TXPButton.HandleLMouseDown(X, Y: integer; ShiftState: TShiftState);
  
negative.code: var
    r: TfpgRect;
  begin
    inherited HandlePaint;
    Canvas.Clear(clBlue);
  
  