qiswitchled.hpp

Iocomp Ultra Pack v3.0.2 Sources.For.Delphi 数据显示编程插件,可用于工业控制

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

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

#ifndef QiSwitchLedHPP
#define QiSwitchLedHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <QiComponent.hpp>	// Pascal unit
#include <QiCLXComponent.hpp>	// Pascal unit
#include <QiCustomComponent.hpp>	// Pascal unit
#include <QiGPFunctions.hpp>	// Pascal unit
#include <QiTypes.hpp>	// Pascal unit
#include <QExtCtrls.hpp>	// Pascal unit
#include <QStdCtrls.hpp>	// Pascal unit
#include <QComCtrls.hpp>	// Pascal unit
#include <QControls.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <QTypes.hpp>	// Pascal unit
#include <QClipbrd.hpp>	// Pascal unit
#include <QDialogs.hpp>	// Pascal unit
#include <QForms.hpp>	// Pascal unit
#include <QGraphics.hpp>	// Pascal unit
#include <Qt.hpp>	// Pascal unit
#include <TypInfo.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Qiswitchled
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TiSwitchLedCaptionAlignment { islcaIndicator, islcaOppisiteSide };
#pragma option pop

class DELPHICLASS TiSwitchLed;
class PASCALIMPLEMENTATION TiSwitchLed : public Qicustomcomponent::TiCustomComponent 
{
	typedef Qicustomcomponent::TiCustomComponent inherited;
	
private:
	bool FMouseDown;
	bool FKeyDown;
	bool FActive;
	Qgraphics::TColor FActiveColor;
	bool FAutoLedSize;
	AnsiString FCaption;
	Qgraphics::TFont* FCaptionFont;
	int FCaptionMargin;
	int FIndicatorHeight;
	Qitypes::TiSideAlignment FIndicatorAlignment;
	int FIndicatorMargin;
	int FIndicatorWidth;
	bool FShowFocusRect;
	Classes::TNotifyEvent FOnChange;
	TiSwitchLedCaptionAlignment FCaptionAlignment;
	bool FUserGenerated;
	bool FWordWrap;
	Classes::TNotifyEvent FOnChangeUser;
	int FBorderSize;
	Qgraphics::TBitmap* FGlyph;
	Qgraphics::TColor FBorderShadowColor;
	Qgraphics::TColor FBorderHighlightColor;
	void __fastcall SetActive(const bool Value);
	void __fastcall SetActiveColor(const Qgraphics::TColor Value);
	void __fastcall SetAutoLedSize(const bool Value);
	void __fastcall SetCaption(const AnsiString Value);
	void __fastcall SetCaptionFont(const Qgraphics::TFont* Value);
	void __fastcall SetCaptionMargin(const int Value);
	void __fastcall SetIndicatorAlignment(const Qitypes::TiSideAlignment Value);
	void __fastcall SetIndicatorHeight(const int Value);
	void __fastcall SetIndicatorMargin(const int Value);
	void __fastcall SetIndicatorWidth(const int Value);
	void __fastcall SetShowFocusRect(const bool Value);
	void __fastcall SetCaptionAlignment(const TiSwitchLedCaptionAlignment Value);
	void __fastcall SetWordWrap(const bool Value);
	void __fastcall SetBorderSize(const int Value);
	void __fastcall SetGlyph(const Qgraphics::TBitmap* Value);
	void __fastcall SetBorderHighlightColor(const Qgraphics::TColor Value);
	void __fastcall SetBorderShadowColor(const Qgraphics::TColor Value);
	
protected:
	virtual void __fastcall iMouseDown(Qcontrols::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall iMouseUp(Qcontrols::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall iKeyUp(Word &CharCode, Classes::TShiftState Shift);
	virtual void __fastcall iKeyDown(Word &CharCode, Classes::TShiftState Shift);
	virtual void __fastcall iDoKillFocus(void);
	virtual void __fastcall iPaintTo(Qgraphics::TCanvas* Canvas);
	HIDESBASE void __fastcall DrawBorder(Qgraphics::TCanvas* Canvas);
	void __fastcall DrawEdgeTopLeft(Qgraphics::TCanvas* Canvas, int Offset, Qgraphics::TColor AColor);
	void __fastcall DrawEdgeBottomRight(Qgraphics::TCanvas* Canvas, int Offset, Qgraphics::TColor AColor);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	void __fastcall WriteCaption(Classes::TWriter* Writer);
	void __fastcall ReadCaption(Classes::TReader* Reader);
	void __fastcall DoChange(void);
	
public:
	__fastcall virtual TiSwitchLed(Classes::TComponent* AOwner);
	__fastcall virtual ~TiSwitchLed(void);
	void __fastcall SetActiveNoEvent(const bool Value);
	
__published:
	__property bool Active = {read=FActive, write=SetActive, default=0};
	__property Qgraphics::TColor ActiveColor = {read=FActiveColor, write=SetActiveColor, default=65280};
	__property bool AutoLedSize = {read=FAutoLedSize, write=SetAutoLedSize, default=1};
	__property AnsiString Caption = {read=FCaption, write=SetCaption};
	__property Qgraphics::TFont* CaptionFont = {read=FCaptionFont, write=SetCaptionFont};
	__property int CaptionMargin = {read=FCaptionMargin, write=SetCaptionMargin, nodefault};
	__property TiSwitchLedCaptionAlignment CaptionAlignment = {read=FCaptionAlignment, write=SetCaptionAlignment, default=0};
	__property Qitypes::TiSideAlignment IndicatorAlignment = {read=FIndicatorAlignment, write=SetIndicatorAlignment, default=0};
	__property int IndicatorHeight = {read=FIndicatorHeight, write=SetIndicatorHeight, default=4};
	__property int IndicatorMargin = {read=FIndicatorMargin, write=SetIndicatorMargin, default=5};
	__property int IndicatorWidth = {read=FIndicatorWidth, write=SetIndicatorWidth, default=10};
	__property bool ShowFocusRect = {read=FShowFocusRect, write=SetShowFocusRect, default=1};
	__property bool WordWrap = {read=FWordWrap, write=SetWordWrap, default=0};
	__property int BorderSize = {read=FBorderSize, write=SetBorderSize, nodefault};
	__property Qgraphics::TColor BorderHighlightColor = {read=FBorderHighlightColor, write=SetBorderHighlightColor, nodefault};
	__property Qgraphics::TColor BorderShadowColor = {read=FBorderShadowColor, write=SetBorderShadowColor, nodefault};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
	__property Classes::TNotifyEvent OnChangeUser = {read=FOnChangeUser, write=FOnChangeUser};
	__property Qgraphics::TBitmap* Glyph = {read=FGlyph, write=SetGlyph};
	__property Enabled  = {default=1};
	__property TabOrder  = {default=-1};
	__property TabStop  = {default=1};
	__property Width  = {default=40};
	__property Height  = {default=28};
	__property BackGroundColor  = {default=-2};
public:
	#pragma option push -w-inl
	/* TWidgetControl.CreateParented */ inline __fastcall TiSwitchLed(Qt::QWidgetH* ParentWidget) : Qicustomcomponent::TiCustomComponent(ParentWidget) { }
	#pragma option pop
	
};


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

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

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