Extrano comportamiento con barra de botones

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Extrano comportamiento con barra de botones
Posted: Sat Apr 02, 2016 06:35 PM

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 &quot;c:\bmp\xedit.bmp&quot; FLAT ;
    TOOLTIP &quot;Modificar&quot; MESSAGE &quot; Modificar&quot;

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

Que es lo que esta mal con este codigo?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Extrano comportamiento con barra de botones
Posted: Sun Apr 03, 2016 08:35 AM

No se a que te refieres que está mal.

Aqui tienes un ejemplo basado en tu código:

Code (fw): Select all Collapse

#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

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion