TIEMetaListView.ItemInfo

Declaration

property ItemInfo[Item: TListItem]: TIEMetaRecord;

Description

Returns the meta type and record information for the specified list item.

RecIndex is only used by iemIPTC and iemDICOM, for other values it will be 0.

For DataIndex:

Value	Description
iemGeneral	General Tag Constants
iemEXIF	Constants for EXIF Properties
iemIPTC	PhotoShop IPTC Constants
iemDicom	Dicom Tags Supported by ImageEn
iemXMP	Constants for Common XMP Fields
iemPDF	Constants for PDF Properties

Note: This method raises an exception if item is not valid

// Output info on the selected meta item
procedure TMainForm.IEMetaListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
var
  cap, value, rec: string;
  metaInfo: TIEMetaRecord;
begin
  if IEMetaListView1.Selected <> nil then
  begin
    cap      := IEMetaListView1.Selected.Caption;
    value    := IEMetaListView1.ItemValue[ IEMetaListView1.Selected ];
    metaInfo := IEMetaListView1.ItemInfo [ IEMetaListView1.Selected ];

    case metaInfo.MetaType of
      iemGeneral : rec := format( 'General: %d', [ metaInfo.DataIndex ]);
      iemEXIF    : rec := format( 'EXIF: %d', [ metaInfo.DataIndex ]);
      iemIPTC    : rec := format( 'IPTC: %d,%d', [ metaInfo.RecIndex, metaInfo.DataIndex ]);
      iemDicom   : rec := format( 'Dicom: %d,%d', [ metaInfo.RecIndex, metaInfo.DataIndex ]);
      iemXMP     : rec := format( 'XMP: %d', [ metaInfo.DataIndex ]);
      iemPDF     : rec := format( 'PDF: %d', [ metaInfo.DataIndex ]);
      else         rec := '';
    end;

    Caption := Format( '%s (%s): %s', [ cap, rec, value ]);
  end;
end;

TIEMetaListView.ItemInfo