Ver Mensaje Individual
  #3  
Antiguo 20-06-2006
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
Muchisimas Gracias BlueSteel, tambien lo iba a necesitar para un dbgrid, ahora ya lo tengo , gracias.

Estube buscando y encontre este codigo en el rinconcito de delphi y me ha funcionado como yo queria.

Código Delphi [-]
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
   Grid    : TStringGrid;
   Texto   : String;
begin
   Grid := TStringGrid(Sender);
   IF (ARow < Grid.FixedRows) or (ACol < Grid.FixedCols) THEN
     Grid.Canvas.Brush.Color := clBtnFace
   else
    Grid.Canvas.Brush.Color := clWhite;
   Grid.Canvas.FillRect(Rect);
   Texto := Grid.Cells[ACol,ARow];
   DrawText( Grid.Canvas.Handle,PChar(Texto),
             StrLen(PChar(Texto)),Rect,DT_WORDBREAK);
end;
....
procedure TForm1.FormCreate(Sender: TObject);
begin
   StringGrid1.Cells[2,1] := 'Ejemplo de celdas multilineas'+#13+
                                    'Example of multiline cells';
   StringGrid1.Options:= StringGrid1.Options+[goRowSizing,goColSizing];
end;

Aqui la dirección http://www.rinconcitodelphi.com/trucos/Compo16.htm
__________________
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