Unit DogsEar

----------------------------------------------------------------------------- DogsEar.Pas Copyright (c) 1996 Thorsten Dittmar ----------------------------------------------------------------------------- "Eselsohr"-Komponente: Kann in Anwendungen, die als Buch aufgebaut sind, zum Blättern verwendet werden. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Properties: AlignDogsEar - adLeft (linke Seite), adRight (rechte Seite) ColorDogsEar - Farbe der umgeklappten Ecke ColorBackground - Farbe des Hintergrundes (Tranparenz simulieren) ColorFrame - Farbe des Rahmens FrameStyle - fsFrame (Rahmen), fsNone (kein Rahmen MultiPage - True: zwei Eselsohren (1 Seite, mehrere Seiten) False: ein Eselsohr (1 Seite) NumPages - Zahl der Seiten, die bei Multipage geblättert wird - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Events: OnClick - Wenn angeklickt wird -----------------------------------------------------------------------------

Classes

TDogsEar -

Functions

Register - ----------------------------------------------------------------------------- Registrierung in der Komponentenpalette -----------------------------------------------------------------------------

Types

TDogsEarAlign
TDogsEarFrameStyle
TDogsEarNotify
TDogsEarNumPages
TDogsEarPoly

Constants

Variables


Functions


procedure Register;

----------------------------------------------------------------------------- Registrierung in der Komponentenpalette -----------------------------------------------------------------------------

Types


TDogsEarAlign      = (adLeft, adRight);

TDogsEarFrameStyle = (dfFrame, dfNoFrame);
Ausrichtung des Eselsohres
TDogsEarNotify     = procedure (Sender : TObject;
                                 NumPages : TDogsEarNumPages) of Object
Zahl der Scrollseiten
TDogsEarNumPages   = 1..MaxInt
Rahmenart des Eselsohres
TDogsEarPoly = Array[0..3] of TPoint;

Constants


Variables