Avances con FiveTouch

[jnavas]

Cristobal
Tienes el programa tdesign.prg funciando, el que posee genera algunas incidencias.

En el caso de QT, no funciona bien extraer las DATAs de un objeto
Debe ser porque para su lectura o cambio de valor tienen sus correspondientes Methodos
Para ver sus Datas has de usar algo como esto

Code: Select all

   oDlg := QDialog()
  
.../...


   oDlgM    := oDlg:metaObject()
   aValores := Array( oDlgM:propertyCount() )
   //MsgInfo( Len( aValores ) )
   oVarsList := QTableWidget()
   oRightLayout:AddWidget( oVarsList )
   WITH OBJECT oVarsList
      
      :setStyleSheet( "border: 0px solid white;" )
      :setRowCount( Len( aValores ) )
      :setColumnCount( 2 )
      :SetHorizontalHeaderItem( 0, QTableWidgetItem( "Property" ) )
      :SetHorizontalHeaderItem( 1, QTableWidgetItem( "Valor" ) )
      For x = 1 to Len( aValores )   
     
         aValores[ x ] := oDlgM:property( x - 1 ):QMetaProperty()
         :SetItem( x-1, 0, QTableWidgetItem( aValores[ x ]:name() ) )
         uVal := oDlg:property( aValores[ x ]:name() ):QVariant()
         :SetItem( x-1, 1, QTableWidgetItem( uVal:typeToName( uVal:type() ) ) ) 
         // Ya tenemos el nombre, y el tipo de valor que contiene: numérico y string, ahora solo queda obtener el valor
         // Estoy con ello 
     Next x
      
   ENDWITH

 

http://doc.qt.io/qt-4.8/qobject.html#Q_PROPERTY

A ver si tienes mas suerte que yo

[cnavarro]

Juan, segun lo que me dices, no se si he entendido bien lo que necesitabas
Has conseguido obtener las DATAS de un objeto?