FiveTech Support Forums

#include "FiveTouch.ch"
/*
// Inspector de la clase QPALETTE,QCOLOR
<!-- m --><a class="postlink" href="http://doc.qt.io/qt-4.8/qpalette.html">http://doc.qt.io/qt-4.8/qpalette.html</a><!-- m -->
<!-- m --><a class="postlink" href="http://doc.qt.io/qt-4.8/qcolor.html">http://doc.qt.io/qt-4.8/qcolor.html</a><!-- m -->
<!-- m --><a class="postlink" href="http://doc.qt.io/qt-4.8/qbrush.html&nbsp;">http://doc.qt.io/qt-4.8/qbrush.html&nbsp;</a><!-- m -->
*/

function Main()
LOCAL aBtnText:={"Palette","Brush","Color","Button ","Salir"}
LOCAL aBtn :=ARRAY(LEN(aBtnText))
LOCAL oPalette:=QPalette() 

PRIVATE oDlgBrw,oBrw

DEFINE DIALOG oDlgBrw TITLE "Inspector" ;
SIZE 460, 600   

@ CROW(1), 1 BUTTON aBtn[1] PROMPT aBtnText[1] OF oDlgBrw ;
ACTION FT_INSPECT(oPalette)

@ CROW(2), 1 BUTTON aBtn[2] PROMPT aBtnText[2] OF oDlgBrw ;
ACTION FT_INSPECT(oPalette:TEXT)

@ CROW(3), 1 BUTTON aBtn[3] PROMPT aBtnText[3] OF oDlgBrw ;
ACTION FT_INSPECT(oPalette:TEXT:COLOR)

@ CROW(4), 1 BUTTON aBtn[4] PROMPT aBtnText[4] OF oDlgBrw ;
ACTION FT_INSPECT(oPalette:BUTTON)

@ CROW(5), 1 BUTTON aBtn[5] PROMPT aBtnText[5] OF oDlgBrw ;
ACTION oDlgBrw:end()

AEVAL(aBtn,{|o,n| o:setFixedSize(130,24) })

ACTIVATE DIALOG oDlgBrw CENTERED 

RETURN NIL

FUNCTION BCOL(nCol)
RETURN 81*(nCol-1)+10   


FUNCTION CROW(nRow)
RETURN 30*(nRow-1)+20   


FUNCTION FT_INSPECT(oObj)

LOCAL aMetodos:=ASORT(__objGetMethodList( oObj )) // Lectura de Metodos

ViewArray(aMetodos,2,oObj)

RETURN NIL

function VIEWARRAY(aData,nCol,oObj)
LOCAL I,U
local oDlg := QDialog()
local oLayout := QVBoxLayout()
local oBrw := QTableView( oDlg )
local oModel := QStandardItemModel( LEN(aData), nCol, oDlg )

oModel:SetHorizontalHeaderItem( 0, QStandardItem( "Header1" ) )
oModel:SetHorizontalHeaderItem( 1, QStandardItem( "Header2" ) )

FOR I=1 TO LEN(aData)

  IF ValType(aData[I])="A" .AND. LEN(aData[I])>1
     FOR U=1 TO LEN(aData[I])
       oModel:SetItem( I-1, U-1, QStandardItem( aData[I,U] ) )
     NEXT U
  ELSE
    oModel:SetItem( I-1, 0, QStandardItem( aData[I] ) )
    oModel:SetItem( I-1, 1, QStandardItem( STR(I) ) )
  ENDIF

NEXT I

oDlg:SetLayout( oLayout )
oBrw:SetModel( oModel )
oLayout:AddWidget( oBrw )

oDlg:SetWindowTitle( "Inspector, Clase "+oObj:ClassName() )
oDlg:Resize( 500, 400 ) 
oDlg:Center()
oDlg:Exec()

return nil