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

Комментарии

• gpi

  November 2008 отредактировано 01:48

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

  November 2008 отредактировано 01:48

  модуль 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

  November 2008 отредактировано 01:48

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