📄 psled.h
字号:
//---------------------------------------------------------------------------
#ifndef PSLEDH
#define PSLEDH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Controls.hpp>
#include <Classes.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TPSLED : public TGraphicControl
{
private:
bool FOnOff;
bool FIndicator;
TColor FOnColor;
TColor FOffColor;
TColor FFrameColor;
AnsiString FCaption;
void __fastcall SetOnOff (const bool value);
void __fastcall SetOnColor (const TColor OnColor);
void __fastcall SetOffColor (const TColor OffColor);
void __fastcall SetFrameColor (const TColor FrameColor);
void __fastcall SetCaption (const AnsiString Caption);
void __fastcall SetIndicator (bool val);
TNotifyEvent FOnChange;
protected:
void __fastcall Paint (void);
void __fastcall SetEnabled(bool Value);
DYNAMIC void __fastcall Click(void);
DYNAMIC void __fastcall DblClick(void);
public:
__fastcall TPSLED(TComponent* Owner);
__published:
__property bool LEDOn = {read=FOnOff, write=SetOnOff};
__property TColor OnColor = {read=FOnColor, write=SetOnColor};
__property TColor OffColor = {read=FOffColor, write=SetOffColor};
__property TColor FrameColor = {read=FFrameColor, write=SetFrameColor};
__property AnsiString Caption = {read=FCaption, write=SetCaption};
__property TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
__property bool Indicator = {read=FIndicator, write=SetIndicator};
__property Font;
__property OnClick;
__property Enabled;
};
//---------------------------------------------------------------------------
#endif
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -