TIEMetaListView.OnGetHeadingText

Declaration

property OnGetHeadingText: TIEGetHeadingTextEvent;

Description

Occurs each time a meta-data type (i.e. a group) is added to the control (even if GroupView = False).
It can be used to customize the group heading ("Title"), or optionally skip the meta-data type.

Note: The default titles are specified by:
◼TitleDicom
◼TitleExif
◼TitleGeneral
◼TitleIptc
◼TitlePdf
◼TitleXmp

Examples

procedure TMainForm.IEMetaListGetHeadingText(Sender: TObject; MetaType: TIEMetaType; var Title: string; var Skip: Boolean);
begin
  // Add asterisk to the title if the file contains that type
  if IEContainsMetaData( ImageEnView1.IO.Params, MetaType ) then
    Title := Title + '*';
end;

procedure TMainForm.IEMetaListGetHeadingText(Sender: TObject; MetaType: TIEMetaType; var Title: string; var Skip: Boolean);
begin
  // Skip IPTC for TIFF files
  if ( MetaType = iemIPTC ) and ( ImageEnView1.IO.Params.FileType = ioTIFF ) then
    Skip := True;
end;

See Also

◼IEContainsMetaData

---