Declaration

type TIEGetTextExEvent = procedure(Sender: TObject; Index: integer; Position : TIEMTextPos; var Text: WideString;
                                   Font : TFont; var BackgroundStyle: TBrushStyle; var BackgroundColor: TColor;
                                   var TruncSide: TIEMTruncSide) of object;

Description

Occurs before text is output when drawing a thumbnail allowing you to insert or modify the displayed text or change its formatting.


Note:
◼Ensure that you have set UpperGap/BottomGap to allow space for the text
◼Setting Text only modifies the text that is displayed, not the value in ImageTopText/ImageInfoText/ImageBottomText
◼Font.Color cannot be overriden for selected or disabled frames

Example

// Display the file as bold if it is JPEG
procedure TForm1.IEFolderMViewGetTextEx(Sender: TObject; Index: Integer; Position: TIEMTextPos; var Text: WideString;
                                        Font : TFont; var BackgroundStyle: TBrushStyle; var BackgroundColor: TColor;
                                        var TruncSide: TIEMTruncSide);
begin
  if Position <> iemtpBottom then
    exit;
  sFileExt := ExtractFileExt( Text );
  if IEExtToFileFormat( sFileExt ) = ioJPEG then
    Font.Style := [fsBold]
  else
    Font.Style := [];
end;

// Give text on every thumb a random background color
procedure TForm1.IEFolderMViewGetTextEx(Sender: TObject; Index: Integer; Position: TIEMTextPos; var Text: WideString;
                                        Font : TFont; var BackgroundStyle: TBrushStyle; var BackgroundColor: TColor;
                                        var TruncSide: TIEMTruncSide);
begin
  BackgroundColor := RGB(Random(255), Random(255), Random(255));
  BackgroundStyle := bsSolid;
end;

---