2 replies to this topic

[TiammatMX]

Jóvenes delphineros:

Me encuentro con que estoy rellenando una columna de un TStringGrid con un texto de ésta forma:

delphi

.
.
.
 
         Open;
         while not Eof do
         begin
            Cells[0,iIndiceRen] := Trim(FieldByName('C93_DIETA_STR').AsString);
            RowCount := RowCount + 1;
            iIndiceRen := RowCount - 1;
            Next;
         end;
.
.
.

Lo cual está perfectamente correcto. Al mostrar el TStringGrid en mi forma (imagen adjunta) algunos textos de la primera columna aparecen "cortados" y otros "montados".

¿De qué manera podría darle a la columna extrema izquierda un tamaño suficiente para mostrar EL TEXTO MÁS LARGO por programación?

Por su atención y ayuda, de antemano, gracias.

Attached Files

•  3842_6172c05af9fd7148e1eb9b7760516bb4d22c60c4.bmp   1.48MB   9 downloads

[escafandra]

La API GetTextExtentPoint32 te da la altura y longitud de un texto. Sabiendo esto, o ajustas el tamaño de la columna cada vez que tienes un texto mas largo que los anteriores o analizas las longitudes antes de dar el ancho de columna.


Saludos.

[cadetill]

Gracias escafandra, buscaba ésto para una cosa que tengo en mente. Ahora ya no tengo que buscar jejejeje