Estoy teniendo un mal comportamiento con los scrolls.
Este es mi listBox:
- Code: Select all Expand view RUN
- REDEFINE LISTBOX oLbx;
FIELDS TRAN(oDbfCab:NUMERO,"########"),DTOC(oDbfCab:FECHA),TRAN(oDbfCab:CLIENTE,"########"),;
oDbfCab:RAZONSOC,TRAN(oDbfCab:TOTAL,"#######.##")," ";
SIZES 55,75,55,150,70,0;
HEADERS "Número","Fecha","Cliente","Razón social","Total"," ";
ID 1000 OF oDlg1
oLbx:bSkip :={|nRecs|oDbfCab:Skipper(nRecs)}
oLbx:aJustify :={.t.,.f.,.t.,.f.,.t.,.f.}
oLbx:nClrBackFocus:=Rgb(255,255,128)
oLbx:nClrForeFocus:=Negro
Este el es recurso:
- Code: Select all Expand view RUN
- LISTAPEDIDOS DIALOG DISCARDABLE 102, 55, 179, 103
STYLE WS_POPUP|WS_CAPTION|WS_SYSMENU
CAPTION "Consulta de pedidos"
FONT 8, "System"
BEGIN
CONTROL "", 1000, "ListBox", LBS_SORT|LBS_NOINTEGRALHEIGHT|LBS_DISABLENOSCROLL|LBS_NOTIFY|WS_HSCROLL|WS_VSCROLL|WS_BORDER|WS_TABSTOP, 2, 7, 176, 66
CONTROL "Total", 4000, "Static", SS_RIGHT|WS_GROUP, 111, 77, 24, 8
CONTROL "", 100, "Edit", ES_AUTOHSCROLL|WS_BORDER, 138, 76, 40, 10
CONTROL "", 200, "Button", WS_TABSTOP, 2, 91, 50, 12
CONTROL "", 201, "Button", WS_TABSTOP, 128, 91, 50, 12
END
El problema que tengo es cuando le doy click al Scroll para la derecha se pone disable.
Dejo una imagen con el problema:
Ahi el Scroll horizontal se puso disable y aun no llegó al final.
