ImageEn, unit iexMetaHelpers

TIEMetaListView.OnGetHeadingText

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