ImageEn, unit iemview

TIEGetTextExEvent

TIEGetTextExEvent


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.

Position Description
iemtpTop Overrides the text specified for ImageTopText
iemtpInfo Overrides the text specified for ImageInfoText
iemtpBottom Overrides the text specified for ImageBottomText


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;