| Class TSpeedbarEditor (unit SbEdit) |
TDesignWindow
| Constructors |
| Functions |
procedure AddButtonClick(Sender: TObject);
procedure ButtonsListDblClick(Sender: TObject);
procedure ButtonsListDrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState);
procedure ButtonsListKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
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 CopyMenuClick(Sender: TObject);
procedure CutMenuClick(Sender: TObject);
procedure DelSectionClick(Sender: TObject);
procedure DownBtnClick(Sender: TObject);
procedure EditAction(Action: TEditAction);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormClosed(Form: TForm);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormModified;
procedure FormShow(Sender: TObject);
function GetEditState: TEditState;
procedure NewSectionClick(Sender: TObject);
procedure PasteMenuClick(Sender: TObject);
procedure RemoveButtonClick(Sender: TObject);
procedure SectionListDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure SectionListDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure SectionListDrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState);
procedure SectionListKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure SectionListMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SectionListSelectCell(Sender: TObject; Col, Row: Longint;
var CanSelect: Boolean);
procedure SectionNameExit(Sender: TObject);
procedure SectionNameKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure UpBtnClick(Sender: TObject);
procedure Activated;
function UniqueName(Component: TComponent): string;
function CheckSpeedBar: Boolean;
procedure CMSpeedBarChanged(var Message: TMessage);
function ConfirmDelete: Boolean;
procedure Copy;
function CurrentSection: Integer;
procedure Cut;
function GetForm: TCustomForm;
function ItemByRow(Row: Integer): TSpeedItem;
function ItemBySectionRow(Section, Row: Integer): TSpeedItem;
procedure OnPasteItem(Item: TObject);
procedure Paste;
procedure RestoreSelection;
procedure SaveSelection;
function SectionByRow(Row: Integer): TSpeedbarSection;
procedure SelectButton(Section: Integer; Item: TSpeedItem; SelectBar: Boolean);
procedure SetSection(Section: Integer);
procedure SetSpeedBar(Value: TSpeedBar);
procedure UpdateData;
procedure UpdateEnabled(BtnRow, Section: Integer);
procedure UpdateListHeight;| Properties |
property OwnerForm : TCustomForm
property SpeedBar : TSpeedBar| Events |
| Variables |
AddButton : TButton;
ButtonsBox : TGroupBox;
ButtonsList : TDrawGrid;
CloseBtn : TButton;
CopyMenu : TMenuItem;
CutMenu : TMenuItem;
DelSection : TButton;
DownBtn : TSpeedButton;
FormPlacement1 : TFormPlacement;
LabelHint : TLabel;
NewSection : TButton;
PasteMenu : TMenuItem;
PopupMenu : TPopupMenu;
RemoveButton : TButton;
SectionList : TDrawGrid;
SectionName : TEdit;
SectionNameLabel : TLabel;
SectionsBox : TGroupBox;
UpBtn : TSpeedButton;
FBar : TSpeedBar;
FButton : TBtnControl;
FDrag : Boolean;
FDragItem : TSpeedItem;
FImage : TButtonImage;
FLocked : Integer;
FSelectData : TSelectData;| Constructors |
| Functions |
procedure AddButtonClick(Sender: TObject);
procedure ButtonsListDblClick(Sender: TObject);
procedure ButtonsListDrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState);
procedure ButtonsListKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
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 CopyMenuClick(Sender: TObject);
procedure CutMenuClick(Sender: TObject);
procedure DelSectionClick(Sender: TObject);
procedure DownBtnClick(Sender: TObject);
procedure EditAction(Action: TEditAction);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormClosed(Form: TForm);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormModified;Public declarations
procedure FormShow(Sender: TObject);
function GetEditState: TEditState;
procedure NewSectionClick(Sender: TObject);
procedure PasteMenuClick(Sender: TObject);
procedure RemoveButtonClick(Sender: TObject);
procedure SectionListDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure SectionListDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure SectionListDrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState);
procedure SectionListKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure SectionListMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SectionListSelectCell(Sender: TObject; Col, Row: Longint;
var CanSelect: Boolean);
procedure SectionNameExit(Sender: TObject);
procedure SectionNameKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure UpBtnClick(Sender: TObject);
procedure Activated;
function UniqueName(Component: TComponent): string;TSpeedbarEditor
function CheckSpeedBar: Boolean;
procedure CMSpeedBarChanged(var Message: TMessage);
function ConfirmDelete: Boolean;
procedure Copy;
function CurrentSection: Integer;
procedure Cut;
function GetForm: TCustomForm;set section
function ItemByRow(Row: Integer): TSpeedItem;
function ItemBySectionRow(Section, Row: Integer): TSpeedItem;
procedure OnPasteItem(Item: TObject);
procedure Paste;
procedure RestoreSelection;
procedure SaveSelection;
function SectionByRow(Row: Integer): TSpeedbarSection;
procedure SelectButton(Section: Integer; Item: TSpeedItem; SelectBar: Boolean);
procedure SetSection(Section: Integer);
procedure SetSpeedBar(Value: TSpeedBar);
procedure UpdateData;
procedure UpdateEnabled(BtnRow, Section: Integer);set ButtonsList to current section
procedure UpdateListHeight;GetParentForm(FBar)
| Properties |
property OwnerForm : TCustomForm
property SpeedBar : TSpeedBar| Events |
| Variables |
AddButton : TButton;
ButtonsBox : TGroupBox;
ButtonsList : TDrawGrid;
CloseBtn : TButton;
CopyMenu : TMenuItem;
CutMenu : TMenuItem;
DelSection : TButton;
DownBtn : TSpeedButton;
FormPlacement1 : TFormPlacement;
LabelHint : TLabel;
NewSection : TButton;
PasteMenu : TMenuItem;
PopupMenu : TPopupMenu;
RemoveButton : TButton;
SectionList : TDrawGrid;
SectionName : TEdit;
SectionNameLabel : TLabel;
SectionsBox : TGroupBox;
UpBtn : TSpeedButton;
FBar : TSpeedBar;
FButton : TBtnControl;Private declarations
FDrag : Boolean;
FDragItem : TSpeedItem;
FImage : TButtonImage;
FLocked : Integer;
FSelectData : TSelectData;