uses pngimage;
procedure TForm1.btnLoadPngClick(Sender: TObject);
var
i: Integer;
it: TListItem;
B: TBitmap;
P: TPNGObject;
begin
IBQuery1.First;
for i:= 0 to 30 do
begin
it:= ListView1.Items.Add;
it.ImageIndex:= i;
P:= TPNGObject.Create;
B:= TBitmap.Create;
try
P.Assign(TBlobField(IBQuery1.FieldByName('BANDERA')));
B.Width:= P.Width;
B.Height:= P.Height;
B.PixelFormat:= pf24bit;
P.Draw(B.Canvas, Rect(0, 0, P.Width, P.Height));
ImageList1.Add(B, B);
finally
P.Free;
B.Free;
end;
IBQuery1.Next;
end;
ListView1.LargeImages:= ImageList1;
end;