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://fivetechsupport.com/forums/
Code: Select all | Expand
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
Code: Select all | Expand
CLIP BITMAP "../bitmaps/clip.bmp"
Code: Select all | Expand
oBrw3021:aCols[ 3 ]:nEditType := IF(!EMPTY(oClassVen:cvCtrFat), EDIT_NONE, EDIT_GET_BUTTON )
oBrw3021:aCols[ 3 ]:addResource( "LUPA2")
oBrw3021:aCols[ 3 ]:nBtnBmp := 1
Code: Select all | Expand
WITH OBJECT ( oCol := oBrw3021:aCols[ 3 ] )
:nEditType := EDIT_GET_BUTTON
:bEditBlock := { || MSGINFO( "OK" ), NIL }
:AddResource( "lupa2" )
:nBtnBmp := 1
END