Ejemplo de codigo Combobox en ButtonBar

[jvtecheto]

Hola amigos:

Bueno pues eso me gustaria un ejemplo de codigo de como colocais un Combobox en un BUTTONBAR ,

yo lo hago asi.

Code: Select all  Expand view

DEFINE BUTTONBAR oBar SIZE 36, 36 3D OF oWndTrab CURSOR oCursor
 DEFINE BUTTON RESOURCE "ADD1" OF oBar GROUP;
      ACTION  (EditTraba(.T.),Trabaw:Refresh()) TOOLTIP "Añadir nuevo registro" NOBORDER;
      MESSAGE "Añadir nuevo registro"
  // Mas codigo
 // COMBOBOX
    @ .31, 59.4 COMBOBOX oCombo VAR cCombo ITEMS aCombo ;
   ON CHANGE IndexTraba(Trabaw) ;
   SIZE 125, 120 FONT oFsSerif COLOR CLR_BLACK,NIL ;
   MESSAGE "Cambia el indice de ordenación" WHEN Trab->(LastRec())>0 OF oBar

 

El problema , es estetico ya que no se ajusta perfectamente a la BUTTONBAR , las coordenadas estan sacadas de prueba error.

¿Vosotros como lo calculais, ? ¿Como lo haceis?

[armando.lagunas]

tengo una aplicación vieja en donde hago lo que pides, redimensiono, la minimizo la maximizo y siempre esta en la posición en la buttonbar:

Code: Select all  Expand view

#include "FiveWin.ch"

STATIC oWnd, oBar, aMes, aAno

extern DbfCdx

FUNCTION Main()
LOCAL oIco, oMan, oBrs, oBmp, oIni, cColor, cTitle, oCbx, oFont, oMox
PUBLIC _CEm, _Emp, _Dir, _Ciu, _Tel, _Rut, _Fax, _Ser, _Act, _Sig, _Ver, _Bas, _Ind, _Tmp, _Han, cMes, cAno
PRIVATE oPopup, yPopup
aMes := {"ENERO", "FEBRERO", "MARZO", "ABRIL","MAYO","JUNIO","JULIO","AGOSTO","SEPTIEMBRE","OCTUBRE","NOVIEMBRE","DICIEMBRE"}
aAno := {"2000", "2001", "2002", "2003","2004","2005","2006","2007","2008","2009","2010"}

SET CENTURY ON                  ; SET DATE FRENCH
SET DELETED ON                  ; SET 3DLOOK ON
SET ESCAPE  OFF
REQUEST DBFCDX
RddSetDefault("DBFCDX")
SetResources(".\DLL\DLLCODE.DLL")

DEFINE FONT oFont NAME "Arial Narrow" SIZE 6, 18 BOLD
DEFINE BRUSH  oBrs COLOR VAL(cColor)
DEFINE ICON   oIco RESOURCE 101
DEFINE CURSOR oMan RESOURCE "MANO"

DEFINE WINDOW oWnd TITLE " "+ALLTRIM(_Sig)+" //"+cTitle MENU MenPri() ICON oIco BRUSH oBrs

DEFINE BUTTONBAR oBar SIZE 48,52 3DLOOK TOP  OF oWnd CURSOR oMan
 DEFINE BUTTON RESOURCE "SALIR3"  OF oBar       ACTION oWnd:End()    NOBORDER TOOLTIP OEMTOANSI(" Finalizar la ejecusi¢n "+CRLF+"       del Sistema... ")
 DEFINE BUTTON RESOURCE "IPC"     OF oBar GROUP ACTION TablIPC()     NOBORDER TOOLTIP OEMTOANSI(" Tabla principal del I.P.C. "  +CRLF+"  Acumulado por los A¤os ")
 DEFINE BUTTON RESOURCE "ACTIVO"  OF oBar       ACTION Activos()     NOBORDER TOOLTIP OEMTOANSI(" Crear, Modificar, Eliminar "  +CRLF+"  C¢digos de Activo fijo ")
 DEFINE BUTTON RESOURCE "TABLA"   OF oBar       ACTION TablFac()     NOBORDER TOOLTIP OEMTOANSI(" Muestra la Tabla de Factores "+CRLF+" para la Correcci¢n Monetaria ")
 DEFINE BUTTON RESOURCE "TRASPA"  OF oBar       ACTION Calcula()     NOBORDER TOOLTIP OEMTOANSI(" Calcular el periodo de Depreciaci¢n ")

 DEFINE BUTTON RESOURCE "CIERRE"  OF oBar GROUP ACTION Mensual()      MENU yPopup NOBORDER TOOLTIP OEMTOANSI("Cierre mensual de activos ")
 DEFINE BUTTON RESOURCE "AYUDA"   OF oBar GROUP ACTION MsgBeep()     NOBORDER

 @ 12, 500 COMBOBOX oCbx VAR cMes   ITEMS aMes SIZE 140, 100 PIXEL OF oBar COLOR "N/W*"  FONT oFont  
 @ 12, 650 COMBOBOX oMox VAR cAno   ITEMS aAno SIZE 80,  100 PIXEL OF oBar COLOR "N/W*"  FONT oFont  

SET MESSAGE OF oWnd TO _Ver+" "+CURDRIVE()+":\."+_Bas KEYBOARD DATE TIME

ACTIVATE WINDOW oWnd MAXIMIZED ON INIT SysRefresh() VALID    MsgYesNo(OEMTOANSI("Terminar la Ejecuci¢n del Sistema ?"),_Ver)

RETURN Nil

 

resultado :

[jvtecheto]

Gracias Armando.

Voy a estudiarlo detenidamente.

La barra luce muy bien.

Una preguntita, los bitmaps los adaptas tu en tamaño con algun programa o los consigues ya con esas medidas.
Ya que los que yo tengo son 16x16 Y al ampliarlos se ven bastante mal.

Saludos.

Jose.

[karinha]

Use bitmaps: 32 x 32

\FWH\BITMAPS y en internet.

Saludos.

[joseluisysturiz]

Gracias Armando.

Voy a estudiarlo detenidamente.

La barra luce muy bien.

Una preguntita, los bitmaps los adaptas tu en tamaño con algun programa o los consigues ya con esas medidas.
Ya que los que yo tengo son 16x16 Y al ampliarlos se ven bastante mal.

Saludos.

Jose.

Si usas editor de recursos como Pelles C, alli podras convertir los ICONOS en diferentes tamaños sin perder la calidad, si descargas ICONOS de internet trata que sean PNG con transpariencia y luego los puedes convertir a BMP, se que ya se pueden usar los PNG desde recurso, pero no me he puesto a cargarlos a mi archivo de recursos y luego hay que hacer cambios en el codigo, saludos...

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=35173&p=209307&hilit=using+png#p209307