cxImageButtonGroup의 border 제거하기

cxImageButtonGroup의 전체에 미묘한 Border가 들어가 있는데,

이미지가 원하는 크기로 나오지 않아 제거하였습니다.

 

uses
  ..
, cxImageButton
;

type
  TcxImageButtonGroup = class(cxImageButton.TcxImageButtonGroup)
    protected
      procedure AdjustClientRect(var Rect: TRect); override;
    public
  end;
  
implementation

procedure TcxImageButtonGroup.AdjustClientRect(var Rect: TRect);
var
  AViewData: TcxCustomEditViewData;
  ARect: TRect;
begin
  if IsDestroying then Exit;

  AViewData := TcxCustomEditViewData(CreateViewData);

  try
    InitializeViewData(AViewData);

    ARect := TRect.Create(0, 0, Self.Width, Self.Height);
    Rect := ARect;
  finally
    FreeAndNil(AViewData);
  end;
end;