Re: Programa travando apos upgrade 1604 e 1605
Posted: Fri Aug 19, 2016 5:31 pm
Thanks for the info. We shall check and get back to you ASAP
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=32834
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 nil
CLIP 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 := 1
WITH OBJECT ( oCol := oBrw3021:aCols[ 3 ] )
:nEditType := EDIT_GET_BUTTON
:bEditBlock := { || MSGINFO( "OK" ), NIL }
:AddResource( "lupa2" )
:nBtnBmp := 1
END