Ver Mensaje Individual
  #3  
Antiguo 27-05-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Daniel.

Te agrego una opción más a las que te señaló Casimiro.
Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  with TStringGrid(DBGrid1) do
  begin
    DefaultRowHeight := 60; // alto de filas a gusto
    RowHeights[0]    := 25;  // alto de título
  end;
  DBGrid1.Options := DBGrid1.Options - [dgColumnResize]; // columnas fijas
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if ( Column.FieldName = 'GRAPHIC' ) then
    with TPicture.Create do
    try
      Assign( Column.Field );
      DBGrid1.Canvas.StretchDraw( Rect, BitMap );
    finally
      Free;
    end;
end;

Muestra del ejemplo:



Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita