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

Комментарии

• gpi

  April 2013 отредактировано 08:21

  uses frxBarcod;
  
  TfrxBarCodeView(frxReport1.FindObject('BarCode1')).BarType := bcCode128C;
• MartinXP

  April 2013 отредактировано 08:21

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

  April 2013 отредактировано 08:21

  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

  April 2013 отредактировано 08:21

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