ToolBar (Objeto: propiedades, métodos y eventos)

Artículo
04/11/2008

Propiedades

ActiveControl	Application	BackColor
BaseClass	Caption	Class
ClassLibrary	Comment	ColorSource (Propiedad)
ControlBox	ControlCount	Controls
DataSession	DataSessionID	Docked
DockPosition	Enabled	ForeColor
Height	HelpContextID	KeyPreview
Left	LockScreen	MouseIcon
MousePointer	Movable	Name
Objects	OLEDragMode	OLEDragPicture
OLEDropEffects	OLEDropHasData	OLEDropMode
Parent	ParentClass	ScaleMode
ShowTips	ShowWindow	Sizable
Tag	Top	Visible
WhatsThisHelpID	Width

Eventos

Activate	AfterDock	BeforeDock
Click	DblClick	Deactivate
Destroy	DragDrop	DragOver
Error	Init	MiddleClick (Evento)
MouseDown	MouseMove	MouseUp
MouseWheel	Moved	OLECompleteDrag
OLEDragDrop	OLEDragOver	OLEGiveFeedBack
OLESetData	OLEStartDrag	Paint
Resize	RightClick	UnDock

Métodos

AddObject	AddProperty	CloneObject
Dock	Hide	Move
NewObject	OLEDrag	ReadExpression
ReadMethod	Refresh	Release
RemoveObject	ResetToDefault	SaveAsClass
SetAll	Show	ShowWhatsThis
WriteExpression (Método)	ZOrder

Ejemplo

El ejemplo siguiente muestra cómo se puede crear una barra de herramientas a partir de la clase ToolBar. Visual FoxPro reorganiza los botones cuando se ajusta el tamaño de la barra de herramientas. Cuando se crea el objeto barra de herramientas, Visual FoxPro coloca los controles automáticamente de izquierda a derecha en el orden en que se agregan a la definición de clase y pasa por alto las propiedades Top y Left del control.

PUBLIC tbrDesktop
tbrDesktop = CREATEOBJ('mytoolbar')
tbrDesktop.SHOW

DEFINE CLASS myToolBar  AS Toolbar
   ADD OBJECT btnBold  AS CommandButton
   ADD OBJECT sep1      AS Separator
   ADD OBJECT btnItalics AS CommandButton
   
   btnBold.HEIGHT = 20
   btnBold.WIDTH = 50
   btnBold.Caption = "Bold"
   btnItalics.HEIGHT = 20
   btnItalics.WIDTH = 50
   btnItalics.Caption = "Italic"
   btnItalics.FontBold = .F.
   
   LEFT   = 1
   TOP = 1
   WIDTH = 25

   CAPTION = "Desktop Attributes"
   
   PROCEDURE Activate 
   this.btnBold.FontBold = _SCREEN.FONTBOLD
   this.btnItalics.FontItalic = _SCREEN.FONTITALIC
   ENDPROC
   
   PROCEDURE btnBold.CLICK
   _SCREEN.FONTBOLD = !_SCREEN.FONTBOLD
   This.FontBold =_SCREEN.FONTBOLD
   ENDPROC
   
   PROCEDURE btnItalics.CLICK
   _SCREEN.FONTITALIC = !_SCREEN.FONTITALIC
   This.FontItalic = _SCREEN.FONTITALIC
   ENDPROC
ENDDEFINE

Vea también