How to reach a graphic field without using a TDBImage

Mirror

How to reach a graphic field without using a TDBImage (Views: 704)

Problem/Question/Abstract:

How to reach a graphic field without using a TDBImage

Answer:

var
  Pic: TPicture;
begin
  Pic := TPicture.Create;
  dm.tbDeviceTypes.first;
  while not dm.tbDeviceTypes.EOF do
  begin
    Pic.Assign(dm.tbDeviceTypesFreePic);
    ImageList1.AddMasked(Pic.BitMap, ClWhite);
    dm.tbDeviceTypes.next;
  end;
end;

<< Back to main page