SCROLL VERTICAL EN XBROWSE NO SALE

SCROLL VERTICAL EN XBROWSE NO SALE

Postby artu01 » 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: Select all  Expand view

   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
artu01
 
Posts: 397
Joined: Fri May 11, 2007 8:20 pm
Location: Lima

Re: SCROLL VERTICAL EN XBROWSE NO SALE

Postby artu01 » Tue Jan 10, 2017 12:48 am

Aqui tienen la pantalla de muestra
Image
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
artu01
 
Posts: 397
Joined: Fri May 11, 2007 8:20 pm
Location: Lima

Re: SCROLL VERTICAL EN XBROWSE NO SALE

Postby mag071 » Tue Jan 10, 2017 2: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
User avatar
mag071
 
Posts: 140
Joined: Thu Feb 02, 2006 12:09 pm
Location: Venezuela

Re: SCROLL VERTICAL EN XBROWSE NO SALE

Postby cnavarro » Tue Jan 10, 2017 9: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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: SCROLL VERTICAL EN XBROWSE NO SALE

Postby joseluisysturiz » Tue Jan 10, 2017 1: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!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: SCROLL VERTICAL EN XBROWSE NO SALE

Postby artu01 » 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: Select all  Expand view

// 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  Expand view

#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  Expand view

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
artu01
 
Posts: 397
Joined: Fri May 11, 2007 8:20 pm
Location: Lima

Re: SCROLL VERTICAL EN XBROWSE NO SALE

Postby joseluisysturiz » 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... :shock:

Code: Select all  Expand view

// 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!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: SCROLL VERTICAL EN XBROWSE NO SALE

Postby artu01 » Thu Jan 12, 2017 3: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
artu01
 
Posts: 397
Joined: Fri May 11, 2007 8:20 pm
Location: Lima

Re: SCROLL VERTICAL EN XBROWSE NO SALE

Postby joseluisysturiz » Thu Jan 12, 2017 3: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... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: SCROLL VERTICAL EN XBROWSE NO SALE

Postby artu01 » Thu Jan 12, 2017 4: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: Select all  Expand view

      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
artu01
 
Posts: 397
Joined: Fri May 11, 2007 8:20 pm
Location: Lima

Re: SCROLL VERTICAL EN XBROWSE NO SALE

Postby joseluisysturiz » Thu Jan 12, 2017 1: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: Select all  Expand view

      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... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: SCROLL VERTICAL EN XBROWSE NO SALE

Postby nanoespinoza » Sun Mar 19, 2017 5: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.
nanoespinoza
 
Posts: 135
Joined: Thu Mar 16, 2017 4:08 pm
Location: Ecuador

Re: SCROLL VERTICAL EN XBROWSE NO SALE

Postby nanoespinoza » Sun Mar 19, 2017 6:01 pm

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

Disculpen la molestia

Saludos
nanoespinoza
 
Posts: 135
Joined: Thu Mar 16, 2017 4:08 pm
Location: Ecuador

Re: SCROLL VERTICAL EN XBROWSE NO SALE

Postby goosfancito » Sun Jan 03, 2021 8: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... :shock:


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/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: SCROLL VERTICAL EN XBROWSE NO SALE

Postby artu01 » Thu Jan 14, 2021 5: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
artu01
 
Posts: 397
Joined: Fri May 11, 2007 8:20 pm
Location: Lima

Next

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 21 guests