Class TWPCustomToolPanel
Hierarchy
System.TObject | System.Classes.TPersistent | System.Classes.TComponent | Vcl.Controls.TControl | Vcl.Controls.TWinControl | Vcl.Controls.TCustomControl | WPCTRRich.TWPCustomToolCtrl | TWPCustomToolPanel
Subclasses
WPPanel.TWPToolPanel | WPTbar.TWPToolbar
Properties
Property ActionList : TActionList
Property BevelLines : TWPHorzLines
Property DockManager : IDockManager
Property Moveable : Boolean
Property Sizeable : Boolean
Methods
Function DeselectIcon(index:Integer; group:Integer; num:Integer) : Boolean
Procedure EnableControls(state:Boolean; ExclList:)
Function EnableIcon(index:Integer; group:Integer; num:Integer; Enabled:Boolean) : Boolean
Procedure Notification(AComponent:TComponent; Operation:TOperation)
Procedure PerformAll(m:Cardinal; w:Integer; l:Integer)
Function RefreshIcon(index:Integer; group:Integer; num1:Integer; num2:Integer; num3:Integer) : Boolean
Function SelectIcon(index:Integer; group:Integer; num:Integer) : Boolean
Procedure SetRTFedit(x:TWPCustomRtfEdit)
Procedure UpdateEnabledState(State:Boolean)
Procedure UpdateSelection(Typ:TWpSelNr; str:string; num:Integer)
Events
OnCanResize : TCanResizeEvent= TCanResizeEvent
OnConstrainedResize : TConstrainedResizeEvent= TConstrainedResizeEvent
OnDblClick : TNotifyEvent= procedure (Sender : TObject) of Object
OnDockDrop : TDockDropEvent= TDockDropEvent
OnDockOver : TDockOverEvent= TDockOverEvent
OnDragDrop : TDragDropEvent= TDragDropEvent
OnDragOver : TDragOverEvent= TDragOverEvent
OnEndDock : TEndDragEvent= TEndDragEvent
OnEndDrag : TEndDragEvent= TEndDragEvent
OnEnter : TNotifyEvent= procedure (Sender : TObject) of Object
OnExit : TNotifyEvent= procedure (Sender : TObject) of Object
OnGetSiteInfo : TGetSiteInfoEvent= TGetSiteInfoEvent
OnIconSelection : TWPIconSelectEvent= TWPIconSelectEvent
You can use this event to override the behavior of certain buttons. You need to change the value
of the parameter typ to avoid further processing. You can set it to wptIconUp to unselect the
button.
procedure TForm1.WPToolbar1IconSelection(Sender: TObject;
var Typ: TWpSelNr; const str: string;
const group, num, index: Integer);
begin
if Typ in [wptIconSel]
and (group=WPI_GR_STYLE) and (num=WPI_CO_Hyperlink) then
begin
// do something
Typ := wptIconUp;
end;
end;
As reference of the default behavior and as example see in unit WPCTRRich.PAS:
procedure TWPCustomRichText.OnToolBarIconSelection(Sender: TObject;
var Typ: TWpSelNr; const str: string; const group, num, index: Integer);
OnMouseDown : TMouseEvent= TMouseEvent
OnMouseMove : TMouseMoveEvent= TMouseMoveEvent
OnMouseUp : TMouseEvent= TMouseEvent
OnPaintSpeedButton : TWPPaintSpeedButtonEvent= TWPPaintSpeedButtonEvent
OnResize : TNotifyEvent= procedure (Sender : TObject) of Object
OnStartDock : TStartDockEvent= TStartDockEvent
OnStartDrag : TStartDragEvent= TStartDragEvent
OnUnDock : TUnDockEvent= TUnDockEvent
Used or referenced by
-Property TWPCustomRichText.WPToolBar : TWPCustomToolCtrl |
-Property TWPCustomRichText.WPToolBar : TWPCustomToolCtrl |