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 Alignment : TAlignment
Property Anchors : TAnchors
Property AutoSize : Boolean
Property BevelInner : TBevelCut
Property BevelLines : TWPHorzLines
Property BevelOuter : TBevelCut
Property BevelWidth : TBevelWidth
Property BiDiMode : TBiDiMode
Property BorderStyle : TBorderStyle
Property BorderWidth : TBorderWidth
Property Color : TColor
Property ColorTo : TColor
Property Constraints : TSizeConstraints
Property DockManager : IDockManager
Property DockSite : Boolean
Property DragCursor : TCursor
Property DragKind : TDragKind
Property DragMode : TDragMode
Property DrawOptions : TWPToolPanelDrawOptions
Property FullRepaint : Boolean
Property Locked : Boolean
Property Moveable : Boolean
Property NoAsianFonts : Boolean
Property ParentBiDiMode : Boolean
Property ParentColor : Boolean
Property Sizeable : Boolean
Property TrueTypeOnly : Boolean
Property UseDockManager : Boolean
Methods
Procedure AlignControls(AControl:TControl; Rect:TRect)
Procedure CreateParams(Params:TCreateParams)
Function DeselectIcon(index:Integer; group:Integer; num:Integer) : Boolean
Procedure DoZoomClick(Sender:TObject)
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= procedure(Sender: TObject; var Typ: TWpSelNr; const str: string; const group: Integer; const num: Integer; const index: Integer) of object;
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 TWPToolbar.NextToolBar : TWPCustomToolCtrl |
| -Property TWPToolbar.NextToolBar : TWPCustomToolCtrl |