THemisphereButton -
Register -
THemisphereBevel
cDefaultColor
cDefaultHeight
cDefaultWidth
cLightX
cLightY
cLightZ
procedure Register;
THemisphereBevel = (hbNone, hbLowered, hbRaised);
(points to upper-left corner, Windows-std.)
cDefaultColor = clGray
** THemisphereButton implementation
** Copyright (c) 1997 Christian Schnell
**
** Author: Christian Schnell
** lulli@cs.tu-berlin.de
** http://www.cs.tu-berlin.de/~lulli
**
** History:
**
** .p00 [19970627cs] first release
** .p01 [19970801cs] [sub-release]
** removed MATH-usage, added functions ceil() and floor().
** .p02 [19970814cs] [sub-release]
** added user-bitmap UserBitmap, lower left pixel is
** reserved for transparent color.
** .p03 [19970815cs] renamed UserBitmap to Glyph, added NumGlyphs,
** GlyphIndex
** stripped CalcImages, fixed: mouse events, default size
** added shaded glyphs
** [19970821cs] added GlyphMapped, AttenControl
** added arctan2
** changed illumination model
** removed fColorBright, redDt, greenDt, blueDt
** renamed Pressed to Down
** added ParentShowHint, ShowHint
** .p04 [19970823cs] [sub-release]
** [19970825cs] added FaceShaded
** bmIn and bmOut now calculated in one step
** bug-fix: Glyph painting on odd width or height
** problem: ParentFont seems not possible, TControl.Font is
** protected (cannot access Parent.Font!)
** added FaceTransparent, GlyphTransparent
** .p05 [19970826cs] [sub-release]
** .p06 [19970831cs] added bmMask, background-clip-mask is now persistent
** calling Paint indirectly now (Invalidate), except SetDown
** right mouse click ignored now
** made changes for Delphi1
** [sub-release]
** .p07 [19971006cs] 2nd release (as 2.0)
** OK for Delphi1, Delphi2 and Delphi3
** .p08 [19971030cs] 3rd release (as 2.1)
** Bug-fix:
** - added fFont.Free in destructor
** - fixed Delphi1\HemiBtn.dcr (was bad in release 2.0)
** Changed:
** - New glyph for component-palette, note that if you
** are upgrading from release 2.0, you must reinstall
** the component to see the new image in your IDE.
cDefaultHeight = 25
default dimensions
cDefaultWidth = 25
default face color
cLightX = -0.5773502692
cLightY = -0.5773502692
vector to light-source,
cLightZ = 0.5773502692
left-handed coordinate system