Unit DaveBtn1

***************************************************************************** .__z-=~~~~~~~@zz__ _z~~ _zr `~-@b_ .d~ .d@" `@@z .% a@[ `@@L d' ]@@ ]@[ TM ] a@[ ]@[ ___zz___ _zzz )zL .______, `L )@@' ]@[ ]d@~ .@[ )~.@@ `@@L ]ar' ]@' `L d@[ a@[e@@' d@' ]@P "[ a@ d@ a@[ ]@@)@@' _@@ a@' d']@K---=~" ]@@ .z@@']@@ _d"@[ _ )@@ _/' ]@[ _ ._a@[ __z~~' `@@L_s~ `@L_' `@L__s-" `@@____/" ~~~~~~~~~~---~~~ `~~" "~' `~~ ~~~~ TDaveButton1 - náhrada za TButton ************ - hlavní rozdíl je v designu - má pevnou velikost Y a proměnnou X (c) David Grudl, U Splavu 11, 690 02 Breclav, Czech Republic, 1998 *************************** email: daveg@email.cz

Classes

TDaveButton1 - tvar a druh tlačítka - zatím se liší barvou podkladu

Functions

Register -

Types

TButtonState
TButtonStyle

Constants

constHeight

Variables


Functions


procedure Register;


Types


TButtonState     = (bsOff, bsOn);
konstantni vyska tlacitka
TButtonStyle     = (bsOnGray, bsOnWhite);
stav tlačítka - nezmáčklé, zmáčklé

Constants

constHeight = 41


Variables