| Author |
 Topic  |
|
|
wesleybobato
Brazil
367 Posts |
 Posted - Jan 06 2014 : 09:56:11
|
Hello Fabrizio and Nigel'm stressing again the next EnableAdjustOrientation code that is not working like in previous versions to prove I made two applications with one another and with imageEN 5:05 ImageEN 4.1.4
I noticed performance drop in my code because it no longer carries the Sub-Sampled in any way.
eg I use so also
ImageEnVect1.IO.Params.GetThumbnail: = True;
and no way I can even boot from my sub-sampled image files
I use these options since I started using imageEN and only this version it changed no longer carries the sub-sampled
Also note that the Scrool TimageENMView not work when the property align this to the bottom and ScroolBars Horizontal
please need some help with that? I am using the old version of imageEN because of that.
thanks for listening
http://www.4shared.com/zip/AUO2qMbKba/Full_Example.html
or
https://www.dropbox.com/s/xjw50b4z6wweay7/Full%20Example.zip
|
|
|
xequte
39066 Posts |
Posted - Jan 07 2014 : 00:43:51
|
Thanks, we have fixed the GetThumbnail issue for v5.0.6 (ready in February).
I don't understand the scrollbar issue. Can you please explain with an example (or screenshot).
Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
|
 |
|
|
wesleybobato
Brazil
367 Posts |
Posted - Jan 07 2014 : 07:14:38
|
Hello Nigel Thanks, I will renew my membership in the next version
Now for example TImageEnMView ScroolBars = Horizontal does not work when using Scrool Mouse.
nigel you realized that EnableLoadEXIFThumbnails property in ImageEN 4.1.4 works for all images and ImageEN 5.0.5 can not load the sub-sampled correctly for all images? |
|
|
|
w2m
USA
1990 Posts |
Posted - Jan 07 2014 : 10:04:34
|
This can not be verified here. When ScrollBars = ssHorizontal and MouseInteract = [mmiScroll] the scrollbar becomes visible when the total width of the thumbnails exceeds the ClientWidth of TImageEnMView. Scrolling the images also works as expected.
Can you explain your problem better as I can not duplicate what you are trying to say here.
William Miller |
|
|
|
wesleybobato
Brazil
367 Posts |
|
|
wesleybobato
Brazil
367 Posts |
Posted - Jan 07 2014 : 10:39:11
|
Hello Nigel Found another error ImageEN 5.0.5
iexShellThumbnails.HasExplorerThumbnail ('filename')
this function never returns not true any file it results in false? |
|
|
|
w2m
USA
1990 Posts |
Posted - Jan 07 2014 : 10:42:15
|
It looks like you are trying to scroll with the mouse wheel in the movie, because you do not touch the scrollbar.
To make the mouse wheel scroll do this:
procedure TForm1.ImageEnMView1MouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
{ Scroll the selected image to the right }
begin
if ImageEnMView1.SelectedImage <> ImageEnMView1.ImageCount-1 then
ImageEnMView1.SelectedImage := ImageEnMView1.SelectedImage + 1;
end;
procedure TForm1.ImageEnMView1MouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
{ Scroll the selected image to the left }
begin
if ImageEnMView1.SelectedImage <> 0 then
ImageEnMView1.SelectedImage := ImageEnMView1.SelectedImage - 1;
end;
So here I can scroll with the mouse wheel or by clicking on the scrollbar with your demo.
William Miller
Adirondack Software & Graphics
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html |
|
|
|
wesleybobato
Brazil
367 Posts |
Posted - Jan 07 2014 : 10:53:29
|
| Just William'm trying to use the mouse wheel it is a problem with timageenmview? |
|
|
|
w2m
USA
1990 Posts |
Posted - Jan 07 2014 : 11:09:21
|
No... it is not a problem.. Add the code I showed you!!!! YOUR demo works just fine here. But you must add the code:
procedure TForm1.ImageEnMView1MouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
{ Scroll the selected image to the right }
begin
if ImageEnMView1.SelectedImage <> ImageEnMView1.ImageCount-1 then
ImageEnMView1.SelectedImage := ImageEnMView1.SelectedImage + 1;
end;
procedure TForm1.ImageEnMView1MouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
{ Scroll the selected image to the left }
begin
if ImageEnMView1.SelectedImage <> 0 then
ImageEnMView1.SelectedImage := ImageEnMView1.SelectedImage - 1;
end;
William Miller
Adirondack Software & Graphics
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html |
|
|
|
wesleybobato
Brazil
367 Posts |
Posted - Jan 07 2014 : 11:45:21
|
| William ok thank you for your attention. |
|
|
|
w2m
USA
1990 Posts |
Posted - Jan 07 2014 : 11:59:01
|
Wesley,
Does the MouseWheel work now?
William Miller |
|
|
|
wesleybobato
Brazil
367 Posts |
Posted - Jan 07 2014 : 16:56:15
|
sorry for delay my friend
yes william now work correct
thanks for your support and attention |
|
|
|
xequte
39066 Posts |
Posted - Jan 07 2014 : 17:57:11
|
Hi
Also, for v5.0.6 when there is only one column (GridWidth=0) then the mouse wheel can be used for horizontal scrolling
Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
|
|
|
|
wesleybobato
Brazil
367 Posts |
Posted - Jan 08 2014 : 04:58:05
|
Hello Nigel Thanks for your attention
you will also fix the problem of
iexShellThumbnails.HasExplorerThumbnail ('filename') always returns false?
if you check the example of this topic
the EnableLoadEXIFThumbnails the correct ImageEN 4.1.4 works and 5.0.5 works ImageEN different it can not load the sub-sampled
http://www.imageen.com/files/demos/run/InputOutput/EXIF/EXIF.zip
Please try to upload photos of this topic with exif simply does not load the sub-sampled |
|
|
|
xequte
39066 Posts |
Posted - Jan 08 2014 : 14:14:27
|
Hi Wesley
EXIF thumbnail reading has been fixed.
HasExplorerThumbnail works correctly, but you may not understand its purpose. It only returns true if the file is of an extension specified in IEGlobalSettings().MViewExplorerThumbnailExts. I will rename it to make its purpose more obvious, but you should always consider the source code the best form of documentation.
Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
|
|
|
|
wesleybobato
Brazil
367 Posts |
Posted - Jan 09 2014 : 05:50:38
|
Hello Nigel, thank you for your attention to solve our difficulties you note is 1000, a big hug.
good job. |
|
|
|
wesleybobato
Brazil
367 Posts |
Posted - Jan 09 2014 : 06:04:19
|
Nigel, who will be in the next version of imageEN 5.0.6
will be added the option to print the same Windows printing wizard?
because it fills the image to be printed on the entire page.
this feature is most important here in the company because we need to print the same photo print wizard windows.
 |
