Jorge
02 de Noviembre del 2007

Hola, alguien me podria decir como agrego un barra de herramientas personalizada a un formulario desde el administrador de proyecto de visual foxpro?

Andres
02 de Noviembre del 2007

La barra de herramientas se diseña a traves de un prg lo unico q debes hacer es incluirlo en el proyecto. Te envio un demo para q lo uses.
Suerte.

PUBLIC tbrBarra
tbrBarra = CREATEOBJ('miToolbar')
tbrBarra.Dock(0)
tbrBarra.SHOW

DEFINE CLASS miToolbar AS Toolbar
ADD OBJECT lblUsr AS Label
ADD OBJECT sep1 AS Separator
ADD OBJECT cmdPrn AS CommandButton
ADD OBJECT sep2 AS Separator
ADD OBJECT cmdCalc AS CommandButton


cmdCalc.HEIGHT = 22
cmdCalc.WIDTH = 25
cmdCalc.Caption = ""
cmdCalc.Picture = CURDIR()+"calc.bmp"
cmdCalc.ToolTipText = "Calculadora"

cmdPrn.HEIGHT = 22
cmdPrn.WIDTH = 25
cmdPrn.Caption = ""
cmdPrn.Picture = CURDIR()+"print.bmp"
cmdPrn.ToolTipText = "Impresoras"


lblUsr.HEIGHT = 22
lblUsr.WIDTH = 82
lblUsr.Caption = wUser
lblUsr.FontName = "Arial Narrow"
lblUsr.FontBold = .t.
lblUsr.FontSize = 10
lblUsr.ReadOnly = .t.
lblUsr.BorderStyle = 1
lblUsr.Alignment = 2
lblUsr.ToolTipText = "Usuario"

LEFT= 1
TOP = 1
AutoSize = .T.
CAPTION = "Demo"

PROCEDURE cmdCalc.CLICK
Run /n Calc.exe
ENDPROC

PROCEDURE cmdPrn.CLICK
SET PRINTER TO NAME GETPRINTER( )
ENDPROC

ENDDEFINE