Access QR-Code Component at Runtime

Ferhat

How can I do change QrCode text and visual image on the page

try this code but does not work [img]style_emoticons/<#EMO_DIR#>/mad.gif" style="vertical-align:middle" emoid="" border="0" alt="mad.gif" /> I can see in debug change text value but image not change[/img]

varname1 := TfrxBarCodeView(frxReport1.FindObject('QRCodeSeriNo'));
        if varname1 <> nil then
          varname1.BarCode.Text := RightStr(myBarcodeNo, 10);

my dcu file

object frxReport1: TfrxReport
    Version = '5.3.16'
    DotMatrixReport = False
    IniFile = '\Software\Fast Reports'
    PreviewOptions.AllowEdit = False
    PreviewOptions.Buttons = [pbPrint, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbNavigator, pbExportQuick]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = 'Default'
    PrintOptions.PrintOnSheet = 0
    ReportOptions.CreateDate = 42647.661229074110000000
    ReportOptions.LastChange = 42648.572292453700000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.          ')
    Left = 241
    Top = 65
    Datasets = <>
    Variables = <>
    Style = <>
    object Data: TfrxDataPage
      Height = 1000.000000000000000000
      Width = 1000.000000000000000000
    end
    object Page1: TfrxReportPage
      PaperWidth = 60.000000000000000000
      PaperHeight = 20.000000000000000000
      PaperSize = 256
      LeftMargin = 4.000000000000000000
      RightMargin = 4.000000000000000000
      TopMargin = 4.000000000000000000
      BottomMargin = 4.000000000000000000
      object QRCodeSeriNo: TfrxBarcode2DView
        Left = 151.181102360000000000
        Top = 1.779530000000000000
        Width = 42.000000000000000000
        Height = 42.000000000000000000
        BarType = bcCodeQR
        BarProperties.Encoding = qrUTF8NoBOM
        BarProperties.QuietZone = 0
        BarProperties.ErrorLevels = ecL
        BarProperties.PixelSize = 2
        Rotation = 0
        ShowText = False
        Text = '0000000000'
        Zoom = 1.000000000000000000
        FontScaled = True
        QuietZone = 0
      end
    end
  end

gpi

Try

varname1 := TfrxBarCode2DView(frxReport1.FindObject('QRCodeSeriNo'));
        if varname1 <> nil then
          varname1.BarCode.Text := RightStr(myBarcodeNo, 10);