SCROLL VERTICAL EN XBROWSE NO SALE

[artu01]

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: Select all

   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

[artu01]

Aqui tienen la pantalla de muestra

[mag071]

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

[cnavarro]

Prueba con
http://forums.fivetechsupport.com/viewt ... 00#p183851

[joseluisysturiz]

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

/* 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.

[artu01]

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: Select all

// 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: Select all

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

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

[joseluisysturiz]

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: Select all

// 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 _ EN WS_TABSTOP
}
 

[artu01]

Aqui tienes mi correo:
yaam01@hotmail.com

me podrias tb enviar tu archivo mak?

Gracias JoseLuis

[joseluisysturiz]

Aqui tienes mi correo:
yaam01@hotmail.com

me podrias tb enviar tu archivo mak?

Gracias JoseLuis

Enviado en archivo .res y .rc, saludos...

[artu01]

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: Select all

      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¨?

[joseluisysturiz]

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: Select all

      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...

[nanoespinoza]

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.

[nanoespinoza]

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

Disculpen la molestia

Saludos

[goosfancito]

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

[artu01]

podrias enviarlo por favor gusmavf arroba gmail punto com

Te envié a tu correo