How to reach a graphic field without using a TDBImage (Views: 28)
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; |