Ver Mensaje Individual
  #8  
Antiguo 04-05-2012
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.

Yo utilizo algo parecido a:
Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  B: TBitmap;
  R: TRect;
begin
  if Column.FieldName = 'CampoDelBitmap' then
  begin
    TDBGrid(Sender).Canvas.FillRect(Rect);
    B:= TBitmap.Create;
    try
      ImageList1.GetBitMap(TDBGrid(Sender).DataSource.DataSet.FieldByName('Opcion').AsInteger + 1, B); 
      B.Width:= Rect.Right - Rect.Left;
      B.Height:=Rect.Bottom - Rect.Top;
      DBGrid1.Canvas.StretchDraw(Rect, B);
    finally
      B.Free;
    end;
    R:= Rect;
    R.Left := R.Left + R.Bottom - R.Top;
    DBGrid1.DefaultDrawColumnCell(R, DataCol, Column, State);
  end;
end;
Permite el usar varias imágenes para distintos valores, pero el código de Casimiro realmente es mucho más simple... (y ya me lo copié )

Saludos.
__________________
Daniel Didriksen

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

Última edición por ecfisa fecha: 04-05-2012 a las 05:29:58.
Responder Con Cita