anchor.diff:    inherited Destroy;
   end;
   
  -procedure TfpgButton.HandlePaint;
  +procedure TfpgBaseButton.HandlePaint;
   var
     AText: string;
     x, y, iy, w: integer;
  
positive.code:   DoPush;
  end;
  
  procedure TfpgButton.HandleLMouseUp(x, y: integer; shiftstate: TShiftState);
  begin
  //  inherited;
    if (csDesigning in ComponentState) then
  
negative.code:   fpgStyle.DrawString(Canvas, x+pofs, y+pofs, AText, Enabled);
  end;
  
  procedure TfpgBaseButton.DoPush;
  var
    n: integer;
    c: TComponent;
  