chled.hpp

网上找到的LED模拟显示,都只能显示数字和字母.但我这个是可以显示简繁体中文的.可以调节显示的点数象素,还有显示速度选择.

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'ChLed.pas' rev: 6.00

#ifndef ChLedHPP
#define ChLedHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Messages.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Chled
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TTextAlign { alLeft, alCenter, alRight, alScroll };
#pragma option pop

class DELPHICLASS TChLed;
class PASCALIMPLEMENTATION TChLed : public Controls::TGraphicControl 
{
	typedef Controls::TGraphicControl inherited;
	
private:
	Graphics::TBitmap* FBackground;
	Graphics::TBitmap* FBitmap;
	AnsiString FText;
	TTextAlign FTextAlign;
	int FCellSize;
	int FCellDistance;
	int FBorderWidth;
	Graphics::TColor FForeColor;
	Graphics::TColor FShadowColor;
	Graphics::TColor FBackColor;
	Extctrls::TTimer* FTimer;
	int FScrollPos;
	int FScrollSpeed;
	HIDESBASE void __fastcall SetText(const AnsiString AValue);
	void __fastcall SetTextAlign(const TTextAlign AValue);
	void __fastcall SetCellSize(const int AValue);
	void __fastcall SetCellDistance(const int AValue);
	void __fastcall SetBorderWidth(const int AValue);
	void __fastcall SetForeColor(const Graphics::TColor AValue);
	void __fastcall SetShadowColor(const Graphics::TColor AValue);
	void __fastcall SetBackColor(const Graphics::TColor AValue);
	void __fastcall SetScrollSpeed(const int AValue);
	void __fastcall CreateBackground(void);
	int __fastcall CreateLedPicture(const AnsiString AText, const int APos);
	void __fastcall CreateLedPictureEx(const AnsiString AText, const TTextAlign AAlign);
	void __fastcall OnTimer(System::TObject* ASender);
	
protected:
	virtual void __fastcall Paint(void);
	virtual void __fastcall Loaded(void);
	DYNAMIC void __fastcall Resize(void);
	
public:
	__fastcall virtual TChLed(Classes::TComponent* AOwner);
	__fastcall virtual ~TChLed(void);
	
__published:
	__property Align  = {default=0};
	__property Font ;
	__property ParentFont  = {default=1};
	__property AnsiString Text = {read=FText, write=SetText};
	__property TTextAlign TextAlign = {read=FTextAlign, write=SetTextAlign, default=0};
	__property int CellSize = {read=FCellSize, write=SetCellSize, default=5};
	__property int CellDistance = {read=FCellDistance, write=SetCellDistance, default=2};
	__property int BorderWidth = {read=FBorderWidth, write=SetBorderWidth, default=3};
	__property Graphics::TColor ForeColor = {read=FForeColor, write=SetForeColor, default=65280};
	__property Graphics::TColor ShadowColor = {read=FShadowColor, write=SetShadowColor, default=32768};
	__property Graphics::TColor BackColor = {read=FBackColor, write=SetBackColor, default=0};
	__property int ScrollSpeed = {read=FScrollSpeed, write=SetScrollSpeed, default=200};
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Chled */
using namespace Chled;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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