anchor.diff:      FState: integer;  // 0 - normal  // 1 - hover
       FAllowMultiLineText: boolean;
       procedure   SetShowImage(AValue: Boolean);
  +    procedure   CalculatePositions(var ImageX, ImageY, TextX, TextY : integer);
       procedure   HandlePaint; override;
       procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
       procedure   HandleKeyRelease(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
  
positive.code:   end;
  end;
  
  procedure TfpgBaseButton.SetText(const AValue: string);
  begin
    if FText = AValue then
  
negative.code: end;
  
  procedure TfpgBaseButton.HandlePaint;
  var
    AText: string;
    tx, ty, ix, iy: integer;
  