Ver Mensaje Individual
  #3  
Antiguo 10-07-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola mjjj, según lo que te entiendo es que quieres que en tus celdas se permita que el contenido se vea en varías lineas, puedes hacerlo utilizando el evento OnDrawCell de tu StringGrid, la función que te permite dar formato a un texto es DrawText, así quedaría tu codigo.

Código Delphi [-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
 Celda   : String;
begin
 Celda := StringGrid1.Cells[ACol,ARow];
 DrawText(StringGrid1.Canvas.Handle,PChar(Celda), StrLen(PChar(Celda)),Rect,DT_WORDBREAK);
end;

donde DT_WORDBREAK es el formato, que una vez que el texto llega al tamaño de tu Rect, te lo corta y lo que queda te pone en otra línea.

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita