Lista de controles EDIT

por **JoséQuintas** » 28 Set 2020 19:20

Como é que eu pego a lista de controles HEDIT do formulário?

por **JoséQuintas** » 28 Set 2020 19:37

Ok, por enquanto resolvi de outra forma.

Porque simplificar se dá pra complicar.... kkkkk

FOR EACH agora com 3 elementos

   FOR EACH xValue, oField, hEdit IN aValues, aStru, ::hEditList

por **alxsts** » 28 Set 2020 20:53

Olá!

Costumo usar o debugger da HwGUI para descobrir este tipo de coisas.

Veja na imagem: ODlg tem um array contendo todos os controles filhos. Cada controle filho tem o método hControl que retorna uma string onde aparece o tipo e pode ser testado em um loop no aControls, desde que se conheça os tipos disponíveis:

oDlg:aControls[8]:hControl()  ==> "Class HEDIT object"

por **JoséQuintas** » 28 Set 2020 21:37

E provavelmente vai precisar de Main() para o debug.
Acho que vou ter que definir alguma Main() em hwgui pra eu usar.

por **JoséQuintas** » 29 Set 2020 13:09

Então... acabei resolvendo de outra forma, da forma que uso naquela outra LIB...
Crio um array com os HEdit.

   FOR EACH xValue, oField, hEdit IN aValues, aStru, ::hEditList
      @ nCol + 110, nRow GET hEdit VAR xValue SIZE oField[ DBS_LEN ] * 12, 25 ;

Basta que o controle seja um elemento do array.

Na outra é oControl := wvgxxx():New()
Na HWGui, apesar de não ficar visível, também é oControl := hEdit():New()

Então.... acabei fazendo igual, apenas o #command do CH não deixa enxergar isso.

No final, tô fazendo a mesma coisa que fazia antes, só mudaram os nomes.

por **JoséQuintas** » 29 Set 2020 13:26

curiosidade:

   INIT DIALOG ::oFrm CLIPPER NOEXIT TITLE ::cTitulo AT 20, 0 SIZE 800, 600 ON EXIT hwg_EndDialog()
      @ nCol, nRow SAY oField[ DBS_NAME ] SIZE 100, 25
      @ nCol + 110, nRow GET hEdit VAR xValue SIZE oField[ DBS_LEN ] * 12, 25 ;
         STYLE iif( oField[ DBS_TYPE ] == "N", ES_RIGHT, ES_LEFT ) ;
         MAXLENGTH oField[ DBS_LEN ]
      @ nCol, nRow ICON IconFromCaption( cCaption ) FROM RESOURCE ;
         SIZE 55, 55 ;
         ON CLICK bCode ;
         TOOLTIP cCaption

no PPO

   ::oFrm := HDialog():New( Iif(.F.,10,11),,20,0,800,600,::cTitulo,,,hwg_EndDialog(),,,,,,.T.,,,.T.,,,.F.,,.F. )
      HStaticEx():New(,,,nCol,nRow,100, 25,oField[ 1 ],,,,,,,,.F.,,, );
      HSayIcon():New(,,nCol,nRow,55, 55,IconFromCaption( cCaption ),.T.,,,cCaption,,bCode, )
      hEdit := HEdit():New(,,xValue, {|v|Iif(v==Nil,xValue,xValue:=v)}, iif( oField[ 2 ] == "N", 2, 0 ),nCol + 110,nRow,oField[ 3 ] * 12,25,,,,,,,,,,.F.,oField[ 3 ],.F.,, ) ; hwg_SetCtrlName( hEdit,"hEdit" )

No HSayIcon() e HStaticEx() não defini nome, então fica só no array interno da hwgui.