FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour SCROLL VERTICAL EN XBROWSE NO SALE
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
SCROLL VERTICAL EN XBROWSE NO SALE
Posted: Tue Jan 10, 2017 12:43 AM
Gente:
Pase mis controles de borland a usar los controles de Pelles C especificamente el control listbox para el xbrowse
pero no consigo que aparezca la barra de scroll, les pego mi trozo de codigo
Code (fw): Select all Collapse
   REDEFINE XBROWSE oBrwDet                                             ;        
      FIELDS DETGUIAT->articu                                           ;
            ,Articulo->DesG                                             ;
            ,Articulo->UM                                               ;
            ,Tran(Articulo->Cap,"999")                                  ;
            ,Tran(DETGUIAT->Cantid,"999,999")                           ;
            ,Tran(((articulo->conos+articulo->coning-articulo->consal)  ),"999,999") ;
            ,Tran((Articulo->Cap*DETGUIAT->Cantid),"999,999")           ;
            ,Tran(DETGUIAT->PRECIO,"999.9999")                          ;
            ,Transform(DETGUIAT->TOTAL ,"999,999.99")                   ;
      FIELDSIZES 65,195,30,30,40,40,40,50,70           ;
      HEADERS "Codigo"                                 ;
             ,"Descripción"                            ;
             ,"U.M."                                   ;
             ,"Cap"                                    ;
             ,"Cant."                                  ;
             ,"Stock"                                  ;
             ,"Mts."                                   ;
             ,"Precio"                                 ;
             ,"Importe"                                ;
      ID 4025 OF oDlgDet                               ;
      LINES CELL NOBORDER UPDATE

        oBrwDet:nMarqueeStyle    = MARQSTYLE_HIGHLROW
        oBrwDet:bClrSel := {|| {  CLR_WHITE, GetSysColor(13 ) } }

        oBrwDet:aCols[6]:bClrStd:={|| {CLR_HRED,CLR_WHITE} }

        oBrwDet:aCols[9]:nDataStrAlign := AL_RIGHT

        oBrwDet:lHScroll := .t.  
        oBrwDet:lVScroll := .t.  //==> para que aparezca la barra scroll vertical


Gracias x su ayuda
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
Re: SCROLL VERTICAL EN XBROWSE NO SALE
Posted: Tue Jan 10, 2017 12:48 AM
Aqui tienen la pantalla de muestra
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
Posts: 140
Joined: Thu Feb 02, 2006 12:09 PM
Re: SCROLL VERTICAL EN XBROWSE NO SALE
Posted: Tue Jan 10, 2017 02:07 AM

en tu control debes tener definido WS_VSCROLL

Ejemplo.
CONTROL "", 301, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 6, 101, 141, 84

Mario Antonio González Osal

Venezuela

m a g 0 7 1 @ g m a i l. c o m
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: SCROLL VERTICAL EN XBROWSE NO SALE
Posted: Tue Jan 10, 2017 09:59 AM
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
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: SCROLL VERTICAL EN XBROWSE NO SALE
Posted: Tue Jan 10, 2017 01:41 PM

No se si ya resolvistes, pero eso se resuelve en el recurso, aca los style, saludos... :shock:

