Thanks for the info. We shall check and get back to you ASAP
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Thanks for the info. We shall check and get back to you ASAP
function testxbrbtn
local oDlg, oBrw
USE STATES NEW
DEFINE DIALOG oDlg SIZE 500,500 PIXEL
@ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
ALIAS "STATES" AUTOCOLS ;
CELL LINES NOBORDER
WITH OBJECT oBrw
WITH OBJECT :Name
:nEditType := EDIT_BUTTON
:bEditBlock := { || MSGINFO( "OK" ), NIL }
:AddResource( "CLIP" )
:nBtnBmp := 1
END
:CreateFromCode()
END
ACTIVATE DIALOG oDlg CENTERED
return nilCLIP BITMAP "../bitmaps/clip.bmp" oBrw3021:aCols[ 3 ]:nEditType := IF(!EMPTY(oClassVen:cvCtrFat), EDIT_NONE, EDIT_GET_BUTTON )
oBrw3021:aCols[ 3 ]:addResource( "LUPA2")
oBrw3021:aCols[ 3 ]:nBtnBmp := 1WITH OBJECT ( oCol := oBrw3021:aCols[ 3 ] )
:nEditType := EDIT_GET_BUTTON
:bEditBlock := { || MSGINFO( "OK" ), NIL }
:AddResource( "lupa2" )
:nBtnBmp := 1
END