Проблема с изменением типа Штрих-кода в коде программы

patison

Товарищи, подскажите, если это возможно :

Хочу в коде изменить тип штрих кода
................................................
var
Barcode1:TfrxBarCodeView;
................................................
Page1 := frxReport1.Pages[1] as TfrxReportPage;
Barcode1:=Page1.FindObject('Barcode1') as TfrxBarCodeView;
Barcode1.BarType:=bcCodeEAN13;
................................................

Выводиться ошибка:
Undeclareted indefiner: 'bcCodeEAN13'

Что я делаю не так???

gpi

Попробуйте добавить модуль frxBarcod в uses

patison

модуль frxBarcodee я включил предварительно, попробую показать сам код:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, StdCtrls, ComCtrls, ToolWin, frxDock,
frxDesgnCtrls, frxCtrls, frxBarcode, frxClass, frxPreview, Buttons,
frxDesgn, xmldom, XMLIntf;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
AltF41: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
Panel1: TPanel;
GroupBox1: TGroupBox;
DesignB: TButton;
frxBarCodeObject1: TfrxBarCodeObject;
frxReport1: TfrxReport;
PreviewB: TButton;
Edit1: TEdit;
Label1: TLabel;
frxDesigner1: TfrxDesigner;
ComboBox1: TComboBox;
Button1: TButton;

procedure PreviewBClick(Sender: TObject);
procedure DesignBClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure KeyPressEdit1(Sender: TObject; var Key: Char);
procedure ChangeEdi1(Sender: TObject);
procedure AltF41Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
WPath: String;
{ Private declarations }
public

{ Public declarations }
end;

var
Barcode1:TfrxBarCodeView;
Page1: TfrxReportPage;
Form1: TForm1;


implementation

uses Unit2, ShellApi
{$IFDEF Delphi7}
, XPMan
{$ENDIF}, HeadP;

{$R *.DFM}


procedure TForm1.PreviewBClick(Sender: TObject);
begin
Page1 := frxReport1.Pages[1] as TfrxReportPage;
Barcode1:=Page1.FindObject('Barcode1') as TfrxBarcodeView;
BarCode1.BarType:= bcCodeEAN13;
end;
....................................................................................................

end.

Причем, если в коде я меня другие атрибуты штрих-кода такие как BarCode1.Name:='Str!'; BarCode1.Top:=23; и тд, проблем не возникает. Не могу поменять только ТИП :-(

patison

Большое спасибо!!! ) Действительно не хватало модуля frxBarcod!!! Я включил модуль frxBarcode и подумал, что это он и был. Проблема решена!!!