Class TSpeedItem (unit SpeedBar)

Inherits from

TComponent

TSpeedItem

Constructors


constructor Create(AOwner: TComponent);

TSpeedItem


Functions

procedure ButtonClick;


function CheckBtnMenuDropDown: Boolean;


procedure Click;


destructor Destroy;


procedure InvalidateItem;

procedure TSpeedItem.

procedure UpdateSection;


procedure DefineProperties(Filer: TFiler);


function GetParentComponent: TComponent;


function HasParent: Boolean;


procedure ReadState(Reader: TReader);


procedure SetEnabled(Value: Boolean);


procedure SetName(const Value: TComponentName);


procedure SetParentComponent(Value: TComponent);


procedure SetVisible(Value: Boolean);


function GetAllowAllUp: Boolean;


function GetAllowTimer: Boolean;


function GetBtnCaption: TCaption;


function GetCaption: TCaption;


function GetCursor: TCursor;


function GetDown: Boolean;


function GetDropDownMenu: TPopupMenu;


function GetFont: TFont;


function GetGlyph: TBitmap;


function GetGroupIndex: Integer;


function GetHint: string;


function GetLayout: TButtonLayout;


function GetLeft: Integer;


function GetMargin: Integer;


function GetMarkDropDown: Boolean;


function GetNumGlyphs: TRxNumGlyphs;


function GetOnClick: TNotifyEvent;


function GetOnDblClick: TNotifyEvent;


function GetOnMouseDown: TMouseEvent;


function GetOnMouseMove: TMouseMoveEvent;


function GetOnMouseUp: TMouseEvent;


function GetParentFont: Boolean;


function GetParentShowHint: Boolean;


function GetSection: Integer;


function GetSectionName: string;


function GetShowHint: Boolean;


function GetSpacing: Integer;


function GetTag: Longint;


function GetTop: Integer;


function GetWordWrap: Boolean;


function IsFontStored: Boolean;


function IsShowHintStored: Boolean;


procedure ReadSection(Reader: TReader);

procedure SetSectionName(const Value: string);

procedure ReadSectionName(Reader: TReader);


procedure SetAllowAllUp(Value: Boolean);


procedure SetAllowTimer(Value: Boolean);


procedure SetBtnCaption(const Value: TCaption);


procedure SetCaption(const Value: TCaption);


procedure SetCursor(Value: TCursor);


procedure SetDown(Value: Boolean);


procedure SetDropDownMenu(Value: TPopupMenu);


procedure SetEditing(Value: Boolean);


procedure SetFont(Value: TFont);


procedure SetGlyph(Value: TBitmap);


procedure SetGroupIndex(Value: Integer);


procedure SetHint(const Value: string);


procedure SetLayout(Value: TButtonLayout);


procedure SetLeft(Value: Integer);


procedure SetMargin(Value: Integer);


procedure SetMarkDropDown(Value: Boolean);


procedure SetNumGlyphs(Value: TRxNumGlyphs);


procedure SetOnClick(Value: TNotifyEvent);


procedure SetOnDblClick(Value: TNotifyEvent);


procedure SetOnMouseDown(Value: TMouseEvent);


procedure SetOnMouseMove(Value: TMouseMoveEvent);


procedure SetOnMouseUp(Value: TMouseEvent);


procedure SetParentFont(Value: Boolean);


procedure SetParentShowHint(Value: Boolean);


procedure SetSection(Value: Integer);


procedure SetShowHint(Value: Boolean);


procedure SetSpacing(Value: Integer);


procedure SetTag(Value: Longint);


procedure SetTop(Value: Integer);


procedure SetWordWrap(Value: Boolean);


procedure WriteSection(Writer: TWriter);


procedure WriteSectionName(Writer: TWriter);


Properties

property AllowAllUp : Boolean


property AllowTimer : Boolean


property BtnCaption : TCaption


property Caption : TCaption


property Cursor : TCursor


property Down : Boolean


property DropDownMenu : TPopupMenu


property Enabled : Boolean


property Font : TFont


property Glyph : TBitmap


property GroupIndex : Integer


property Hint : string


property Layout : TButtonLayout


property Left : Integer


property Margin : Integer


property MarkDropDown : Boolean


property NumGlyphs : TRxNumGlyphs


property ParentFont : Boolean


property ParentShowHint : Boolean


property ShowHint : Boolean


property Spacing : Integer


property Stored : Boolean


property Tag : Longint


property Top : Integer


property Visible : Boolean


property WordWrap : Boolean


property ASection : Integer


property Button : TRxSpeedButton


property SpeedBar : TSpeedBar


Events

event OnClick : TNotifyEvent


event OnDblClick : TNotifyEvent


event OnMouseDown : TMouseEvent


event OnMouseMove : TMouseMoveEvent


event OnMouseUp : TMouseEvent


Variables

FButton : TRxSpeedButton;


FCaption : PString;


FEditing : Boolean;


FEnabled : Boolean;


FParent : TSpeedBar;


FSection : Integer;


FSectionName : string;


FStored : Boolean;


FVisible : Boolean;



Constructors


