Re: ComboSearchGrid
Posted: Sat Aug 22, 2015 4:28 am
Can I know your windows version?
Can you give a small sample?
Can you give a small sample?
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://www.hmgforum.com/
Code: Select all
#include 'hmg.ch'
#include 'hfcl_combosearchgrid.ch'
Function p1
LOCAL proba:="A"
Public aItems := {}
aItems := AgendaOpen()
DEFINE WINDOW CSG AT 10, 20 ;
WIDTH 500 HEIGHT 600 ;
modal
DEFINE LABEL namelabel
ROW 10
COL 10
WIDTH 60
VALUE 'Name'
END LABEL
DEFINE COMBOSEARCHGRID NAME
ROW 10
COL 80
WIDTH 600
ITEMS aItems
// value proba
HEADERS { 'Sifra' , 'Ime' }
WIDTHS { 300 , 170 }
JUSTIFY { 0 , 0 }
anywheresearch .t.
showheaders .t.
END COMBOSEARCHGRID
DEFINE LABEL label2
ROW 40
COL 10
WIDTH 60
VALUE 'Label 2'
END LABEL
DEFINE TEXTBOX textbox2
ROW 40
COL 80
WIDTH 200
END TEXTBOX
DEFINE BUTTON Selection
ROW 70
COL 10
WIDTH 200
CAPTION 'Click after selecting an item'
ACTION findselecteditem()
END BUTTON
END WINDOW
StopControlEventProcedure( 'name', 'csg', .t. )
csg.name.value := proba
StopControlEventProcedure( 'name', 'csg', .f. )
CSG.CENTER
CSG.ACTIVATE
Return Nil
/******************************************/
Function findselecteditem()
/******************************************/
local aData := {}
local i := 0
local cMsg := ''
aData := _HMG_CSG_ItemSelected( 'CSG', 'NAME' )
if len( aData ) > 0
cMsg := '{'
for i := 1 to len( aData )
cMsg := cMsg + aData[ i ]
if i < len( aData )
cMsg := cMsg + ', '
endif
next i
cMsg := cMsg + '}'
msginfo( 'You have selected the item - ' + cMsg )
endif
Return Nil
/******************************************/
Function AgendaOpen()
/******************************************/
local i := 0
local aItems1 := {}
Use AGENDA Alias Agenda2 new shared
If ! File( 'Agenda2.ntx' )
Index on Nome to Agenda2
Endif
Agenda2->( DBCLearIndex() )
Agenda2->( DBSetIndex( 'Agenda2') )
Agenda2->( DbGotop() )
Agenda2->( DbSkip() )
WHILE ! Agenda2->( Eof() )
i ++
aadd( aItems1 , { ALLTRIM( Agenda2->CODIGO) , Agenda2->NOME } )
*MSGBOX(aItems1[ i ] [ 2 ])
Agenda2->( dbSkip() )
ENDDO
Return aItems1
/*
*/