Class TSpeedbarEditor (unit SbEdit)

Inherits from

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

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;



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;