Class TSpeedbarSetupWindow (unit SbSetup)

Inherits from

TForm

Constructors



Functions

procedure ButtonsListDrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);


procedure ButtonsListMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ButtonsListMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure ButtonsListMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

div 2

procedure ButtonsListSelectCell(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);

div 2

procedure CloseBtnClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

Load string resources

procedure FormShow(Sender: TObject);


procedure HelpBtnClick(Sender: TObject);


procedure SectionListDrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);


procedure SectionListSelectCell(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);


function CheckSpeedBar: Boolean;

TSpeedbarSetupWindow

procedure CMSpeedBarChanged(var Message: TMessage);


function CurrentSection: Integer;


function ItemByRow(Row: Integer): TSpeedItem;


procedure SetSection(Section: Integer);


procedure SetSpeedBar(Value: TSpeedBar);


procedure UpdateCurrentSection;


procedure UpdateData(Section: Integer);


procedure UpdateHint(Section, Row: Integer);


procedure UpdateListHeight;


Properties

property SpeedBar : TSpeedBar

Public declarations

Events

Variables

Bevel1 : TBevel;


ButtonsLabel : TLabel;


ButtonsList : TDrawGrid;


CategoriesLabel : TLabel;


CloseBtn : TButton;


HelpBtn : TButton;


HintLabel : TLabel;


SectionList : TDrawGrid;


FBar : TSpeedBar;


FButton : TBtnControl;

Private declarations

FDrag : Boolean;


FDragItem : TSpeedItem;


FImage : TButtonImage;



Constructors


Functions


procedure ButtonsListDrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);


procedure ButtonsListMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ButtonsListMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure ButtonsListMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

div 2


procedure ButtonsListSelectCell(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);

div 2


procedure CloseBtnClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

Load string resources


procedure FormShow(Sender: TObject);


procedure HelpBtnClick(Sender: TObject);


procedure SectionListDrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);


procedure SectionListSelectCell(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);


function CheckSpeedBar: Boolean;

TSpeedbarSetupWindow


procedure CMSpeedBarChanged(var Message: TMessage);


function CurrentSection: Integer;


function ItemByRow(Row: Integer): TSpeedItem;


procedure SetSection(Section: Integer);


procedure SetSpeedBar(Value: TSpeedBar);


procedure UpdateCurrentSection;


procedure UpdateData(Section: Integer);


procedure UpdateHint(Section, Row: Integer);


procedure UpdateListHeight;


Properties


property SpeedBar : TSpeedBar

Public declarations


Events


Variables


Bevel1 : TBevel;


ButtonsLabel : TLabel;


ButtonsList : TDrawGrid;


CategoriesLabel : TLabel;


CloseBtn : TButton;


HelpBtn : TButton;


HintLabel : TLabel;


SectionList : TDrawGrid;


FBar : TSpeedBar;


FButton : TBtnControl;

Private declarations


FDrag : Boolean;


FDragItem : TSpeedItem;


FImage : TButtonImage;