/* styles posibles
0x50000000 -> desta forma ele fica por default com as barras Hor/Vert Ativas, ai sim, basta vc inserir no seu codigo :
0x50D00000 -> Barra Horizontal
0x50A00000 -> Barra Vertical
0x50B00000 -> Barra Horizontal e Vertical
0x50010000 -> sin barras
* 0x50B100A1 -> OJO - AMBAS BARRAS-no usar esta, hice pruebas y cuando volvi a esta..ya no me pone barra h.

Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
Re: SCROLL VERTICAL EN XBROWSE NO SALE
Posted: Wed Jan 11, 2017 11:40 PM
Les agradezco muchachos por la ayuda pero no consigo que salga el scroll
Abri el dll con Pelles C y lo grabe como .rc
Este es el trozo del rc donde esta el recurso Dialogo el cual contiene el xbrowse

Code (fw): Select all Collapse
// RESOURCE SCRIPT generated by "Pelles C for Windows, version 5.00".

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>

...
...
...

BRW_GUIA DIALOG FIXED IMPURE -17, -39, 427, 243
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Maestro de Facturas"
FONT 9, "Arial"
{
  CONTROL "&A", 333, "BorBtn", WS_TABSTOP, 126, 217, 41, 23
  CONTROL "&Modificar", 332, "BorBtn", WS_TABSTOP, 85, 217, 41, 23
  CONTROL "&Nuevo", 331, "BorBtn", WS_TABSTOP, 44, 217, 41, 23
  CONTROL "", 111, "BorStatic", 0x00000000, 43, 207, 161, 8
  CONTROL "Buscar  :", -1, "BorStatic", 0x00000000, 5, 207, 31, 8
  CONTROL "&Salir", 330, "BorBtn", WS_TABSTOP, 3, 217, 36, 23
  CONTROL "", 4001, "ListBox", LBS_SORT|LBS_NOTIFY|WS_VSCROLL|WS_BORDER|WS_TABSTOP, 4, 4, 423, 201  // ==> ya tiene la opcion WS_VSCROLL


Al querer enlazar mi rc al exe lo hago de esta manera (al correrlo no me genera el almacen.res)
Code (fw): Select all Collapse
#Borland make sample, (c) FiveTech Software 2005-2009

HBDIR=c:\131\harbour
BCDIR=c:\131\bcc582
FWDIR=c:\131\fwh

#change these paths as needed
.path.OBJ = .\obj
.path.PRG = .\
.path.CH  = $(FWDIR)\include;$(HBDIR)\include
.path.C   = .\
.path.rc  = .\

#important: Use Uppercase for filenames extensions, in the next two rules!

PRG =        \
almacen.PRG  \
talmacen.PRG \
malmacen.PRG \
ayudaart.PRG  \
rddsys.PRG   \
password.PRG \
libsis.PRG   \
especial.PRG \
procesos.PRG \
brwartic.PRG \
brwcomis.PRG \
brwcenco.PRG \
brwmotiv.PRG \
brwtipca.PRG \
brwprove.PRG \
brwtabla.PRG \
brwperso.PRG \
brwconpa.PRG \
brwselem.PRG \
brwubi.PRG   \
brwparte.PRG \
brwpatro.PRG \
brwtipim.PRG \
brwperio.PRG \
brwfactu.PRG \
brwletra.PRG \
brwserv.PRG  \
brwgr.PRG    \
brwcorre.PRG \
dlgguia.PRG  \
dlgigv.PRG   \
exportar.PRG \
m2011.PRG    \
rarticu.PRG  \
rfactura.PRG \
rguia.PRG    \
rguiad.PRG   \
rletra.PRG   \
rcalid.PRG   \
tdosprn.PRG  \
txtview.PRG \
repexcel.PRG \
tsalxls.PRG  \
tfilexls.PRG \
xlserror.PRG \
xlsfunc.PRG

PROJECT    : Almacen.exe

Almacen.exe  : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) Favorite.res   // esta linea no la entiendo me imagino que es para que me ponga un icono de una estrella al exe
   echo off
   echo $(BCDIR)\lib\c0w32.obj + > b32.bc
   echo obj\almacen.obj \
        obj\talmacen.obj \
        obj\malmacen.obj \
        obj\ayudaart.obj \
        obj\rddsys.obj \
        obj\password.obj \
        obj\libsis.obj   \
        obj\especial.obj \
        obj\procesos.obj \
        obj\brwartic.obj \
        obj\brwcomis.obj \
        obj\brwcenco.obj \
        obj\brwmotiv.obj \
        obj\brwtipca.obj \
        obj\brwprove.obj \
        obj\brwtabla.obj \
        obj\brwperso.obj \
        obj\brwconpa.obj \
        obj\brwselem.obj \
        obj\brwubi.obj   \
        obj\brwparte.obj \
        obj\brwpatro.obj \
        obj\brwtipim.obj \
        obj\brwperio.obj \
        obj\brwfactu.obj \
        obj\brwletra.obj \
        obj\brwserv.obj \
        obj\brwgr.obj \
        obj\brwcorre.obj \
        obj\dlgguia.obj \
        obj\dlgigv.obj \
        obj\exportar.obj \
        obj\m2011.obj \
        obj\rarticu.obj \
        obj\rfactura.obj \
        obj\rguia.obj \
        obj\rguiad.obj \
        obj\rletra.obj \
        obj\rcalid.obj \
        obj\tdosprn.obj \
        obj\txtview.obj \
        obj\repexcel.obj \
        obj\tsalxls.obj \
        obj\tfilexls.obj \
        obj\xlserror.obj \
        obj\xlsfunc.obj , + >> b32.bc

   echo almacen.exe, + >> b32.bc
   echo almacen.map, + >> b32.bc
   echo $(FWDIR)\lib\FiveH.lib $(FWDIR)\lib\FiveHC.lib + >> b32.bc
   echo $(HBDIR)\lib\hbrtl.lib + >> b32.bc
   echo $(HBDIR)\lib\hbvm.lib + >> b32.bc
   echo $(HBDIR)\lib\gtgui.lib + >> b32.bc
   echo $(HBDIR)\lib\hblang.lib + >> b32.bc
   echo $(HBDIR)\lib\hbmacro.lib + >> b32.bc
   echo $(HBDIR)\lib\hbrdd.lib + >> b32.bc
   echo $(HBDIR)\lib\rddntx.lib + >> b32.bc
   echo $(HBDIR)\lib\rddcdx.lib + >> b32.bc
   echo $(HBDIR)\lib\rddfpt.lib + >> b32.bc
   echo $(HBDIR)\lib\hbsix.lib + >> b32.bc
   echo $(HBDIR)\lib\hbdebug.lib + >> b32.bc
   echo $(HBDIR)\lib\hbcommon.lib + >> b32.bc
   echo $(HBDIR)\lib\hbpp.lib + >> b32.bc
   echo $(HBDIR)\lib\hbwin.lib + >> b32.bc
   echo $(HBDIR)\lib\hbcpage.lib + >> b32.bc
   echo $(HBDIR)\lib\hbct.lib + >> b32.bc
   echo $(HBDIR)\lib\xhb.lib + >> b32.bc
   echo $(HBDIR)\lib\hbcplr.lib + >> b32.bc
   echo $(HBDIR)\lib\hbpcre.lib + >> b32.bc

   rem Uncomment these two lines to use Advantage RDD
   rem echo $(HBDIR)\lib\rddads.lib + >> b32.bc
   rem echo $(HBDIR)\lib\Ace32.lib + >> b32.bc

   echo $(BCDIR)\lib\cw32.lib + >> b32.bc
   echo $(BCDIR)\lib\import32.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\odbc32.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\nddeapi.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\iphlpapi.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\msimg32.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\psapi.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\rasapi32.lib, >> b32.bc

   IF EXIST Almacen.res echo Almacen.res >> b32.bc
   $(BCDIR)\bin\ilink32 -Gn -aa -Tpe -s @b32.bc  //==>  esta linea para que es?
   del b32.bc

.PRG.OBJ:
  $(HBDIR)\bin\harbour $< /L /N /W /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include
  $(BCDIR)\bin\bcc32 -c -tWM -I$(HBDIR)\include -oobj\$& obj\$&.c

.C.OBJ:
  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS > tmp
  echo -I$(HBDIR)\include;$(FWDIR)\include >> tmp
  $(BCDIR)\bin\bcc32 -oobj\$& @tmp $&.c
  del tmp


Almacen.res : Almacen.rc
  $(BCDIR)\bin\brc32.exe -r Almacen.rc  // esta linea es para incrustar mi rc al Exe?

Opte por correr solo esta linea
Code (fw): Select all Collapse
Almacen.res : Almacen.rc
  $(BCDIR)\bin\brc32.exe -r Almacen.rc

y me sale este mensaje: Error almacen.rc 3 11: Cannot open file: windows.h
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: SCROLL VERTICAL EN XBROWSE NO SALE
Posted: Thu Jan 12, 2017 12:44 AM
Debes crear el xBrowse como un CUSTOM CONTROL tipo xBrowse, si quieres coloca un correo y te envio un archivo .res con xbrowse creado, aca te lo envio en .rc, saludos... :-)

Code (fw): Select all Collapse
// RESOURCE SCRIPT generated by "Pelles C for Windows, version 8.00".

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>

LANGUAGE LANG_SPANISH,SUBLANG_SPANISH_VENEZUELA

DLG_BROWSE DIALOGEX DISCARDABLE 6, 18, 200, 210
STYLE DS_SHELLFONT|WS_POPUP|DS_MODALFRAME|DS_3DLOOK|DS_CENTER|WS_CAPTION|WS_VISIBLE
CAPTION " un xbrowse"
FONT 8, "Tahoma", 0, 0, 1
{
  CONTROL "TXBROWSE", 100, "TXBROWSE", WS_TABSTOP|0x00b000a1, 4, 4, 192, 200  // ASI LO TENGO DEFINIDO Y HAGO LOS CAMBIOS EN WS_TABSTOP
}
Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
Re: SCROLL VERTICAL EN XBROWSE NO SALE
Posted: Thu Jan 12, 2017 03:10 AM

Aqui tienes mi correo:

yaam01@hotmail.com

me podrias tb enviar tu archivo mak?

Gracias JoseLuis

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: SCROLL VERTICAL EN XBROWSE NO SALE
Posted: Thu Jan 12, 2017 03:38 AM
artu01 wrote:Aqui tienes mi correo:
yaam01@hotmail.com

me podrias tb enviar tu archivo mak?

Gracias JoseLuis

Enviado en archivo .res y .rc, saludos... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
Re: SCROLL VERTICAL EN XBROWSE NO SALE
Posted: Thu Jan 12, 2017 04:37 AM
Gracias JoseLuis y Gracias a todos los demas que me ayudaron
funciono con el CUSTOM CONTROL que me pasaste ademas de ello tuve que poner estas dos lineas:
Code (fw): Select all Collapse
      oBrw:lVScroll   := .t.
      oBrw:lHScroll   := .t.

Tengo una duda de como se hace para incrustar el .RC en el .EXE y cual es la diferencia entre .RC y .RES¨?
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: SCROLL VERTICAL EN XBROWSE NO SALE
Posted: Thu Jan 12, 2017 01:40 PM
artu01 wrote:Gracias JoseLuis y Gracias a todos los demas que me ayudaron
funciono con el CUSTOM CONTROL que me pasaste ademas de ello tuve que poner estas dos lineas:
Code (fw): Select all Collapse
      oBrw:lVScroll   := .t.
      oBrw:lHScroll   := .t.

Tengo una duda de como se hace para incrustar el .RC en el .EXE y cual es la diferencia entre .RC y .RES¨?


Buen dia, que bueno te haya servido, si colocas el valor correspondiente en el style que los tienes en los mensajes anteriores, no necesitas oBrw:lVScroll := .t. ni oBrw:lHScroll := .t., por lo menos a mi me trabaja sin problemas, revisa cual es el que coloca ambas barras, lo cambias en tu recurso y listo...saludos... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 163
Joined: Thu Mar 16, 2017 04:08 PM
Re: SCROLL VERTICAL EN XBROWSE NO SALE
Posted: Sun Mar 19, 2017 05:51 PM

Estimado foreros

Como puedo hacer lo mismo, esto es que solo se muestre el scroll vertical, pero creando el xbrowse desde código.

Saludos

Fernando Espinoza A.

Posts: 163
Joined: Thu Mar 16, 2017 04:08 PM
Re: SCROLL VERTICAL EN XBROWSE NO SALE
Posted: Sun Mar 19, 2017 06:01 PM

La búsqueda fue rápida, me funcionó con el: oLbx:lHScroll := .F.

Disculpen la molestia

Saludos

Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: SCROLL VERTICAL EN XBROWSE NO SALE
Posted: Sun Jan 03, 2021 08:34 PM
joseluisysturiz wrote:
artu01 wrote:Aqui tienes mi correo:
yaam01@hotmail.com

me podrias tb enviar tu archivo mak?

Gracias JoseLuis

Enviado en archivo .res y .rc, saludos... :-)


podrias enviarlo por favor gusmavf arroba gmail punto com
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
Re: SCROLL VERTICAL EN XBROWSE NO SALE
Posted: Thu Jan 14, 2021 05:13 AM
goosfancito wrote:
podrias enviarlo por favor gusmavf arroba gmail punto com

Te envié a tu correo
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql