Estimados
como hago una barra de botones para el men煤 igual a la de FIVEDBU?
Gracias de antemano!!
Luis Alfonso Fuentes Guerrero
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Barra menu con iconos con titulo
function BuildMainBar()
local oBar
if oWndMain:oBar != nil
oWndMain:oBar:End()
endif
DEFINE BUTTONBAR oBar OF oWndMain 2010 SIZE 70, 70
DEFINE BUTTON OF oBar PROMPT FWString( "New" ) RESOURCE "new" ACTION New()
DEFINE BUTTON OF oBar PROMPT FWString( "Open" ) RESOURCE "open" ACTION Open()
DEFINE BUTTON OF oBar PROMPT FWString( "ADO Open" ) RESOURCE "open" ACTION AdoConnect()
DEFINE BUTTON OF oBar PROMPT FWString( "Copy" ) RESOURCE "copy" ACTION Copy() GROUP
DEFINE BUTTON OF oBar PROMPT FWString( "Paste" ) RESOURCE "paste" ACTION Paste()
DEFINE BUTTON OF oBar PROMPT FWString( "Previous" ) RESOURCE "prev" ;
ACTION oWndMain:PrevWindow() GROUP WHEN Len( oWndMain:oWndClient:aWnd ) > 1
DEFINE BUTTON OF oBar PROMPT FWString( "Next" ) RESOURCE "next" ;
ACTION oWndMain:NextWindow() WHEN Len( oWndMain:oWndClient:aWnd ) > 1
DEFINE BUTTON OF oBar PROMPT FWString( "Exit" ) RESOURCE "exit" ;
ACTION oWndMain:End() GROUP
return nilCristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Gracias por tu respuesta Cristobal,
pero al compilar me da algunos errores, en la linea: DEFINE BUTTONBAR oBar OF oWndMain 2010 SIZE 70, 70, si le quito "2010", pasa, pero despu茅s
no me reconoce la funci贸n "FWString() " en DEFINE BUTTON OF oBar PROMPT FWString( "Open" ) RESOURCE "open" ACTION Open().
Saludos y gracias otra vez por tu ayuda!
Luis Alfonso Fuentes Guerrero
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop
Simplemente qu铆tala
Es una function que implement贸 Antonio para que los programas sean Multilenguaje
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Funcion贸 Perfecto Cristobal!
Muchas Gracias!
Luis Alfonso Fuentes Guerrero
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop
FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop
Gracias Cristobal.
En FWH64 funciona perfecto.
Saludos,
George