Bar code width

Freud

Hello,

With the code below, I need to add the bar code width. I added the width property but it doesn't do anything:

Bar.Width:=100;

Here'is the code:

var
  Page : TfrxReportPage;
  Band : TfrxBand;
  Bar  : TfrxBarCodeView;
  I : Integer;
  Left,Top : Integer;
begin

      frxReport1.Clear;
      Page := TfrxReportPage.Create(frxReport1);
      Page.CreateUniqueName;
      Page.SetDefaults;

      Band:= TfrxReportTitle.Create(Page);
      Band.CreateUniqueName;
      Band.Top:= 0;
      Band.Height:= 20;
      Top:=10;
      Left:= BarCodeLeft;

      for I := 0 to BarCodeCount do
      begin
        Bar := TfrxBarCodeView.Create(Band);
        Bar.CreateUniqueName;
        Bar.Text:= edText.Text;
        Bar.Text:=edText.Text;
        Bar.Height:= 50;//BarCodeHeight;
    //    Bar.BarType:=bcEAN13;
        Bar.Left:= Left;
        Bar.Top:= Top;
        Bar.Align:= baNone;
        Top:=Top+BarCodeTop;

      end;
  end;

Thanks for the help !