Mi nuevo Componente TEditDefault
 

Pues eso acabo de subir al Ftp del Club mi nuevo Componente TeditDefault, en el Zip eSta el componente y una breve descripción de las propiedades, aqui os pongo la cabecera del mismo

Código Delphi [-]
//****************************************************************************************************  **********
//  EditDefault                                          06/02/2011
//
//
//  Este es un componente tEdit, con formatos predefinidos, control de teclas y texto por defecto, color del entrada
//  y salida del foco, etc
//
//--------------------------------------------------------------------------------------------------------------
// idea Original de J.L.G.T. aunque como siempre he copiado código de otros compañeros, como es el caso del
//  xmail que es de una idea de Eduarcol, la función de la ip que es bajada de internet, más abajo pongo la página
//
// Como todos mis componentes, puedes usarlo gratuitamente sin restricciones de ningún tipo
//--------------------------------------------------------------------------------------------------------------
//
// Propiedades
//
//  FTypes:           TTypes;     //Tipos de datos en el Edit
//Los tipos son
//  ==========================================
//    xText            //Tipo Texto sin mascara
//    xNumber          //Tipo Integer sin mascara
//    xNumberFormat    //Tipo Integer mascara    ###,###,##0              0
//    Xmoney           //Tipo Real mascara     $ ###,###,##0.00         $ 0.00
//    xReal            //Tipo Real mascara       ###,###,##0.00           0.00
//    xDate            //Tipo Date mascara             dd/mm/yy       12/12/00
//    xTime            //Tipo Time mascara             hh:mm          12:20
//    xEmail           //Tipo Text sin mascara
//    xPhone           //Tipo Text mascara       (000) 000 000
//    xIp              //Tipo Text sin mascara
//    xPor             //Tipo Text mascara    ###,###,##0.00%        Porcentajes
//  ==========================================
//  FTextDefault:     String;     //Texto por defecto
//  FMask:            String;     //Mascara según el tipo
//  FTextWithMask:    String;     //Texto Enmascarado
//  FMyNumber:        Integer;    //Valor integer del Text si Types es xNumber
//  FMyReal:          Real;       //Valor Real del Text  si Types es xReal
//  FMyDate:          TDate;      //Valor Date del Text  si Types es xDate
//  FMyTime:          TTime;      //Valor Time del Text  si Types es xTime
//  FDefaultSystem:   Boolean;    //USa texto por defecto, Ejemplo xFecha= now
//  FColorOn:         Tcolor;     //Color al entrar en el  componente, al salir
//                                DEvuelve el color por el de la propiedad ColorOff
//  FColorOff:        Tcolor;     //Color al salir del componente
//  FKeysDefault:     Boolean;    //Usar teclas pre establecidas según Types por defecto
//                                Teclas  UP (Aumentar) an DOWN (disminuir)
//  FDifNumber:       Integer;    //PAra aumentos y disminución de xNumber,xNumberFormat, xDate (día), xTime (minutos)
//  FDifReal:         Real;       //Para aumentos y dismuinuciones de xReal,xPor  (en ambos los decimales)             -Limite maximo 100
//  FAutoRefillx:     Boolean;    //Al entrar si no tiene valor, da un valor por defecto por ejemplo en xdate,xtime sería now
//
//****************************************************************************************************  ***********

De nuevo, muchas gracias por tu aportación José Luis.

Un Saludo.

Gracias Marcos Subido hoy al FTP el mismo componente para DB con nombre DbEditDefault

Se agradece de nuevo el aporte José Luis.

Tenemos pendiente completar el paquete de componentes del Club y crear algunas Demos.
A ver si entre todos tenemos algo de tiempo y añadimos los nuevos aportes. ;)

Un saludo.

Eres un crack.

Sí que es verdad que se agradecería un pequeño ejemplo de uso para poder ver su potencial. Tanto este como el panel que publicaste.

Saludos

En cuanto tenga un hueco os lo pongo

Hola compañeros, 2 cosas, detectado un pequeño bug, que ya esta corregido en el EditDefault y en el DbEditDefault, subi al Ftp el Archivo con las modificaciones es 'editdefault y Dbeditdefault corregidos.zip', ruego a los moderadores borren los anteriores archivos.

También he subido al mismo FTP la demo del NewPanelDB y los componentes anteriormente mencionados. espero este clara la demo, el nombre de la misma es
'MiDemoCompos.zip' la ruta es C:\midemocompos\ para usar la base de datos actual.

Cualquier duda no dudéis en preguntarme