constructor Create(AOwner: TComponent);

TSpeedItem


Functions


procedure ButtonClick;


function CheckBtnMenuDropDown: Boolean;


procedure Click;


destructor Destroy;


procedure InvalidateItem;

procedure TSpeedItem.SetSectionName(const Value: string); begin if FParent <> nil then FSection := FParent.SearchSection(Value) else FSection := -1; FSectionName := Value; end;


procedure UpdateSection;


procedure DefineProperties(Filer: TFiler);


function GetParentComponent: TComponent;


function HasParent: Boolean;


procedure ReadState(Reader: TReader);


procedure SetEnabled(Value: Boolean);


procedure SetName(const Value: TComponentName);


procedure SetParentComponent(Value: TComponent);


procedure SetVisible(Value: Boolean);


function GetAllowAllUp: Boolean;


function GetAllowTimer: Boolean;


function GetBtnCaption: TCaption;


function GetCaption: TCaption;


function GetCursor: TCursor;


function GetDown: Boolean;


function GetDropDownMenu: TPopupMenu;


function GetFont: TFont;


function GetGlyph: TBitmap;


function GetGroupIndex: Integer;


function GetHint: string;


function GetLayout: TButtonLayout;


function GetLeft: Integer;


function GetMargin: Integer;


function GetMarkDropDown: Boolean;


function GetNumGlyphs: TRxNumGlyphs;


function GetOnClick: TNotifyEvent;


function GetOnDblClick: TNotifyEvent;


function GetOnMouseDown: TMouseEvent;


function GetOnMouseMove: TMouseMoveEvent;


function GetOnMouseUp: TMouseEvent;


function GetParentFont: Boolean;


function GetParentShowHint: Boolean;


function GetSection: Integer;


function GetSectionName: string;


function GetShowHint: Boolean;


function GetSpacing: Integer;


function GetTag: Longint;


function GetTop: Integer;


function GetWordWrap: Boolean;


function IsFontStored: Boolean;


function IsShowHintStored: Boolean;


procedure ReadSection(Reader: TReader);

procedure SetSectionName(const Value: string);


procedure ReadSectionName(Reader: TReader);


procedure SetAllowAllUp(Value: Boolean);


procedure SetAllowTimer(Value: Boolean);


procedure SetBtnCaption(const Value: TCaption);


procedure SetCaption(const Value: TCaption);


procedure SetCursor(Value: TCursor);


procedure SetDown(Value: Boolean);


procedure SetDropDownMenu(Value: TPopupMenu);


procedure SetEditing(Value: Boolean);


procedure SetFont(Value: TFont);


procedure SetGlyph(Value: TBitmap);


procedure SetGroupIndex(Value: Integer);


procedure SetHint(const Value: string);


procedure SetLayout(Value: TButtonLayout);


procedure SetLeft(Value: Integer);


procedure SetMargin(Value: Integer);


procedure SetMarkDropDown(Value: Boolean);


procedure SetNumGlyphs(Value: TRxNumGlyphs);


procedure SetOnClick(Value: TNotifyEvent);


procedure SetOnDblClick(Value: TNotifyEvent);


procedure SetOnMouseDown(Value: TMouseEvent);


procedure SetOnMouseMove(Value: TMouseMoveEvent);


procedure SetOnMouseUp(Value: TMouseEvent);


procedure SetParentFont(Value: Boolean);


procedure SetParentShowHint(Value: Boolean);


procedure SetSection(Value: Integer);


procedure SetShowHint(Value: Boolean);


procedure SetSpacing(Value: Integer);


procedure SetTag(Value: Longint);


procedure SetTop(Value: Integer);


procedure SetWordWrap(Value: Boolean);


procedure WriteSection(Writer: TWriter);


procedure WriteSectionName(Writer: TWriter);


Properties


property AllowAllUp : Boolean


property AllowTimer : Boolean


property BtnCaption : TCaption


property Caption : TCaption


property Cursor : TCursor


property Down : Boolean


property DropDownMenu : TPopupMenu


property Enabled : Boolean


property Font : TFont


property Glyph : TBitmap


property GroupIndex : Integer


property Hint : string


property Layout : TButtonLayout


property Left : Integer


property Margin : Integer


property MarkDropDown : Boolean


property NumGlyphs : TRxNumGlyphs


property ParentFont : Boolean


property ParentShowHint : Boolean


property ShowHint : Boolean


property Spacing : Integer


property Stored : Boolean


property Tag : Longint


property Top : Integer


property Visible : Boolean


property WordWrap : Boolean


property ASection : Integer


property Button : TRxSpeedButton


property SpeedBar : TSpeedBar


Events


event OnClick : TNotifyEvent


event OnDblClick : TNotifyEvent


event OnMouseDown : TMouseEvent


event OnMouseMove : TMouseMoveEvent


event OnMouseUp : TMouseEvent


Variables


FButton : TRxSpeedButton;


FCaption : PString;


FEditing : Boolean;


FEnabled : Boolean;


FParent : TSpeedBar;


FSection : Integer;


FSectionName : string;


FStored : Boolean;


FVisible : Boolean;