Page 1 of 1
http://www.qtforum.org
Posted: Sat Apr 04, 2015 7:56 am
by 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-
Re: http://www.qtforum.org
Posted: Sat Apr 04, 2015 8:28 am
by 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
Re: http://www.qtforum.org
Posted: Sat Apr 04, 2015 9:21 am
by Antonio Linares
Excelente!
Muchas gracias Juan!
Re: http://www.qtforum.org
Posted: Mon Apr 06, 2015 11:57 pm
by 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
jnavas wrote: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