Class TSwitch (unit GSwitch) |
Inherits from
TCustomControl
Vektorarraytyp fnr Dreieck
constructor Create(AOwner: TComponent);
- ------------------------------------------------------------------------------
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------------------------------------------------------------------------------
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
event OnChanged : TNotifyEvent
event OnChecked : TNotifyEvent
event OnClick :
event OnColor : TColor
event OnMouseDown :
event OnUnChecked : TNotifyEvent
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;
constructor Create(AOwner: TComponent);
------------------------------------------------------------------------------
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
------------------------------------------------------------------------------
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
event OnChanged : TNotifyEvent
event OnChecked : TNotifyEvent
event OnClick :
event OnColor : TColor
event OnMouseDown :
event OnUnChecked : TNotifyEvent
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;