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 |
Types |
TDogsEarAlign = (adLeft, adRight);
TDogsEarFrameStyle = (dfFrame, dfNoFrame);Ausrichtung des Eselsohres
TDogsEarNotify = procedure (Sender : TObject; NumPages : TDogsEarNumPages) of ObjectZahl der Scrollseiten
TDogsEarNumPages = 1..MaxIntRahmenart des Eselsohres
TDogsEarPoly = Array[0..3] of TPoint;
Constants |
Variables |