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
 Thumbnail Strecth on Viewer
 New Topic  Reply to Topic
Author Previous Topic Topic Next Topic  

wesleybobato

Brazil
367 Posts

Posted - Oct 25 2012 :  13:54:12  Show Profile  Reply
Hello would like to know if it is possible to Fill the entire space of the Thumbnail of the image Loaded as always is a margin I'd like the loaded image takes up all the space of the Thumbnail
Thanks for reading and responding.

w2m

USA
1990 Posts

Posted - Oct 25 2012 :  15:27:25  Show Profile  Reply
Set the ImageEnMView1.Style to iemsFlat and align ImageEnMView = alLeft; Then add a TSplitter on the right side of the ImageEnMview.

Then write:
procedure TForm1.Splitter1Moved(Sender: TObject);
begin
  // resize the thumbnails and allow room for selection to be fully visible
  ImageEnMView1.ThumbWidth := ImageEnMView1.ClientWidth - (ImageEnMView1.HorizBorder * 2);
  ImageEnMView1.ThumbHeight := ImageEnMView1.ClientWidth - (ImageEnMView1.HorizBorder * 2);
  ImageEnMView1.Update;
  if ImageEnMView1.SelectedImage <> -1 then
    // Keep selected image visible
    ImageEnMView1.DisplayImageAt(ImageEnMView1.SelectedImage, 0, ImageEnMView1.SelectedImage);
end;

The thumbnail will fill the entire ImageEnMView client area minus an adjustment for the HorizBorder. When you move the splitter then ImageEnMView resizes itself so you can adjust the width of the thumbnails baised on the on the ImageEnMView clientwidth.

Stretched Small

408.3 KB

Stretched Medium

533.23 KB

In this example the splitter is colored an ugly black so it is easy to see.
William Miller
Adirondack Software & Graphics
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html
Go to Top of Page

wesleybobato

Brazil
367 Posts

Posted - Oct 26 2012 :  05:13:49  Show Profile  Reply
Thank you very much for your help.
I put a sample image with the Thumbnail of Google Picasa Realizes that it fills the entire space of the Thumbnail does not Get equal Edge the TImageEnMView is possible I make the Thumbnail not deiche border space and be equal the thumbnail google picasa.
Thanks for reading and Responding.

Go to Top of Page

wesleybobato

Brazil
367 Posts

Posted - Oct 26 2012 :  05:29:18  Show Profile  Reply
I found an example in the Page Below.
http://www.imageen.com/info/index.html
It is possible you send us this example to study.
Because the Thumbnail this equal google picasa oculpando the whole space.
Thanks for reading and Responding.


Go to Top of Page

xequte

39141 Posts

Posted - Oct 27 2012 :  02:40:20  Show Profile  Reply
Hi

There is not an easy way to do this on-the-fly, but it could be a good enhancement for a later update.

Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
Go to Top of Page

wesleybobato

Brazil
367 Posts

Posted - Nov 06 2012 :  03:50:59  Show Profile  Reply
Hello thank you very much for your Reply I will Wait for your next update an option to do this.
a hug.
Go to Top of Page

wesleybobato

Brazil
367 Posts

Posted - Mar 25 2013 :  15:57:14  Show Profile  Reply
Hello Bill is Possible you help me again.
I would like to Deichar TImageEnMView and TSplitter Aligned to Top TImageENView and aligned to the client would like the code to Work Properly since I'm not getting.

Thank you for your attention.
Go to Top of Page

xequte

39141 Posts

Posted - Mar 25 2013 :  20:25:37  Show Profile  Reply
Sorry Wesley,

Can you explain that in more detail...

Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
Go to Top of Page

wesleybobato

Brazil
367 Posts

Posted - Mar 26 2013 :  05:23:46  Show Profile  Reply
Hello Nigel please check the attached examples in DropBox
Could you help me please thank you nigel.

https://www.dropbox.com/s/xtr7yw59h09b2nx/Resize.zip
Go to Top of Page

w2m

USA
1990 Posts

Posted - Mar 26 2013 :  07:58:56  Show Profile  Reply
See if this gives to the result you are looking for:
procedure TForm6.Splitter1Moved(Sender: TObject);
begin
  // resize the thumbnails and allow room for selection to be fully visible
  if ImageEnMView1.ThumbWidth < ImageEnMView1.ClientHeight then
    ImageEnMView1.ThumbWidth := (ImageEnMView1.ClientHeight - (ImageEnMView1.HorizBorder * 2))
  else
    ImageEnMView1.ThumbWidth := ImageEnMView1.ClientHeight - (ImageEnMView1.VertBorder * 2) div 3;
  ImageEnMView1.ThumbHeight := ImageEnMView1.ClientHeight - (ImageEnMView1.VertBorder * 2);
  ImageEnMView1.Update;
  if ImageEnMView1.SelectedImage <> -1 then
    // Keep selected image visible
    ImageEnMView1.DisplayImageAt(ImageEnMView1.SelectedImage, 0, ImageEnMView1.SelectedImage);
end;



342.65 KB
William Miller
Adirondack Software & Graphics
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html
Go to Top of Page

wesleybobato

Brazil
367 Posts

Posted - Mar 26 2013 :  10:42:55  Show Profile  Reply
Thank You Willian.
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
Jump To: