rm_barcode.hpp

这是一个功能强大

// CodeGear C++Builder
// Copyright (c) 1995, 2007 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Rm_barcode.pas' rev: 11.00

#ifndef Rm_barcodeHPP
#define Rm_barcodeHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Math.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Rm_class.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Rm_common.hpp>	// Pascal unit
#include <Rm_ctrls.hpp>	// Pascal unit
#include <Rm_dsgctrls.hpp>	// Pascal unit
#include <Rm_stbarc.hpp>	// Pascal unit
#include <Rm_st2dbarc.hpp>	// Pascal unit
#include <Rm_jvinterpreter.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Rm_jclwidestrings.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Rm_barcode
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TRMBarCodeAngleType { rmatNone, rmat90, rmat180, rmat270 };
#pragma option pop

class DELPHICLASS TRMBarCodeObject;
class PASCALIMPLEMENTATION TRMBarCodeObject : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
public:
	#pragma option push -w-inl
	/* TComponent.Create */ inline __fastcall virtual TRMBarCodeObject(Classes::TComponent* AOwner) : Classes::TComponent(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TComponent.Destroy */ inline __fastcall virtual ~TRMBarCodeObject(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMBarCodeInfo;
class PASCALIMPLEMENTATION TRMBarCodeInfo : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Rm_stbarc::TStBarCode* FBarCode;
	TRMBarCodeAngleType FRotationType;
	Graphics::TFont* __fastcall GetBarTextFont(void);
	void __fastcall SetBarTextFont(Graphics::TFont* Value);
	bool __fastcall GetAddCheckChar(void);
	void __fastcall SetAddCheckChar(bool Value);
	Rm_stbarc::TStBarCodeType __fastcall GetBarCodeType(void);
	void __fastcall SetBarCodeType(Rm_stbarc::TStBarCodeType Value);
	Graphics::TColor __fastcall GetBarColor(void);
	void __fastcall SetBarColor(Graphics::TColor Value);
	bool __fastcall GetTallGuardBars(void);
	void __fastcall SetTallGuardBars(bool Value);
	AnsiString __fastcall GetSupplementalCode();
	void __fastcall SetSupplementalCode(AnsiString Value);
	bool __fastcall GetShowGuardChars(void);
	void __fastcall SetShowGuardChars(bool Value);
	bool __fastcall GetShowCode(void);
	void __fastcall SetShowCode(bool Value);
	bool __fastcall GetExtendedSyntax(void);
	void __fastcall SetExtendedSyntax(bool Value);
	bool __fastcall GetBearerBars(void);
	void __fastcall SetBearerBars(bool Value);
	Rm_stbarc::TStCode128CodeSubset __fastcall GetCode128Subset(void);
	void __fastcall SetCode128Subset(Rm_stbarc::TStCode128CodeSubset Value);
	double __fastcall GetBarWidth(void);
	void __fastcall SetBarWidth(double Value);
	int __fastcall GetBarNarrowToWideRatio(void);
	void __fastcall SetBarNarrowToWideRatio(int Value);
	double __fastcall GetBarToSpaceRatio(void);
	void __fastcall SetBarToSpaceRatio(double Value);
	
public:
	__fastcall TRMBarCodeInfo(Rm_stbarc::TStBarCode* aBarCode);
	__fastcall virtual ~TRMBarCodeInfo(void);
	
__published:
	__property Graphics::TFont* BarTextFont = {read=GetBarTextFont, write=SetBarTextFont};
	__property TRMBarCodeAngleType RotationType = {read=FRotationType, write=FRotationType, nodefault};
	__property bool AddCheckChar = {read=GetAddCheckChar, write=SetAddCheckChar, nodefault};
	__property Rm_stbarc::TStBarCodeType BarCodeType = {read=GetBarCodeType, write=SetBarCodeType, nodefault};
	__property Graphics::TColor BarColor = {read=GetBarColor, write=SetBarColor, nodefault};
	__property bool TallGuardBars = {read=GetTallGuardBars, write=SetTallGuardBars, nodefault};
	__property AnsiString SupplementalCode = {read=GetSupplementalCode, write=SetSupplementalCode};
	__property bool ShowGuardChars = {read=GetShowGuardChars, write=SetShowGuardChars, nodefault};
	__property bool ShowCode = {read=GetShowCode, write=SetShowCode, nodefault};
	__property bool ExtendedSyntax = {read=GetExtendedSyntax, write=SetExtendedSyntax, nodefault};
	__property bool BearerBars = {read=GetBearerBars, write=SetBearerBars, nodefault};
	__property Rm_stbarc::TStCode128CodeSubset Code128Subset = {read=GetCode128Subset, write=SetCode128Subset, nodefault};
	__property double BarToSpaceRatio = {read=GetBarToSpaceRatio, write=SetBarToSpaceRatio};
	__property int BarNarrowToWideRatio = {read=GetBarNarrowToWideRatio, write=SetBarNarrowToWideRatio, nodefault};
	__property double BarWidth = {read=GetBarWidth, write=SetBarWidth};
};


class DELPHICLASS TRMBarCodeView;
class PASCALIMPLEMENTATION TRMBarCodeView : public Rm_class::TRMReportView 
{
	typedef Rm_class::TRMReportView inherited;
	
private:
	Rm_stbarc::TStBarCode* FBarCode;
	TRMBarCodeInfo* FBarCodeInfo;
	bool __fastcall GetDirectDraw(void);
	void __fastcall SetDirectDraw(bool Value);
	
protected:
	virtual AnsiString __fastcall GetViewCommon();
	virtual void __fastcall PlaceOnEndPage(Classes::TStream* aStream);
	
public:
	__fastcall virtual TRMBarCodeView(void);
	__fastcall virtual ~TRMBarCodeView(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	virtual void __fastcall Draw(Graphics::TCanvas* aCanvas);
	virtual void __fastcall ShowEditor(void);
	
__published:
	__property LeftFrame ;
	__property TopFrame ;
	__property RightFrame ;
	__property BottomFrame ;
	__property FillColor ;
	__property DataField ;
	__property bool DirectDraw = {read=GetDirectDraw, write=SetDirectDraw, nodefault};
	__property PrintFrame ;
	__property Printable ;
	__property TRMBarCodeInfo* BarCodeInfo = {read=FBarCodeInfo, write=FBarCodeInfo};
	__property OnPreviewClick ;
	__property OnPreviewClickUrl ;
};


#pragma option push -b-
enum TRM2DBarcodeType { rmbtPDF417, rmbtMAXI };
#pragma option pop

class DELPHICLASS TRM2DBarCodeView;
class PASCALIMPLEMENTATION TRM2DBarCodeView : public Rm_class::TRMReportView 
{
	typedef Rm_class::TRMReportView inherited;
	
private:
	TRM2DBarcodeType FBarCodeType;
	Rm_st2dbarc::TStPDF417Barcode* FViewpdf417;
	Rm_st2dbarc::TStMaxiCodeBarcode* FViewMaxi;
	bool __fastcall GetDirectDraw(void);
	void __fastcall SetDirectDraw(bool Value);
	
protected:
	virtual AnsiString __fastcall GetViewCommon();
	virtual void __fastcall PlaceOnEndPage(Classes::TStream* aStream);
	
public:
	__fastcall virtual TRM2DBarCodeView(void);
	__fastcall virtual ~TRM2DBarCodeView(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	virtual void __fastcall Draw(Graphics::TCanvas* aCanvas);
	virtual void __fastcall ShowEditor(void);
	virtual void __fastcall DefinePopupMenu(Rm_ctrls::TRMCustomMenuItem* aPopup);
	
__published:
	__property LeftFrame ;
	__property TopFrame ;
	__property RightFrame ;
	__property BottomFrame ;
	__property FillColor ;
	__property Memo ;
	__property TRM2DBarcodeType BarCodeType = {read=FBarCodeType, write=FBarCodeType, nodefault};
	__property Rm_st2dbarc::TStMaxiCodeBarcode* MaxiCodeBarcode = {read=FViewMaxi};
	__property bool DirectDraw = {read=GetDirectDraw, write=SetDirectDraw, nodefault};
	__property PrintFrame ;
	__property Printable ;
	__property OnPreviewClick ;
	__property OnPreviewClickUrl ;
};


class DELPHICLASS TRM2DBarCodeForm;
class PASCALIMPLEMENTATION TRM2DBarCodeForm : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
__published:
	Dialogs::TSaveDialog* SaveDialog1;
	Extctrls::TPanel* Panel3;
	Buttons::TSpeedButton* DBBtn;
	Stdctrls::TLabel* Label1;
	Buttons::TSpeedButton* SpeedButton1;
	Buttons::TSpeedButton* SpeedButton2;
	Stdctrls::TLabel* Label14;
	Stdctrls::TLabel* Label15;
	Stdctrls::TLabel* Label16;
	Stdctrls::TMemo* edtCode;
	Comctrls::TPageControl* Choos2DType;
	Comctrls::TTabSheet* TabSheet1;
	Comctrls::TTabSheet* TabSheet2;
	Stdctrls::TButton* btnOK;
	Stdctrls::TButton* btnCancel;
	Extctrls::TPanel* Panel1;
	Stdctrls::TGroupBox* GroupBox2;
	Stdctrls::TLabel* Label7;
	Stdctrls::TComboBox* cmbMaxiMode;
	Stdctrls::TLabel* Label10;
	Stdctrls::TEdit* Edit2;
	Stdctrls::TEdit* Edit4;
	Stdctrls::TLabel* Label12;
	Stdctrls::TLabel* Label11;
	Stdctrls::TEdit* Edit3;
	Stdctrls::TGroupBox* GroupBox4;
	Stdctrls::TLabel* Label2;
	Stdctrls::TLabel* Label3;
	Stdctrls::TLabel* Label4;
	Stdctrls::TLabel* Label5;
	Stdctrls::TComboBox* ComboBox1;
	Stdctrls::TGroupBox* GroupBox1;
	Stdctrls::TLabel* Label13;
	Stdctrls::TLabel* Label8;
	Stdctrls::TGroupBox* GroupBox3;
	Stdctrls::TLabel* Label6;
	Stdctrls::TLabel* Label9;
	Stdctrls::TCheckBox* CheckBox2;
	Stdctrls::TCheckBox* CheckBox5;
	Stdctrls::TComboBox* ComboBox2;
	Stdctrls::TComboBox* ComboBox4;
	Stdctrls::TEdit* Edit1;
	Stdctrls::TEdit* Edit5;
	Stdctrls::TCheckBox* CheckBox1;
	Stdctrls::TCheckBox* CheckBox3;
	Stdctrls::TRadioButton* rb1;
	Stdctrls::TRadioButton* rb2;
	Stdctrls::TRadioButton* rb3;
	void __fastcall FormCreate(System::TObject* Sender);
	void __fastcall SpeedButton1Click(System::TObject* Sender);
	void __fastcall DBBtnClick(System::TObject* Sender);
	void __fastcall SpinEdit1KeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall ComboBox1KeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall SpinEdit2KeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall SpinEdit3KeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall ComboBox2KeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall CheckBox2KeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall barcolorKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall backgroundColorKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall btnOKKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall btnCancelKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall CheckBox2Click(System::TObject* Sender);
	void __fastcall FormResize(System::TObject* Sender);
	void __fastcall Edit2KeyPress(System::TObject* Sender, char &Key);
	void __fastcall Edit3KeyPress(System::TObject* Sender, char &Key);
	void __fastcall Edit4KeyPress(System::TObject* Sender, char &Key);
	void __fastcall Edit2KeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall Edit3KeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall Edit4KeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall Choos2DTypeChange(System::TObject* Sender);
	void __fastcall FormDestroy(System::TObject* Sender);
	void __fastcall Edit1DblClick(System::TObject* Sender);
	void __fastcall edtCodeChange(System::TObject* Sender);
	void __fastcall CheckBox5Click(System::TObject* Sender);
	void __fastcall CheckBox5KeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall SpinEdit1Change(System::TObject* Sender);
	void __fastcall ComboBox1Change(System::TObject* Sender);
	void __fastcall ComboBox2Change(System::TObject* Sender);
	void __fastcall Edit1Change(System::TObject* Sender);
	void __fastcall CheckBox1Click(System::TObject* Sender);
	void __fastcall CheckBox3Click(System::TObject* Sender);
	void __fastcall CheckBox4Click(System::TObject* Sender);
	void __fastcall Edit2Change(System::TObject* Sender);
	void __fastcall Edit4Change(System::TObject* Sender);
	void __fastcall Edit3Change(System::TObject* Sender);
	void __fastcall cmbMaxiModeChange(System::TObject* Sender);
	void __fastcall ComboBox4Change(System::TObject* Sender);
	void __fastcall Edit5Change(System::TObject* Sender);
	void __fastcall FormShow(System::TObject* Sender);
	void __fastcall edtCodeKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall SpeedButton2Click(System::TObject* Sender);
	void __fastcall RB1Click(System::TObject* Sender);
	void __fastcall rb2Click(System::TObject* Sender);
	void __fastcall rb3Click(System::TObject* Sender);
	
private:
	Rm_class::TRMView* FView;
	Rm_st2dbarc::TStPDF417Barcode* FPDF417;
	Rm_st2dbarc::TStMaxiCodeBarcode* FMaxi;
	Rm_ctrls::TRMSpinEdit* FSpinEdit1;
	Rm_ctrls::TRMSpinEdit* FSpinEdit2;
	Rm_ctrls::TRMSpinEdit* FSpinEdit3;
	bool FBusy;
	bool __fastcall Check2BarCode(AnsiString S);
	void __fastcall Localize(void);
	void __fastcall ShowSample(void);
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TRM2DBarCodeForm(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TRM2DBarCodeForm(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.Destroy */ inline __fastcall virtual ~TRM2DBarCodeForm(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRM2DBarCodeForm(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
#define cbDefaultText "12345678"

}	/* namespace Rm_barcode */
using namespace Rm_barcode;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Rm_barcode