hazael escreveu:Fernando, poderia explicar em detalhes o que isso faz? Como funciona?
Obrigado!
INIT DIALOG oDlg TITLE "Cadastro de Produtos" ;
ICON HIcon():AddFile('sgc.ico') ;
AT 0, 0 SIZE 947,584 CLIPPER NOEXIT ;
STYLE WS_OVERLAPPEDWINDOW+DS_CENTER+DS_ABSALIGN;
ON INIT {|This| onDlgInit( This, oDlg ) }
ThisBRW := oDlg
@ 4,70 BROWSE oBrowse1 DATABASE OF oDlg SIZE 940,482 STYLE WS_BORDER + WS_VSCROLL +WS_HSCROLL ;
ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS ;
ON POSCHANGE {|| hwg_WriteStatus( oDlg,2,LTrim(Str( RecNo(),8))+ "/" +LTrim(Str( Lastrec(),8))) } ;
ON CLICK {|| oBrowse1_onClick( ) } ;
ON KEYDOWN {|oBrowse1,nKeyPress| oBrowse1_onKeyDown( oBrowse1,nKeyPress ) }
oBrowse1:oStyleHead :=
HStyle():New( { 0xffffff, 0xbbbbbb }, 1,, 0.4, 16759929 ) oBrowse1:freeze := 1
* oBrowse1:nColumns := 17
oBrowse1:alias := 'PRODUTOS'
SELECT (oBrowse1:alias)