FiveTech Software tech support forums

... 2148 ) Called from: HARBOUR\XBROWSE.PRG => TXBROWSE:GORIGHT( 2695 ) Called from: HARBOUR\XBROWSE.PRG => TXBROWSE:HSCROLL( 2539 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1733 ) Called from: ...

coloque o #include "COMMON.CH" no inicio do programa. O resource rede: rede DIALOG 23, 24, 421, 172 STYLE 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME FONT 8, "MS Sans Serif" { CONTROL "", 101, "TWBrowse", WS_CHILD | WS_VISIBLE | WS_B...

... de ese control informandole de la tecla pulsada para poder procesarla. Y cuando manejas el Scroll le manda un mensaje a los métodos VSCroll() y HSCroll() para poder procesar la correspondiente acción. Pues bien, desde que he modificado mi clase TScrollBar, en principio todo bien, pero tras manejar ...

Quita la claúsula HSCROLL en la creación de la ventana
Ahora falta ajustar el salto ya que baja la posicion de los items.

https://navarro_cristobal@bitbucket.org ... ort_n1.git

lHScroll := .t. permite mostrar la barra de desplazamiento horizontal, asi mismo permite que el usuario pueda desplazarse hacia los lados. es tambien necesario, agreagr al style del custom control en el recurso la definicion WS_HSCROLL para qeu funcione correctamente. salu2 carlos vargas Carlos, Pe...

lHScroll := .t.

permite mostrar la barra de desplazamiento horizontal, asi mismo permite que el usuario pueda desplazarse hacia los lados.
es tambien necesario, agreagr al style del custom control en el recurso la definicion WS_HSCROLL para qeu funcione correctamente.

salu2
carlos vargas

Lo puedes calcular de esta forma:

MsgInfo( nOr( 0x50000000, WS_VSCROLL, WS_HSCROLL ) )

El valor a usar en su estilo "window styles" es: 1345323008

Este ejemplo funciona bien. Podeis probarlo ? gracias Es necesario usar los estilo WS_VSCROLL y WS_HSCROLL en el recurso horacio.prg #include "FiveWin.ch"function Main()   local oDlg, oBrw, aData := { "one", "two", "three" }   DEFINE DIALOG o...

... 2402 HPOPUP                  WINDOW.PRG      663  3069  3076G 3083G HPRVWND                WINDOW.PRG      173  3557  3558  3569  3571  3665  3675 HSCROLL()              (function  in ?)    WINDOW.PRG      655  2786 HTOOLTIP                WINDOW.PRG      174  3551  3640 HUSER                  WINDOW.PRG ...

William, Tendrias que cambiar los métodos METHOD VScroll( nWParam, nLParam ) VIRTUAL y METHOD HScroll( nWParam, nLParam ) VIRTUAL de la Clase TTreeView y encontrar la forma que no interfiera con el control. Nosotros tuvimos que declararlos VIRTUAL pues si haciamos algo ...

Como estan : Quisiera hacer búsqueda incremental encontré una solución en el foro pero cuando la aplico a mi programa no responde sale como caracteres extraños cuando digito y fuera de sitio en el GET y en el XBROWSE no sale nada. Alguna sugerencia?. Muchas Gracias. #include "FiveWin.Ch" #...

... siempre tengo que comentar la línea in RPREVIEW.PRG DEFINE WINDOW ::oWnd ; TITLE cTitle ; COLOR CLR_BLACK,CLR_LIGHTGRAY ; ICON oIcon ; VSCROLL HSCROLL //MDICHILD

Noé en los fuentes originales de tsfunc.c hay llamadas como por ejemplo    HWND hWnd        = (HWND)    hb_parni( 1 ) ;   HDC  hDC         = (HDC)     hb_parni( 2 ) ;  las cuales...

SALUDOS.

Pues en base a tu sugerencia del style, solo agrege a mi browse:

oBROWSE:nStyle := nOr( WS_CHILD, WS_BORDER, WS_VISIBLE, WS_TABSTOP, WS_HSCROLL, WS_VSCROLL )

y asunto arreglado, con los fuentes originales de tsbrowse 9.0

ya con esto quedan las barras H y V

okis, me comentas por favor.

salu2