| Class TSwitch (unit GSwitch) |
TCustomControl
Vektorarraytyp fnr Dreieck
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Paint;
procedure CallNotifyEvent;
procedure Draw;
procedure SetCaptionOff(Value: TCaption);
procedure SetCaptionOn(Value: TCaption);
procedure SetChecked(Value: Boolean);
procedure SetCheckedLeft(Value: Boolean);
procedure SetOffColor(Value: TColor);
procedure SetOnColor(Value: TColor);
procedure SetSideColor(Value: TColor);
procedure SetSideLength(Value: Byte);
procedure SetSlope(Value: Byte);
procedure SetTopColor(Value: TColor);
procedure Setup;
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);------------------------------------------------------------------------------
| Properties |
property CaptionOff : TCaption
property CaptionOn : TCaption
property Checked : Boolean
property CheckedLeft : Boolean
property Font :
property OffColor : TColor
property ShowHint :
property SideColor : TColor
property SideLength : Byte
property Slope : Byte
property TabOrder :
property TabStop :
property TopColor : TColor| Events |
event OnChanged : TNotifyEvent
event OnChecked : TNotifyEvent
event OnClick :
event OnColor : TColor
event OnMouseDown :
event OnUnChecked : TNotifyEvent| Variables |
AHeight : Integer;
ALeft : Integer;
ATop : Integer;
AWidth : Integer;
FCaptionOff : TCaption;
FCaptionOn : TCaption;
FChecked : Boolean;
FCheckedLeft : Boolean;
FOffColor : TColor;
FOnChanged : TNotifyEvent;
FOnChecked : TNotifyEvent;
FOnColor : TColor;
FOnUnChecked : TNotifyEvent;
FSideColor : TColor;
FSideLength : Byte;
FSlope : Byte;
FTopColor : TColor;
LabelLen : Integer;
LabelOfs : Integer;
OffShape : RectArray;
OnShape : RectArray;
Side : Integer;
SideShape : RectArray;
TopShape : TriArray;| Constructors |
constructor Create(AOwner: TComponent);------------------------------------------------------------------------------
| Functions |
procedure KeyDown(var Key: Word; Shift: TShiftState);------------------------------------------------------------------------------
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);------------------------------------------------------------------------------
procedure Paint;------------------------------------------------------------------------------
procedure CallNotifyEvent;------------------------------------------------------------------------------
procedure Draw;------------------------------------------------------------------------------
procedure SetCaptionOff(Value: TCaption);------------------------------------------------------------------------------
procedure SetCaptionOn(Value: TCaption);------------------------------------------------------------------------------
procedure SetChecked(Value: Boolean);------------------------------------------------------------------------------
procedure SetCheckedLeft(Value: Boolean);------------------------------------------------------------------------------
procedure SetOffColor(Value: TColor);------------------------------------------------------------------------------
procedure SetOnColor(Value: TColor);------------------------------------------------------------------------------
procedure SetSideColor(Value: TColor);------------------------------------------------------------------------------
procedure SetSideLength(Value: Byte);------------------------------------------------------------------------------
procedure SetSlope(Value: Byte);------------------------------------------------------------------------------
procedure SetTopColor(Value: TColor);------------------------------------------------------------------------------
procedure Setup;------------------------------------------------------------------------------
procedure WMKillFocus(var Message: TWMKillFocus);------------------------------------------------------------------------------
procedure WMSetFocus(var Message: TWMSetFocus);Tempor_r in Setup verwendet
------------------------------------------------------------------------------
| Properties |
property CaptionOff : TCaption
property CaptionOn : TCaption
property Checked : Boolean
property CheckedLeft : Boolean
property Font :
property OffColor : TColor
property ShowHint :
property SideColor : TColor
property SideLength : Byte
property Slope : Byte
property TabOrder :
property TabStop :
property TopColor : TColor| Events |
event OnChanged : TNotifyEvent
event OnChecked : TNotifyEvent
event OnClick :
event OnColor : TColor
event OnMouseDown :
event OnUnChecked : TNotifyEvent| Variables |
AHeight : Integer;Obere Anfangsposition des Schalters
ALeft : Integer;Farbe fnr Seitenfl_che
ATop : Integer;Linke Anfangsposition des Schalters
AWidth : Integer;Hwhe des Schalters
FCaptionOff : TCaption;Beschriftung Schalterstellung "ON"
FCaptionOn : TCaption;Verbindung zur Aussenwelt
FChecked : Boolean;Beschriftung Schalterstellung "OFF"
FCheckedLeft : Boolean;Flag von Schalterstellung
FOffColor : TColor;Farbe fnr Frontfl_che "ON"
FOnChanged : TNotifyEvent;Rechteck Vektoren von Schalterseite
FOnChecked : TNotifyEvent;Verbindung zur Aussenwelt
FOnColor : TColor;Seitenabstand fnr hervorstehendes Schalterteil
FOnUnChecked : TNotifyEvent;Verbindung zur Aussenwelt
FSideColor : TColor;Farbe fnr Schalteroberseite
FSideLength : Byte;Neigung (3D Effekt) des Schalters
FSlope : Byte;Flag ob "ON" links oder rechts dargestellt wird
FTopColor : TColor;Farbe fnr Frontfl_che "OFF"
LabelLen : Integer;Breite des Schalters
LabelOfs : Integer;Halbbreite des Schalters
OffShape : RectArray;Rechteck Vektoren von Schalterfront "ON"
OnShape : RectArray;Dreieck Vektoren von Schalteroberseite
Side : Integer;Halbbreite fnr Spiegeldarstellung
SideShape : RectArray;Rechteck Vektoren von Schalterfront "OFF"
TopShape : TriArray;