Class TSwitch (unit GSwitch)

Inherits from

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);

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;



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;