iswitchled.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) 'iSwitchLed.pas' rev: 6.00

#ifndef iSwitchLedHPP
#define iSwitchLedHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <iComponent.hpp>	// Pascal unit
#include <iVCLComponent.hpp>	// Pascal unit
#include <iCustomComponent.hpp>	// Pascal unit
#include <iGPFunctions.hpp>	// Pascal unit
#include <iTypes.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <ComCtrls.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <Clipbrd.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.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 Iswitchled
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TiSwitchLedCaptionAlignment { islcaIndicator, islcaOppisiteSide };
#pragma option pop

class DELPHICLASS TiSwitchLed;
class PASCALIMPLEMENTATION TiSwitchLed : public Icustomcomponent::TiCustomComponent 
{
	typedef Icustomcomponent::TiCustomComponent inherited;
	
private:
	bool FMouseDown;
	bool FKeyDown;
	bool FActive;
	Graphics::TColor FActiveColor;
	bool FAutoLedSize;
	AnsiString FCaption;
	Graphics::TFont* FCaptionFont;
	int FCaptionMargin;
	int FIndicatorHeight;
	Itypes::TiSideAlignment FIndicatorAlignment;
	int FIndicatorMargin;
	int FIndicatorWidth;
	bool FShowFocusRect;
	Classes::TNotifyEvent FOnChange;
	TiSwitchLedCaptionAlignment FCaptionAlignment;
	bool FUserGenerated;
	bool FWordWrap;
	Classes::TNotifyEvent FOnChangeUser;
	int FBorderSize;
	Graphics::TBitmap* FGlyph;
	Graphics::TColor FBorderShadowColor;
	Graphics::TColor FBorderHighlightColor;
	void __fastcall SetActive(const bool Value);
	void __fastcall SetActiveColor(const Graphics::TColor Value);
	void __fastcall SetAutoLedSize(const bool Value);
	void __fastcall SetCaption(const AnsiString Value);
	void __fastcall SetCaptionFont(const Graphics::TFont* Value);
	void __fastcall SetCaptionMargin(const int Value);
	void __fastcall SetIndicatorAlignment(const Itypes::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 Graphics::TBitmap* Value);
	void __fastcall SetBorderHighlightColor(const Graphics::TColor Value);
	void __fastcall SetBorderShadowColor(const Graphics::TColor Value);
	
protected:
	virtual void __fastcall iMouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall iMouseUp(Controls::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(Graphics::TCanvas* Canvas);
	HIDESBASE void __fastcall DrawBorder(Graphics::TCanvas* Canvas);
	void __fastcall DrawEdgeTopLeft(Graphics::TCanvas* Canvas, int Offset, Graphics::TColor AColor);
	void __fastcall DrawEdgeBottomRight(Graphics::TCanvas* Canvas, int Offset, Graphics::TColor AColor);
	HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
	MESSAGE void __fastcall WMSysChar(Messages::TWMKey &Message);
	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 Graphics::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 Graphics::TFont* CaptionFont = {read=FCaptionFont, write=SetCaptionFont};
	__property int CaptionMargin = {read=FCaptionMargin, write=SetCaptionMargin, nodefault};
	__property TiSwitchLedCaptionAlignment CaptionAlignment = {read=FCaptionAlignment, write=SetCaptionAlignment, default=0};
	__property Itypes::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 Graphics::TColor BorderHighlightColor = {read=FBorderHighlightColor, write=SetBorderHighlightColor, nodefault};
	__property Graphics::TColor BorderShadowColor = {read=FBorderShadowColor, write=SetBorderShadowColor, nodefault};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
	__property Classes::TNotifyEvent OnChangeUser = {read=FOnChangeUser, write=FOnChangeUser};
	__property Graphics::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=-2147483633};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TiSwitchLed(HWND ParentWindow) : Icustomcomponent::TiCustomComponent(ParentWindow) { }
	#pragma option pop
	
};


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

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

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