ImageEn for Delphi and C++ Builder ImageEn for Delphi and C++ Builder

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 How to automatically add a standard bottom text?

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

View 
UserName:
Password:
Format  Bold Italicized Underline  Align Left Centered Align Right  Horizontal Rule  Insert Hyperlink   Browse for an image to attach to your post Browse for a zip to attach to your post Insert Code  Insert Quote Insert List
   
Message 

 

Emoji
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Black Eye [B)]
Frown [:(] Shocked [:0] Angry [:(!] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
PeterPanino Posted - Dec 25 2016 : 14:40:37
When filling a TImageEnMView, for each thumbnail I need to show a standard bottom text with the index number, e.g.: Image 1, Image 2, ...

How can this most efficiently be done? I've tried this, but it does not work at all (no thumbnail bottom text is shown):

procedure TForm2.ImageEnMView1ImageAdded(Sender: TObject; idx: Integer);
begin
  ImageEnMView1.ImageBottomText[idx] := 'Page ' + IntToStr(idx);
end;
4   L A T E S T    R E P L I E S    (Newest First)
PeterPanino Posted - Dec 26 2016 : 07:21:05
Thank Nigel, but I have solved it with:

if Position = iemtpBottom then
xequte Posted - Dec 26 2016 : 02:15:55
Hi

What is your value for DefaultTopText?

http://www.imageen.com/help/TImageEnMView.DefaultTopText.html

Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
PeterPanino Posted - Dec 25 2016 : 15:02:36
I am sorry, this is how it works:

procedure TForm2.ImageEnMView1GetText(Sender: TObject; Index: Integer;
    Position: TIEMTextPos; var Text: WideString);
begin
  if Position = iemtpBottom then
    Text := 'Page ' + IntToStr(Index + 1);
end;
PeterPanino Posted - Dec 25 2016 : 14:50:32
When I use this code:

procedure TForm2.ImageEnMView1GetText(Sender: TObject; Index: Integer;
    Position: TIEMTextPos; var Text: WideString);
begin
  Text := 'Page ' + IntToStr(Index);
  Position := iemtpBottom;
end;


... then not only the bottom text is added but also TWO other texts at the top of the thumbnails! Why? I have specified Position := iemtpBottom;