Saiyine
Punto Com

Largo de una cadena en pixels sabiendo la fuente usada para imprimirla

0000-00-00 00:00:00

function LargoTexto(texto : string; f : TFont) : integer;
var
aux : TFont;
begin
        aux:=Screen.ActiveForm.Canvas.font;
        Screen.ActiveForm.Canvas.font:=f;
        result:=Screen.ActiveForm.Canvas.textwidth(texto);
        Screen.ActiveForm.Canvas.font:=aux;
end;

Por ejemplo, se haria LargoTexto('Delphi es bastante mejor que el visual basic',fuente), siendo fuente una variable TFont definida en arial, negrita, 5 puntos, etc

Rollos antiguos

2006-02-21 20:07:00 - Justificar el texto de un memo, listbox, etc.

0000-00-00 00:00:00 - Filtrar entrada en los edit.

0000-00-00 00:00:00 - Hacer un mismo codigo para varios controles.

0000-00-00 00:00:00 - Hacer un edit con filtro, por ejemplo, que solo acepte numeros hexadecimales..

0000-00-00 00:00:00 - Filtrar la entrada de los edit.

Saiyine

Selfie of meHi! Welcome to Saiyine Punto Com where I talk about anything that goes through my mind!

Puedo prometer y prometo que a la mayor brevedad aquí irá un menú o algo asín.