| Class THemisphereButton (unit Hemibtn) |
TGraphicControl
| Constructors |
constructor Create(aOwner: TComponent);| Functions |
destructor Destroy;
procedure CalcImages;
procedure DefineProperties(Filer: TFiler);
function InsideEllipse(X,Y: Integer): Boolean;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Paint;
procedure ReadGlyphValid(Reader: TReader);
procedure ReadImageGlyph(Stream: TStream);
procedure ReadImageIn(Stream: TStream);
procedure ReadImageMask(Stream: TStream);
procedure ReadImageOut(Stream: TStream);
procedure RenderBorder(aCanvas: TCanvas; X0,Y0,X1,Y1, bevWidth: Integer; Raised: Boolean);
procedure RenderButtonFaces(nBorder: Integer; mskBorder, canvUp, canvDown: TCanvas);
procedure SetAllowAllUp(Value: Boolean);
procedure SetAttenControl(Value: Double);
procedure SetBevelInner(Value: THemisphereBevel);
procedure SetBevelOuter(Value: THemisphereBevel);
procedure SetBevelWidth(Value: Integer);
procedure SetBorderColor(Value: TColor);
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetBounds(aLeft, aTop, aWidth, aHeight: Integer);
procedure SetCaption(Value: String);
procedure SetDown(Value: Boolean);
procedure SetFaceColor(Value: TColor);
procedure SetFaceShaded(Value: Boolean);
procedure SetFaceTransparent(Value: Boolean);
procedure SetFont(Value: TFont);
procedure SetGlyph(Value: TBitmap);
procedure SetGlyphIndex(Value: Integer);
procedure SetGlyphMapped(Value: Boolean);
procedure SetGlyphShaded(Value: Boolean);
procedure SetGlyphTransparent(Value: Boolean);
procedure SetNumGlyphs(Value: Integer);
procedure WriteGlyphValid(Writer: TWriter);
procedure WriteImageGlyph(Stream: TStream);
procedure WriteImageIn(Stream: TStream);
procedure WriteImageMask(Stream: TStream);
procedure WriteImageOut(Stream: TStream);| Properties |
property Align :
property AllowAllUp : Boolean
property AttenControl : Double
property BevelInner : THemisphereBevel
property BevelOuter : THemisphereBevel
property BevelWidth : Integer
property BorderColor : TColor
property BorderStyle : TBorderStyle
property Caption : String
property Down : Boolean
property Enabled :
property FaceColor : TColor
property FaceShaded : Boolean
property FaceTransparent : Boolean
property Font : TFont
property Glyph : TBitmap
property GlyphIndex : Integer
property GlyphMapped : Boolean
property GlyphShaded : Boolean
property GlyphTransparent : Boolean
property GroupIndex : Integer
property Hint :
property NumGlyphs : Integer
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Visible : | Events |
event OnClick : TNotifyEvent
event OnDblClick : TNotifyEvent
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown : TMouseEvent
event OnMouseMove : TMouseMoveEvent
event OnMouseUp : TMouseEvent
event OnStartDrag : | Variables |
bmGlpyh : TBitmap;
bmMask : TBitmap;
bmPressed : TBitmap;
bmUnpressed : TBitmap;
faceBlue : TColor;
faceGreen : TColor;
faceRed : TColor;
fAllowAllUp : Boolean;
fAttenControl : Double;
fBevelInner : THemisphereBevel;
fBevelOuter : THemisphereBevel;
fBevelWidth : Integer;
fBorderColor : TColor;
fBorderStyle : TBorderStyle;
fCaption : String;
fDown : Boolean;
fFaceColor : TColor;
fFaceShaded : Boolean;
fFaceTransparent : Boolean;
fFont : TFont;
fGlyphIndex : Integer;
fGlyphMapped : Boolean;
fGlyphShaded : Boolean;
fGlyphTransparent : Boolean;
fGroupIndex : Integer;
fNumGlyphs : Integer;
fOnClick : TNotifyEvent;
fOnDblClick : TNotifyEvent;
fOnMouseDown : TMouseEvent;
fOnMouseMove : TMouseMoveEvent;
fOnMouseUp : TMouseEvent;
GlyphValid : Boolean;
InMousePress : Boolean;
oldDown : Boolean;
oldHeight : Integer;
oldWidth : Integer;| Constructors |
constructor Create(aOwner: TComponent);| Functions |
destructor Destroy;
procedure CalcImages;Left-Top
procedure DefineProperties(Filer: TFiler);
function InsideEllipse(X,Y: Integer): Boolean;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Paint;OR
procedure ReadGlyphValid(Reader: TReader);
procedure ReadImageGlyph(Stream: TStream);
procedure ReadImageIn(Stream: TStream);
procedure ReadImageMask(Stream: TStream);
procedure ReadImageOut(Stream: TStream);
procedure RenderBorder(aCanvas: TCanvas; X0,Y0,X1,Y1, bevWidth: Integer; Raised: Boolean);
procedure RenderButtonFaces(nBorder: Integer; mskBorder, canvUp, canvDown: TCanvas);
procedure SetAllowAllUp(Value: Boolean);
procedure SetAttenControl(Value: Double);
procedure SetBevelInner(Value: THemisphereBevel);
procedure SetBevelOuter(Value: THemisphereBevel);
procedure SetBevelWidth(Value: Integer);
procedure SetBorderColor(Value: TColor);
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetBounds(aLeft, aTop, aWidth, aHeight: Integer);
procedure SetCaption(Value: String);
procedure SetDown(Value: Boolean);
procedure SetFaceColor(Value: TColor);Invalidate;
procedure SetFaceShaded(Value: Boolean);
procedure SetFaceTransparent(Value: Boolean);
procedure SetFont(Value: TFont);
procedure SetGlyph(Value: TBitmap);
procedure SetGlyphIndex(Value: Integer);
procedure SetGlyphMapped(Value: Boolean);
procedure SetGlyphShaded(Value: Boolean);
procedure SetGlyphTransparent(Value: Boolean);
procedure SetNumGlyphs(Value: Integer);
procedure WriteGlyphValid(Writer: TWriter);
procedure WriteImageGlyph(Stream: TStream);
procedure WriteImageIn(Stream: TStream);
procedure WriteImageMask(Stream: TStream);
procedure WriteImageOut(Stream: TStream);| Properties |
property Align :
property AllowAllUp : Boolean
property AttenControl : Double
property BevelInner : THemisphereBevel
property BevelOuter : THemisphereBevel
property BevelWidth : Integer
property BorderColor : TColor
property BorderStyle : TBorderStyle
property Caption : String
property Down : Boolean
property Enabled :
property FaceColor : TColor
property FaceShaded : Boolean
property FaceTransparent : Boolean
property Font : TFont
property Glyph : TBitmap
property GlyphIndex : IntegerWe store it, TBitmap is buggy
property GlyphMapped : Boolean
property GlyphShaded : Boolean
property GlyphTransparent : Boolean
property GroupIndex : Integer
property Hint :
property NumGlyphs : Integer
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Visible : | Events |
event OnClick : TNotifyEvent
event OnDblClick : TNotifyEvent
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown : TMouseEvent
event OnMouseMove : TMouseMoveEvent
event OnMouseUp : TMouseEvent
event OnStartDrag : | Variables |
bmGlpyh : TBitmap;
bmMask : TBitmap;
bmPressed : TBitmap;
bmUnpressed : TBitmap;
faceBlue : TColor;
faceGreen : TColor;
faceRed : TColor;
fAllowAllUp : Boolean;
fAttenControl : Double;
fBevelInner : THemisphereBevel;
fBevelOuter : THemisphereBevel;
fBevelWidth : Integer;
fBorderColor : TColor;
fBorderStyle : TBorderStyle;
fCaption : String;
fDown : Boolean;
fFaceColor : TColor;
fFaceShaded : Boolean;
fFaceTransparent : Boolean;
fFont : TFont;
fGlyphIndex : Integer;
fGlyphMapped : Boolean;
fGlyphShaded : Boolean;
fGlyphTransparent : Boolean;
fGroupIndex : Integer;
fNumGlyphs : Integer;
fOnClick : TNotifyEvent;
fOnDblClick : TNotifyEvent;
fOnMouseDown : TMouseEvent;
fOnMouseMove : TMouseMoveEvent;
fOnMouseUp : TMouseEvent;
GlyphValid : Boolean;
InMousePress : Boolean;
oldDown : Boolean;
oldHeight : Integer;
oldWidth : Integer;