Extrano comportamiento con barra de botones

[Compuin]

Buenas tardes

estoy escribiendo una ventana con un barra de botones y obtengo lo siguiente


DEFINE WINDOW oWnd FROM 4, 4 TO 35, 125 ;
TITLE "Pruebas de Conexion con ADODB"

SET FONT OF oWnd TO oFont

SET MESSAGE OF oWnd

DEFINE BUTTONBAR oBar OF oWnd SIZE 40, 50 3D

DEFINE BUTTON OF oBar FILENAME "c:\bmp\xnew.bmp" FLAT ;
TOOLTIP "Incluir" MESSAGE " Incluir";

DEFINE BUTTON OF oBar FILENAME "c:\bmp\xedit.bmp" FLAT ;
TOOLTIP "Modificar" MESSAGE " Modificar"

http://imageshack.com/a/img924/8263/8U8j9q.jpg


Que es lo que esta mal con este codigo?

[Antonio Linares]

No se a que te refieres que está mal.

Aqui tienes un ejemplo basado en tu código:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd, oBar

   DEFINE WINDOW oWnd FROM 4, 4 TO 35, 125 ;
      TITLE "Pruebas de Conexion con ADODB"

   SET MESSAGE OF oWnd 2010

   DEFINE BUTTONBAR oBar OF oWnd SIZE 40, 50 2010

   DEFINE BUTTON OF oBar FLAT ;
      TOOLTIP "Incluir" MESSAGE " Incluir";

   ACTIVATE WINDOW oWnd

return nil