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

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
Forum membership is Free!  Click Join to sign-up
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 TImageEnMView.AppendImage overload needed		  New Topic  Reply to Topic
Author Previous Topic Topic Next Topic  

PeterPanino

914 Posts
Posted - Feb 28 2024 :  07:50:25  Show Profile  Reply
I need this TImageEnMView.AppendImage overload:

procedure AppendImage(Bitmap: TIEBitmap;
                      DefaultTopText: TIEImageEnMViewDefaultText = iedtNone;
                      DefaultInfoText: TIEImageEnMViewDefaultText = iedtNone;
                      DefaultBottomText: TIEImageEnMViewDefaultText = iedtNone);


This would make appending TIEBitmap images easier.

xequte

38459 Posts
Posted - Feb 28 2024 :  14:23:31  Show Profile  Reply
Hi

You should add it as a helper function to your code:

procedure TImageEnMViewHelper.AppendImage(Bitmap: TIEBitmap;
                                          DefaultTopText: TIEImageEnMViewDefaultText = iedtNone;
                                          DefaultInfoText: TIEImageEnMViewDefaultText = iedtNone;
                                          DefaultBottomText: TIEImageEnMViewDefaultText = iedtNone);
begin
  AppendImage( Bitmap );
  ImageTopText[ Result ]    := IEMDefaultTextToConst(DefaultTopText);
  ImageInfoText[ Result ]   := IEMDefaultTextToConst(DefaultInfoText);
  ImageBottomText[ Result ] := IEMDefaultTextToConst(DefaultBottomText);
end;


Nigel
Xequte Software
www.imageen.com
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
Jump To: