I must show ten images
each image name is img_name := "Image_" + hb_ntos( i )
If call myfunction() the value of nvalue is the same why ?
count:= 10
nvalue:= 0
col:= 10
nRow:= 10
For i := 1 TO count
img_name := "Image_" + hb_ntos( i )
@ nRow, Col IMAGE &img_name SIZE 12, 12 OF oDlg FILENAME Empty_Img PIXEL NOBORDER ;
ON CLICK (nvalue := Val( SubStr( img_name, RAt( '_', img_name ) + 1 ) ), myfunction())
&img_name:lTransparent := .T.
&img_name:bMMoved :={ || (nvalue := Val( SubStr( img_name, RAt( '_', img_name ) + 1 ) ), myfunction() ) }
&img_name:bMLeave :={ || (nvalue := Val( SubStr( img_name, RAt( '_', img_name ) + 1 ) ), myfunction()) }
Col += 12
Next
return nil
Function myfunction()
msginfo(nvalue)
return nil