Unit GSwitch

Programm : SWITCH.PAS Sprache : Delphi Zweck : Schalter-Komponente Datum : 15, 16. Feb. 1996 Autor : U.Jnr- This component simulates a luffing switch as used in many electic devices. No Bitmaps are used, so it's fully scaleable. Sorry for comments are in german. Hint: Why do so many programers hide theire sources? Is this the real sense of "share" ? Greeting from germany - enjoy...

Classes

TSwitch - Vektorarraytyp fnr Dreieck

Functions

Register - ------------------------------------------------------------------------------

------------------------------------------------------------------------------

Types

RectArray
TriArray

Constants

Variables


Functions


procedure Register;

------------------------------------------------------------------------------

------------------------------------------------------------------------------


Types


RectArray = array[0..3] of TPoint;
------------------------------------------------------------------------------
TriArray = array[0..2] of TPoint;
Vektorarraytyp fnr Rechteck

Constants


Variables