Clipper/FiveWin - Barra de Botones

 
Vista:

Barra de Botones

Publicado por Jose Luis Perez (10 intervenciones) el 24/01/2005 19:24:44
Como puedo crear una barra de botones en una ventana DIALOG. Si la ventana fue creada en WorkShop. Existe alguna forma de crear la barra de botones por medio del workshop o que es lo que necesito. Por medio de codigo no puedo agregarla.
Para poder agregar la barra de botones solo lo puedo hacer generando la ventana DIALOG por medio de codigo (no con el Workshop). Pero despues tengo el problema de que necesito un BROWSE en la ventana y no lo puedo crear por codigo.
Alguien me puede ayudar.
Quiero crear una barra de botones en una ventana creada en Workshop.
o crear un Browse con codigo en una ventana DIALOG creada con codigo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Barra de Botones

Publicado por Alvaro (11 intervenciones) el 24/01/2005 22:31:53
Se puede realizar tanto desde WorkShop como desde código. Te indico a continuación un ejemplo desde código que incluye en un dialogo menu, barra de botones, barra de mensaje, listbox y botones.

Un saludo desde Málaga

Alvaro

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Barra de Botones

Publicado por Alvaro 2 (11 intervenciones) el 24/01/2005 22:34:11
#include "Fivewin.ch"
FUNCTION Main()
LOCAL oDlg, oLbx, aDbf := {}, oBtn
// creo una base de datos.- Rellenala manualmente
IF !FILE ("DIALOGO.DBF")
AADD (aDbf, {"DATOS", "C",36, 0})
DBCREATE("DIALOGO", aDbf )
ENDI
USE dialogo new
DEFINE DIALOG oDlg FROM 0, 0 TO 400,500 PIXEL TITLE "Notas."
@ 2,3 LISTBOX oLbx FIELDS (dialogo->DATOS) ;
HEADERS " " SIZE 200,100 OF oDlg
@ 155, 20 BUTTON oBtn PROMPT "&Alta pedido" OF oDlg SIZE 40,10 PIXEL
@ 155, 65 BUTTON oBtn PROMPT "&Baja" OF oDlg SIZE 40,10 PIXEL
@ 155,110 BUTTON oBtn PROMPT "&Estado" OF oDlg SIZE 40,10 PIXEL

ACTIVATE DIALOG oDlg CENTER ON INIT ( BuildCtrls( oDlg ), oDlg:lHelpIcon:=.f.)
CLOSE dialogo
RETURN NIL

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Barra de Botones

Publicado por alvaro 3 (11 intervenciones) el 24/01/2005 22:34:45
/----------------------------------------------------------------------------//

STATIC FUNCTION BuildCtrls( oDlg )
local oBar, oMenu

MENU oMenu
MENUITEM "&Clientes"
MENU
MENUITEM "&Ficha" ;
MESSAGE "Ficha de Cliente"

MENUITEM "&Pedidos" ;
MESSAGE "Pedidos de Clientes"

MENUITEM "&Albaranes" ;
MESSAGE "Albaranes de Clientes"

ENDMENU

MENUITEM "&Proveedores"

MENUITEM "&Sistema"

MENUITEM "&Ayuda"

ENDMENU

oDlg:SetMenu(oMenu)

DEFINE BUTTONBAR oBar OF oDlg 3D

DEFINE BUTTON OF oBar PROMPT " Salir " ;
ACTION oDlg:End() FONT oDlg:oFont

DEFINE BUTTON OF oBar PROMPT "Cal" ;
ACTION WinExec("Calc") FONT oDlg:oFont

DEFINE MESSAGE OF oDlg PROMPT "Botones en Barra y ListBox en Dialogo"

RETURN ( 0 )

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar