Buenos días,
I'm trying to do some think like this
#Include "FiveWin.Ch"
#include "xbrowse.ch"
static a := {"","AAAB","AAACA","AAADA","AAAE","AAAFA","AAAFB","AAAFC","AAAFD"}, oBrw
Function Main()
Local oDlg
Local oGet, oGet1
local cVar := space( 20 )
DEFINE DIALOG oDlg from 0,0 to 400,400 pixel
@ 15,15 get oGet var cVar picture "@!" size 120,12 of oDlg pixel
@ 29,15 get oGet1 var cVar picture "@!" size 120,12 of oDlg pixel
oGet:aSource := a
oGet:bSearch := {|i,e| AT( i, e ) > 0 }
oGet:cSource := 'ARRAY'
oGet:lenDisplay := 8
ACTIVATE DIALOG oDlg
return nil
you can donwload the exe sample from:
https://app.box.com/s/r34a51i5qnvkqfl6oyhf
But there is a problem, when the list is showed and we move the dialog, try and you will know what I say
because I'm modified the get class I can't public the source code
Regards
Marcelo