http://www.qtforum.org

[jnavas]

http://www.qtforum.org/article/37687/qd ... eedit.html

Antonio
tengo pocos minutos en este foro y encontre tres funcionalidades para el GET (FiveWin)

@ CROW(3),060 GET oDate VAR dDate OF oDlg
oDate:setInputMask("00/00/0000") // Asigna Mascara
oDate:setEchoMode(2) // Modo PassWord
oDate:SetText(DTOC(DATE())) // Asigna Valor

Considero que podemos avanzar rapidamente y facilmente con FiveTouch, estoy muy animado con el potencial de esta aplicación, seguire probando-

[jnavas]

Antonio
En minutos logre verificar las propiedades del GET o (QLineEdit)

oGet:setMaxLength(4) Capacidad maxima de datos
oGet:setInputMask("0.00") // Solo Acepta Numero
oGet:setAlignment(2) // Alineación RIGTH
oGet:setAlignment(4) // Centrado
oGet:setFixedSize(300, 20) // Cambiar Tamaño del Control
oGet:setDisabled(.F.) // condicional (Activo o Inactivo) sirve para sustituir el WHEN, revise la QLABEL es similar, para gustos y colores podemos avanzar (solo faltaria definir Qpalette()

// Cambiar color, necesitamos objeto de Paleta o similar Fivewin
QPalette *palette = new QPalette();
palette->setColor(QPalette::Text,Qt::red);
lineEdit->setPalette(*palette);


http://www.codeprogress.com/cpp/librari ... R-fc9yG-xq

[Antonio Linares]

Excelente!

Muchas gracias Juan!

[jnavas]

Antonio
He logrado investigar acerca de las clases QPALETTE,QCOLOR, aun no he podido cambiar el color de los controles
Adjunto programa inspector.prg

Code: Select all

#include "FiveTouch.ch"
/*
// Inspector de la clase QPALETTE,QCOLOR
http://doc.qt.io/qt-4.8/qpalette.html
http://doc.qt.io/qt-4.8/qcolor.html
http://doc.qt.io/qt-4.8/qbrush.html 
*/

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

 

Antonio
En minutos logre verificar las propiedades del GET o (QLineEdit)

oGet:setMaxLength(4) Capacidad maxima de datos
oGet:setInputMask("0.00") // Solo Acepta Numero
oGet:setAlignment(2) // Alineación RIGTH
oGet:setAlignment(4) // Centrado
oGet:setFixedSize(300, 20) // Cambiar Tamaño del Control
oGet:setDisabled(.F.) // condicional (Activo o Inactivo) sirve para sustituir el WHEN, revise la QLABEL es similar, para gustos y colores podemos avanzar (solo faltaria definir Qpalette()

// Cambiar color, necesitamos objeto de Paleta o similar Fivewin
QPalette *palette = new QPalette();
palette->setColor(QPalette::Text,Qt::red);
lineEdit->setPalette(*palette);


http://www.codeprogress.com/cpp/librari ... R-fc9yG-xq