Muchas gracias por la pronta respuesta. libere esos objetos y mejoró
Código Delphi
[-]
procedure TPresupuestoDatoForm.ListaDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var wic: TWICImage;
Stream:TMemoryStream;
DrawState: Integer;
DrawRect: TRect;
begin
if Dm.DetalleADOQuery.RecordCount>0 then
if ( Column.FieldName = 'Imagen' ) then
begin
Stream := TMemoryStream.Create;
TGraphicField(Dm.DetalleADOQuery.FieldByName('Imagen')).SaveToStream(Stream);
Stream.Position := 0;
wic := TWICImage.Create;
wic.LoadFromStream(Stream);
with TPicture.Create do
try
Assign(wic);
Lista.Canvas.StretchDraw(Rect, wic);
finally
wic.free;
Stream.free;
Free;
end;
end;
end;
aun sale el out of memory, te paso la imagen del nuevo mensaje.
https://www.clubdelphi.com/foros/att...1&d=1559596362
Muchas gracias por el apoyo.