Modificado y eliminadas versiones antiguas:
* Componentes EditDefault y DBEditDefault
* Demos de los componentes EditDefault y DBEditDefault

He cambiado los nombres a los ficheros para que sean más fáciles de encontrar (asociar) si dentro de un tiempo alguien los busca por nombre.
* editdefault y Dbeditdefault.zip
* Demo_EditDefault_DBEditDefault.zip

¡¡¡Estupendo y gracias!!! :)

Muchas gracias Neftali

Pues muchas gracias José Luis Garcí por tan estupenda aportación...;):D.
Ojalá muchos podamos hacer lo mismo que tú haces...;)
Saludos....:)

Que va rgstuamigo, muchísimos saben más que yo, yo aun mi pierdo con algunos conceptos, aun me encuentro preparando código en dbase IV o Clipper o Turbo c, y tengo que deshacer la mitad del código. No hablemos de bases de datos, sql, transiosiones, etc. y en cuanto a El tema de la OOP, pues sigue sonando me a chino muchos conceptos.

Después esta el código de los compañeros, entra depresión al verlo, se supone que debería entenderlo, al final y al cabo estamos programando en el mismo lenguaje, aveces pienso que realmente están engañandome :D:D:D yo programo en ingles y ellos en Ruso :eek:.

Me gustaría Comentar una cosa, acabo de recibir un email en cuanto al componente TDbEditDefault, acusándome de plagio sobre otro componente (no da el nombre), me gustaría contestarle, que si se diese el caso de similitudes, entre este y otro componente, aseguro que no tenia conocimientos de ello, creía que esta era una idea original, ya que no lo he visto en ninguno de los componentes que tengo y he probado, tampoco se, a que se refiere ya que hay trozos de código de otros compañeros y lo especifico en mi código. Yo nunca he pretendido apropiarme del código de nadie, al igual que otros compañeros aprovecho el foro para aprender y avanzar y aporto lo que puedo, que puede no ser mucho, pero es lo que puedo.

La verdad es que si alguien conoce un componente similar a este, ruego por favor me lo indique y retirare el componente, ahora estoy frustrado, ya que creia haber creado un componente de cierta utilidad, llevo tiempo ideandolo y reuniendo ideas para el mismo y la verdad un email con el siguiente texto decepciona.

sin remite ni mas texto. la verdad no se pensar, si es verdad que es parecido a otro componente pido disculpas, aunque aseguro, que no lo he copiado.

Bueno, lo lógico es que la persona que ha enviado el Mail te hubiera dicho qué componente es el que has plagiado (suponiendo que lo hubieras hecho).

Al menos para poder acceder a él y comprobar lo que dice.
Con un mensaje como el que te han enviado, yo no le daría más importancia.

Opino igual que Neftalí, ese mensaje no sirve para nada. Tendría que enviarte el código del otro componente, la licencia que tiene, etc. y dar su nombre, que eso de ocultarse detrás de la pantalla no está muy bien cuando se está acusando.

Al igual que me mandaron el mensaje al email con el texto del plagio, supongo que la misma persona me ha mandado un email, pidiendo disculpas, que se había confundido con otro componente, por el nombre.

quiero exponer, que en primer lugar no tengo nada que disculpar, pero si que el que quiera que sea, haga el favor la próxima ves de verificar y decir las cosas en el foro, ya que no hay por que ocultarse. En segundo lugar, el componente en un principio se llamaba EditPorDefecto, ya que para mi esta es una de sus principales características, pero por mantener un poco el estándar para todo el mundo, termino llamándose EditDefault.

Me gustaría saber de los que lo hayan probado, que les ha parecido y si han encontrado fallos, etc. Yo sólo lo he probado en mi delphi 2010, en principio debería de poder usarse en otras versiones anteriores.

Pues hay que tener mucho cuidado antes de denunciar cualquier cosa, hay que estar totalmente seguro. Pongo un ejemplo macabro, pero por desgracia es totalmente real, en algunos países de África y Asia son ahorcadas las personas homosexuales, así que puede ocurrir esto:

-¿Sabes que Fulanito es homosexual?
-Denunciaré a Fulanito, que me han dicho que es homosexual.
-Fulanito es detenido y ahorcado
-¿Te dije que Menganito es homosexual?
-¿Menganito?, me dijiste Fulanito.
-Me confundí de nombre.

Estas cosas pasan, hoy en día, en pleno siglo XXI

Pongamos una nota humor, Menos mal que no me llamo ni Fulanito ni Menganito.

Consulta luis
 

Esto no corre en delphi 7?