Note: You must be registered in order to post a reply. To register, click here. Registration is FREE!
T O P I C R E V I E W
PeterPanino
Posted - Dec 19 2022 : 07:01:21 Using this HACK, I managed to collapse the TIEMetaListView Groups:
type
TMyIEMetaListView = class(TIEMetaListView);
IEMetaListViewImage.Items.BeginUpdate;
try
for var i := 0 to TMyIEMetaListView(IEMetaListViewImage).Groups.Count - 1 do
TMyIEMetaListView(IEMetaListViewImage).Groups[i].State :=
TMyIEMetaListView(IEMetaListViewImage).Groups[i].State + [lgsCollapsed];
finally
IEMetaListViewImage.Items.EndUpdate;
end;
2. Please implement user click on Group headers to expand/collapse a single Group
3. Please mark Headers of Groups containing fields with metadata (e.g., with a specific icon or with an asterisk)
1 L A T E S T R E P L I E S (Newest First)
xequte
Posted - Dec 20 2022 : 00:12:17 Hi
I have added all these features to the latest beta.
Note: You will need to use the OnGetHeadingText event to mark headers...
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;
Search
