Calcular tamaño de controles
Publicado por Daniel (11 intervenciones) el 03/10/2005 23:56:16
Como estan?
Mi inquietud es la siguiente, deseo saber como puedo calcular el ancho de un TextBox dependiendo el tamaño del campo al cual esta enlazado y si el tamaño del campo pasa de los 50 caracteres el control (editbox) tendra un ancho limite y debera crecer a lo alto. Es muy parecido a lo que pasa cuando se arrastran los campos del DataEnvironment al Form. Tengo este codigo pero no es muy preciso y solo lo hace a lo ancho.
**************************
loTObjeto = PADC("", FSIZE(ALLTRIM(loCamposFijos(I,1))) + 3, "O") &&Relleno una variable con el tamaño del campo
ThisForm.&loObjeto..Width = TXTWIDTH(loTObjeto,"Tahoma",8) * FONTMETRIC(6,"Tahoma",8) &&Calculo el ancho del campo, supuestamente
desde ya agradesco sus comentarios.
Mi inquietud es la siguiente, deseo saber como puedo calcular el ancho de un TextBox dependiendo el tamaño del campo al cual esta enlazado y si el tamaño del campo pasa de los 50 caracteres el control (editbox) tendra un ancho limite y debera crecer a lo alto. Es muy parecido a lo que pasa cuando se arrastran los campos del DataEnvironment al Form. Tengo este codigo pero no es muy preciso y solo lo hace a lo ancho.
**************************
loTObjeto = PADC("", FSIZE(ALLTRIM(loCamposFijos(I,1))) + 3, "O") &&Relleno una variable con el tamaño del campo
ThisForm.&loObjeto..Width = TXTWIDTH(loTObjeto,"Tahoma",8) * FONTMETRIC(6,"Tahoma",8) &&Calculo el ancho del campo, supuestamente
desde ya agradesco sus comentarios.
Valora esta pregunta
0