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

MartinXP

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

gpi

uses frxBarcod;

TfrxBarCodeView(frxReport1.FindObject('BarCode1')).BarType := bcCode128C;

MartinXP

Спасибо. Это работает.

А можно вызывать диалог настройки штрих кода во время исполнения программы, такой же как во время редактирования отчёта?
Или надо делать свой. Спасибо.

gpi

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;

MartinXP

Всё супер работает, спасибо.