Как программно сменить тип штрих кода

отредактировано 09:22 Раздел: FastReport 4.0
Добрый день. Как из своего приложения программно сменить тип штрих кода? Спасибо.

Комментарии

  • gpigpi
    отредактировано 09:22
    uses frxBarcod;

    TfrxBarCodeView(frxReport1.FindObject('BarCode1')).BarType := bcCode128C;
  • отредактировано 09:22
    Спасибо. Это работает.

    А можно вызывать диалог настройки штрих кода во время исполнения программы, такой же как во время редактирования отчёта?
    Или надо делать свой. Спасибо.
  • gpigpi
    отредактировано 09:22
    uses frxDesgn, frxBarCodeEditor;
    procedure TForm1.frxReport1ClickObject(Sender: TfrxView;
      Button: TMouseButton; Shift: TShiftState; var Modified: Boolean);
    var Designer: TfrxCustomDesigner;
      begin
      Designer := TfrxCustomDesigner(frxDesignerClass.NewInstance);
      Designer.CreateDesigner(nil, frxReport1);
      if Sender is TfrxBarCodeView then
        with TfrxBarCodeEditorForm.Create(Designer) do
          begin
            Barcode := TfrxBarCodeView(Sender);
            Modified := ShowModal = mrOk;
            Barcode.Text := frxReport1.Calc(Barcode.Expression);
            Free;
          end;
      Designer.Free;
    end;
    
  • отредактировано 09:22
    Всё супер работает, спасибо.

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.