Ejemplo de codigo Combobox en ButtonBar

Board index FiveWin para Harbour/xHarbour Ejemplo de codigo Combobox en ButtonBar

Posts: 607

Joined: Mon Mar 04, 2013 04:32 PM

Ejemplo de codigo Combobox en ButtonBar
Posted: Thu May 23, 2019 05:57 PM

Hola amigos:

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

yo lo hago asi.

Code (fw): Select all Collapse

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?

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Ejemplo de codigo Combobox en ButtonBar
Posted: Thu May 23, 2019 08:06 PM

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 (fw): Select all Collapse

#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 :

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

jvtecheto

Posts: 607

Joined: Mon Mar 04, 2013 04:32 PM

Re: Ejemplo de codigo Combobox en ButtonBar
Posted: Fri May 24, 2019 06:40 PM

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.

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Ejemplo de codigo Combobox en ButtonBar
Posted: Fri May 24, 2019 07:20 PM

Use bitmaps: 32 x 32

\FWH\BITMAPS y en internet.

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: Ejemplo de codigo Combobox en ButtonBar
Posted: Fri May 24, 2019 07:49 PM

brakaman wrote: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...

Dios no está muerto...

Gracias a mi Dios ante todo!

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Ejemplo de codigo Combobox en ButtonBar
Posted: Fri May 24, 2019 08:12 PM

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion