![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
|||
|
|||
|
En el evento "OnDrawColumnCell" de la grilla (DBGrid) escribe más o menos lo que sigue:
Código:
procedure TForm1.DBGrid1DrawColumnCell( Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var P: TPicture; begin P := TPicture.Create; try with TDBGrid(Sender) do // En la linea que sigue reemplaza "GRAPHIC" por tu nombre de campo if not (gdFixed in State) and (UpperCase(Column.FieldName) = 'GRAPHIC') then begin Canvas.FillRect(Rect); P.Assign(Column.Field); if P.Graphic <> nil then Canvas.StretchDraw(Rect, P.Graphic) end; finally P.Free; end; |
|
#2
|
|||
|
|||
|
Gracias Frudolph, lo probaré y ya comentaré,
|
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|