Class THemisphereButton (unit Hemibtn)

Inherits from

TGraphicControl

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 : Integer

We 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;



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 : Integer

We 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;