Delphi - Modificar el alto de celdas de un Stringgrid

   
Vista:

Modificar el alto de celdas de un Stringgrid

Publicado por Ricardo García (4 intervenciones) el 20/05/2008 17:14:15
Un sauldo a todos en el foro, y recurro a sus conocimientos y a su ayuda para un problema que tengo. Ojala me puedan ayudar.
Tengo un stringgrid, donde estoy mostrando cadenas string bastante amplias de casi 2000 caracteres. Por defecto el stringgrid, en cada celda, solo me muestra una fila, yo aumenté el alto de cada celda para que pueda mostrar en varias filas, pero no da resultado, sigue mostrandome una sola fila, a pesar de que el alto de la celda sí se agranda.
Quisiera saber si alguien conoce una manera para solucionar este problema me pueda colaborar muchas gracias. XD
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Delphi
- Código fuente de Delphi
- Cursos de Delphi
- Temas de Delphi
- Chat de Delphi
información
Códigos de Delphi
- Juego 9 Numeros
- Controlar el escritorio
- Buscaminas

RE:Modificar el alto de celdas de un Stringgrid

Publicado por pacopaz (104 intervenciones) el 27/05/2008 22:36:43
El TStringGrid es una herramienta más poderosa de lo que en un principio parece. Sin embargo, no tiene una propiedad como WordWrap
El poder que menciono viene cuando nos atrevemos a cambiar el valor de la propiedad DefaultDrawing en False.
Luego de eso viene la pelea por 'pintar' el grid.
Esto se hace en el evento OnDrawCell.
Aquí una aproximación a lo que quieres hacer:

procedure TForm1.Grid1(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
State: TGridDrawState);
const
nLINEAS: Integer = 2; //Dos líneas es lo que quieres, pero podrías ponerle más.
var
aLineas: array[1..nLINEAS] of String;
i, nPosX, nPosY: Integer;
oCentrado: TPoint;
begin

for i := 1 to 3 do
begin
//Procedimiento para llenar el array con 3 strings
//Dado que el string de la celda está dado por Grid1.Cells[ACol, ARow]
end;

nPosY := 2 + Rect.Left;

if (gdSelected in State) or (gdFocused in State) then //Para las celdas seleccionadas
begin
Grid1.Canvas.Brush.Color := clWebBeige;
Grid1.Canvas.Brush.Style := bsSolid;
Grid1.Canvas.Pen.Style := psSolid;
Grid1.Canvas.Pen.Width := 3;
Grid1.Canvas.Pen.Color := clDkGray;
Grid1.Canvas.Rectangle(Rect);
Grid1.Canvas.FillRect(rect);
Grid1.Canvas.Font.Color := clWindowText;
Grid1.Canvas.Font := Grid1.Font;
for i := 1 to 3 do
begin
nPosX := ((i - 1) * 17) + 2 + Rect.Top;
Grid1.Canvas.TextOut(nPosX, nPosY, aLineas[i]);
end;
end
else
if State = [gdFixed] then //Para las celdas de tílulo
begin
Grid1.Canvas.Brush.Style := bsSolid;
Grid1.Canvas.Brush.Color := clBtnFace;
Grid1.Canvas.Font.Color := clWindowText;
Grid1.Canvas.Font := Grid1.Font;
Grid1.Canvas.Font.Style := [fsBold];
Grid1.Canvas.FillRect(Rect);
Grid1.Canvas.Pen.Color := clBtnHighlight;
Grid1.Canvas.Rectangle(Rect);
Grid1.Canvas.Pen.Color := clBtnShadow;
Grid1.Canvas.Polyline([point(Rect.Left, Rect.Bottom-1),
point(Rect.Right-1, Rect.Bottom-1),
point(Rect.Right-1, Rect.Top)]);
oCentrado.X :=
Trunc((Rect.Right - Rect.Left - Grid1.Canvas.TextWidth(Grid1.Cells[ACol, ARow])) / 2);
oCentrado.Y :=
Trunc((Rect.Bottom - Rect.Top - Grid1.Canvas.TextHeight(Grid1.Cells[ACol, ARow])) / 2);
Grid1.Canvas.TextOut(Rect.Left + oCentrado.X, Rect.Top + oCentrado.Y,
Grid1.Cells[ACol, ARow]);
end
else //Para las demás celdas
begin
Grid1.Canvas.Brush.Color := clWindow;
Grid1.Canvas.Brush.Style := bsSolid;
Grid1.Canvas.Pen.Style := psSolid;
Grid1.Canvas.Pen.Width := 1;
Grid1.Canvas.Pen.Color := clDkGray;
Grid1.Canvas.Rectangle(Rect);
Grid1.Canvas.FillRect(rect);
Grid1.Canvas.Font.Color := clWindowText;
Grid1.Canvas.Font := Grid1.Font;
for i := 1 to 3 do
begin
nPosX := ((i - 1) * 17) + 2 + Rect.Top;
Grid1.Canvas.TextOut(nPosX, nPosY, aLineas[i]);
end;
end;

end;

No he probado el código, pero bien te puede dar una idea de lo que puedes hacer.
Si te pones a investigar un poco, hayarás, incluso, la forma de insertar imágenes y crearles sus propios eventos de mouse, etc.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar