Delphi dicas

Colocar imagem em campo do dbgrid

Procedure TCACE0030.DBGrid1DrawColumnCell(Sender: TObject;

const Rect: TRect; DataCol: Integer; Column: TColumn;

State: TGridDrawState);

var

vl_icone : ticon;

vl_fixo : TRect;

begin

        inherited;





        vl_fixo := Rect;

        if (Column.Field = ClientDataSet1cone) and (ClientDataSet1NOME_ICONE.AsString <> '') then

        begin

                vl_icone := Ticon.Create;

                vl_icone.Height := 10;

                try

                vl_icone.LoadFromFile(('..Icones'+ClientDataSet1NOME_ICONE.AsString));

                DBGrid1.Canvas.StretchDraw(vl_fixo, vl_icone);

                finally

                vl_icone.Free;

        end;

end;





end;



*** Considerando que minha pasta de icones esta no mesmo nivel da pasta de minha aplicação, e que eu tenho em meu banco de dados o nome do arquivo isso funciona ***

por : Eduardo Teixeira