Saludos Al forum
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
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.
https://www.dropbox.com/s/tilezfct6e6rn ... j.jpg?dl=0
" rel="noopener">
https://www.dropbox.com/s/tilezfct6e6rn ... j.jpg?dl=0
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
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
  RETURNHice 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.
https://www.dropbox.com/s/tilezfct6e6rn ... j.jpg?dl=0
" rel="noopener">
https://www.dropbox.com/s/tilezfct6e6rn ... j.jpg?dl=0
