How can I read access the thumbnail bottom text in a TImageEnMView when I select a thumbnail?
With the following code, ImageBottomText[idx] gives back an empty string:
procedure TForm1.ImageEnMView1ImageSelect(Sender: TObject; idx: Integer);
begin
ShowMessage(ImageEnMView1.ImageBottomText[idx]);
end;
The thumbnails have been added with these methods (all parameters assigned):
function AppendImage(const FileName: String;
LoadOnDemand : boolean;
DefaultTopText : TIEImageEnMViewDefaultText = iedtNone; // iedtCustom
DefaultInfoText : TIEImageEnMViewDefaultText = iedtNone;
DefaultBottomText : TIEImageEnMViewDefaultText = iedtFilename; // iedtCustom
bSelectIt : Boolean = true): integer;
procedure TForm1.ImageEnMView1GetText(Sender: TObject; Index: Integer; Position: TIEMTextPos; var Text: WideString);
begin
case Position of
iemtpTop: Text := GetTopText(Index)
iemtpBottom: Text := GetBottomText(Index);
end;
end;