【dxBarCode】官方例子学习

1. 增加Logo

  TMydxBarCode = class(TdxBarCode)
  protected
    FImageList: TcxImageList;
    procedure Paint; override;
  end;


procedure TMydxBarCode.Paint;
var
  X, Y: Integer;
  ARect: TRect;
begin
  inherited;
  ARect := ViewInfo.InnerEditRect;
  X := ARect.Left + (ARect.Width div 2) - (FImageList.Width div 2);
  Y := ARect.Top + (ARect.Height div 2) - (FImageList.Height div 2);
  Canvas.DrawImage(FImageList, X, Y, 0);
end;