xbrowser no muestra el scroll

[goosfancito]

Hola.
Uso un Listbox desde los recursos. ya he seteado el scrool y en el codigo tengo esto:

Code: Select all  Expand view

  WITH OBJECT ::oBrw
      :nMarqueeStyle       := 5
      :bClrStd             := { || IF( ::oBrw:KeyNo() % 2 == 0, ;
                                       { CLR_BLACK, RGB( 255, 255, 255 ) }, ;
                                       { CLR_BLACK, RGB( 214, 255, 245 ) } ) }

      :bClrSel             := { || { CLR_BLACK,  RGB( 160, 240, 240 ) } }

      :lKinetic            := .F.
      :ltransparent        := .F.
      :lHScroll := .t.
      :lRecordSelector     := .F.
      :lAllowColSwapping   := .F.
      :lColDividerComplete := .F.
      :nRowDividerStyle    := 4
      :nStretchCol         := STRETCHCOL_LAST
      :nColDividerStyle    := 4

      :nHeaderHeight       := 25
      :nRowHeight          := 23
      :lFlatStyle          := .T.
 

pero no me muestra el scroll vertical, en que le estoy errando?
gracias

[Antonio Linares]

Estimado Gustavo,

Has especificado WS_VSCROLL como estilo en el recurso ?

[goosfancito]

Estimado Gustavo,

Has especificado WS_VSCROLL como estilo en el recurso ?

no se donde hay qe ponerlo, uso pelesC
agrego una imagen

https://photos.app.goo.gl/ca3rTjAHJzk7Kkn19

[Antonio Linares]

Parece que ya lo tienes activado

Puedes copiar aqui el fichero rc ?

[goosfancito]

Parece que ya lo tienes activado

Puedes copiar aqui el fichero rc ?

Code: Select all  Expand view

DLGCLIENTE DIALOGEX DISCARDABLE 6, 18, 448, 337
STYLE DS_SHELLFONT|WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION ".: Cliente :."
FONT 8, "Tahoma", 0, 0, 1
{
  CONTROL " Datos del CONTACTO directo ", 4001, "Button", BS_GROUPBOX, 15, 13, 416, 87
  CONTROL "Nombres:", 4003, "Static", WS_GROUP, 33, 31, 97, 8
  CONTROL "Edit", 100, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 33, 41, 101, 12
  CONTROL "Apellidos:", 4004, "Static", WS_GROUP, 154, 31, 97, 8
  CONTROL "Edit", 102, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 154, 41, 118, 12
  CONTROL "Email:", 4002, "Static", WS_GROUP, 284, 31, 99, 8
  CONTROL "Edit", 104, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 284, 41, 125, 12
  CONTROL "Whatsapp:", 4010, "Static", WS_GROUP, 33, 61, 99, 8
  CONTROL "Edit", 106, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 33, 71, 101, 12
  CONTROL "País:", 4006, "Static", WS_GROUP, 154, 61, 99, 8
  CONTROL "", 108, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|CBS_SORT|WS_VSCROLL|WS_TABSTOP, 154, 71, 133, 65
  CONTROL "Ciudad:", 4008, "Static", WS_GROUP, 304, 61, 85, 8
  CONTROL "Edit", 110, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 304, 71, 105, 12
  CONTROL " Solicitantes ", 4005, "Button", BS_GROUPBOX, 15, 111, 416, 187
  CONTROL "", 112, "ListBox", LBS_SORT|LBS_NOTIFY|WS_VSCROLL|WS_TABSTOP, 28, 131, 323, 159
  CONTROL "&Agregar Solicitante", 200, "Button", BS_MULTILINE|WS_TABSTOP, 366, 133, 50, 36
  CONTROL "&Ver Carpeta", 202, "Button", WS_TABSTOP, 15, 308, 69, 17
  CONTROL "&Guardar carpeta", 204, "Button", WS_TABSTOP, 362, 311, 69, 17
}

[Antonio Linares]

Modifica esta línea:

CONTROL "", 112, "ListBox", LBS_SORT|LBS_NOTIFY|WS_VSCROLL|WS_TABSTOP, 28, 131, 323, 159

asi:

CONTROL "", 112, "TXBrowse", WS_VSCROLL|WS_TABSTOP, 28, 131, 323, 159

[leandro]

Hola buenos días, en algún momento nos sucedió algo similar, si no estoy mal creo que hay que definir un control personalizado para que funcione, con las propiedades, que se ven en la imagen.

[George]

Si utilizas RESOURCES en style debe colocar, para que aparezca el scroll en xBrowser, lo siguiente:
0x50D00000 ---> Barra Horizontal
0x50A00000 ---> Barra Vertical