gracias
- Code: Select all Expand view
...
DEFINE DIALOG oDlg NAME "DLG_CLIEC" OF oMainWnd ICON GetIcon() FONT oFontD
...
ACTIVATE DIALOG oDlg ON INIT Clie_Toolbar()
...
STATIC PROCEDURE Clie_Toolbar()
LOCAL oCursor := CrearCursorBarraBotones()
DEFINE BUTTONBAR oToolBar OF oDlg SIZE (60*nScale), 60 2007 CURSOR oCursor
DEFINE BUTTON NAME "TB_EXIT2" OF oToolBar ACTION oDlg:End() PROMPT "Salir"
DEFINE MSGBAR oMsgBar OF oDlg PROMPT "INS=Nuevo, DEL=Borrar, ENTER=Editar" 2007 FONT oFontS //SI ESTO NO ES REDIMENSIONABLE
oDlg:SetControl( oBrw )
RETURN