Search the Community
Showing results for tags 'scroll'.
Found 1 result
-
Pessoal, preciso de ajuda para colocar um scroll nessa Dialog... quem se habilita? ***************************************** Function EditCell( ) ***************************************** * * USE CLIENTES // abrir qualquer arquivo que tenha mais de 30 campos para fazer um scroll automático... * * oGet := {} cGet := {} estr := DbStruct() For i=1 to Len(estr) estr[i,1] := Upper( Substr( estr[i,1], 1, 1 ) ) + Lower( Substr( estr[i,1], 2 ) ) End nMax := Len(estr) DEFINE DIALOG xDlg FROM 1,5 TO 44,100 TITLE Alias() nLin := 0.5 oGet := Array(nMax) For i=1 to nMax @ nLin,1 say estr[i,1] of xDlg nLin+=0.86 End nCtn:=0 nLin:=-0.5 For i=1 to nMax nLin+=1 nCtn++ cGet:=field(i) @ nLin,5 get oGet[i] var &cGet of xDlg End ACTIVATE DIALOG xDlg CENTERED return nil
