Alquien puede compilar este codigo, el problema es que cuando se mueve el puntero del maus cambia valores de la lista, y no es posible seleccionar un item de la lista.
Usos Harbour 3.2
- Code: Select all Expand view RUN
PROCEDURE Mailisbo11()
LOCAL nMesT, aMeses, lBtn := .T.
Ln_Box := 1
cColor1 := "W/N,B/W+,W/N,W+/B,W/N,N/W*,G/W*,N/G"
// setmode(25,80)
CLS
SET( _SET_EVENTMASK, INKEY_ALL )
MSetCursor( .T. )
nMesT := Month( Date() )
aMeses := AMonths() // LIB hbmisc
@ 10, 10, 20, 25 GET nMesT LISTBOX aMeses CAPTION "Mes:" DROPDOWN SCROLLBAR;
COLOR "W/N,B/W+,W/N,W+/B,W/N,N/W*,G/W*,N/G" MESSAGE "Seleccione un mes"
@ 10, 30 GET lBtn PUSHBUTTON CAPTION " &Ok " STATE {|| ReadKill(.T.)} COLOR "W/G,W+/G,G/N,W+/G"
READ MSG AT 15,10,50 MSG COLOR 'w*/b'
? nMesT
RETURN
Hice un cambio en esta linea y ya no cambia cambia al mover el maus
Set ( _SET_EVENTMASK, INKEY_ALL - INKEY_MOVE + HB_INKEY_GTEVENT )
Ahora el Problema es Cuando selecciono un item de la lista me selecciona el siguiente,
Anexo Imagen, El Scrroll Muestra ? Anexo Dos Imagenes Uno Con Harbour y Otros con xHarbour
Ya lo solucione el problema.
[url]
https://www.dropbox.com/s/tilezfct6e6rn ... j.jpg?dl=0
[/url]
