TImageEnMView.OnGetTextEx

Declaration

property OnGetTextEx: TIEGetTextExEvent;

Description

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

Notes:
- If Style is iemsColumns then OnGetText is also called for the header row. The Index will be -1.
- If default text has not been specified for any thumbnails, or you are increasing the size of the font, you may need to set UpperGap/BottomGap to allow space for the text
- You cannot set the font color if the control is disabled
- A simpler event, OnGetText, can be used if you don't need to customize font styling

Example

// Display the file as bold if it is JPEG
procedure TForm1.IEFolderMViewGetTextEx(Sender: TObject; Index: Integer; Position: TIEMTextPos; var Text: WideString;
                                        var Font : TFont; var BackgroundStyle: TBrushStyle; var BackgroundColor: TColor;
                                        var TruncSide: TIEMTruncSide);
begin
  if ( Position <> iemtpBottom ) or ( Index = -1 ) 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( 256 ), Random( 256 ), Random( 256 ));
  BackgroundStyle := bsSolid;
end;

---