PC Toledo

Código: Selecionar todos

DEFINE BROWSE Browse_1
PARENT form_1
ROW 85
COL 20
WIDTH 1150 
HEIGHT 630
FONTNAME 'Courier New'
FONTSIZE 12
FONTBOLD .T.
HEADERS {nil, 'Hora','PV','Situacao','Detalhe','Oc1','Oc2','Oc3','Oc4','Oc5'}
WIDTHS { 40, 70 , 35 , 120 , 670 , 300 , 300 , 300 , 300 , 300 }
IMAGE { "ajuda", "acerto" , "audit" , "devol" , "vala", "valx", "vlb" }
WORKAREA csr
FIELDS aNomb
VALUE 1
LOCK .T.
READONLY { .T. , .T. , .T. , .F. , .T. , .T. , .T. , .T. , .T. , .T. }
DYNAMICBACKCOLOR { NIL, rColor, rColor, xColor, rColor, rColor , rColor, rColor , rColor , rColor } 
DYNAMICFORECOLOR { NIL, bColur, bColur, bColur, bColur, bColur , bColur, bColur , bColur , bColur } 
NOLINES .t.
ON DBLCLICK {|| msginfo('test') } 
ONLOSTFOCUS xTransfer()
INPLACEEDIT .T.
ALLOWEDIT .T.
END BROWSE

Form_1.Browse_1.InputItems := {Nil ,Nil ,Nil , xStat , Nil, Nil, Nil, Nil , Nil , Nil }
form_1.browse_1.refresh()
form_1.browse_1.setfocus

Código: Selecionar todos

@ 40,20 BROWSE Browse_1									;
					WIDTH 560  										;
					HEIGHT 340 										;	
					HEADERS { 'Code' , 'First Name' , 'Last Name', 'Birth Date', 'Married' , 'Biography' } ;
					WIDTHS { 150 , 150 , 150 , 150 , 150 , 150 } ;
					WORKAREA &var ;
					FIELDS { 'Test->Code' , 'Test->First' , 'Test->Last' , 'Test->Birth' , 'Test->Married' , 'Test->Bio' } ;
					TOOLTIP 'Browse Test' ;
					JUSTIFY { BROWSE_JTFY_LEFT,BROWSE_JTFY_CENTER, BROWSE_JTFY_CENTER, BROWSE_JTFY_CENTER,BROWSE_JTFY_CENTER,BROWSE_JTFY_CENTER} ;
					ON DBLCLICK   {|| msginfo('test') };
					DELETE ;
					LOCK