| Class TSpeedbarSetupWindow (unit SbSetup) |
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);
procedure ButtonsListSelectCell(Sender: TObject; Col, Row: Longint;
var CanSelect: Boolean);
procedure CloseBtnClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
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;
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| Events |
| Variables |
Bevel1 : TBevel;
ButtonsLabel : TLabel;
ButtonsList : TDrawGrid;
CategoriesLabel : TLabel;
CloseBtn : TButton;
HelpBtn : TButton;
HintLabel : TLabel;
SectionList : TDrawGrid;
FBar : TSpeedBar;
FButton : TBtnControl;
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 : TSpeedBarPublic 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;