|
|
|
w2m
USA
1990 Posts |
Posted - Jan 09 2014 : 06:34:35
|
Wesley,
You can use the Windows Printing Wizard like this:
uses ComObj;
procedure TForm1.Print1Click(Sender: TObject);
{ Print image to Windows Printing Wizard. }
var
i: integer;
iFilename: string;
iFiles: OleVariant;
iCommDlg: OleVariant;
iImageEnView: TImageEnView;
begin
Screen.Cursor := crHourGlass;
try
iCommDlg := CreateOleObject('WIA.CommonDialog');
iFiles := CreateOleObject('WIA.Vector');
for i := 0 to PageControl1.PageCount - 1 do
begin
iImageEnView := TImageEnView
(TImageEnView(PageControl1.Pages[i].Controls[0]));
if Assigned(iImageEnView) then
iFilename := iImageEnView.IO.Params.FileName;
iFiles.Add(iFilename);
end;
iCommDlg.ShowPhotoPrintingWizard(iFiles);
finally
Screen.Cursor := crDefault;
end;
end;
William Miller
Adirondack Software & Graphics
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html |
|
|
|
wesleybobato
Brazil
367 Posts |
Posted - Jan 09 2014 : 06:51:08
|
Hello William Thanks for your attention .
I have this code here at work , but I need to do this with ImageEN it may have no print screen the User not interacted with the impression I Do printing by code
looks like I need to be william
Printer.PrinterIndex : = -1, / / default ;
Printer.Orientation : = poLandscape ;
ImgThumbs.MIO.PrintPreviewParams.MarginTop : = 0;
ImgThumbs.MIO.PrintPreviewParams.MarginLeft : = 0;
ImgThumbs.MIO.PrintPreviewParams.MarginRight : = 0;
ImgThumbs.MIO.PrintPreviewParams.MarginBottom : = 0;
ImgThumbs.MIO.PrintPreviewParams.Position : = ppCenter ;
ImgThumbs.MIO.PrintPreviewParams.Size : = ' psFitWindowsToPage ' { psNormal , psFitToPage , psStretchToPage , psSpecifiedSize } ;
ImgThumbs.MIO.PrintPreviewParams.Gamma : = 1;
for I: = 0 to ImgThumbs.ImageCount - 1
begin
Printer.BeginDoc ;
ImgThumbs.MIO.PrintImage (I
Printer.Canvas ,
0,
0,
0,
0,
ievpCenter ,
iehpCenter ,
' psFitWindowsToPage '
0,
0,
1);
Printer.EndDoc ;
end ;
Nigel you can create this option for the next version?
please i beg this option takes much too long I'm asking. |
|
|
|
xequte
39066 Posts |
Posted - Jan 12 2014 : 20:16:58
|
Hi
We'll have an experimental version of psFillPage in the next release.
Note that it will ignore the margins.
Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
|
|
|
|
wesleybobato
Brazil
367 Posts |
Posted - Jan 13 2014 : 08:14:52
|
Oh My God, Many Thanks Nigel, you answered my prayers, I love you my friend, thank you.
Good Work. |
|
|
| |
Topic |
|
Search
Problems GetThumbnail and EnableAdjustOrientation
