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
 Does TimageenView (to view PDF) have "autofocus" ?

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
Stalker4 Posted - Jul 18 2022 : 06:12:28
Hi,

ImageEn 10.3

There is TimageenView in mode viewing PDF files

TImageEnView.PdfViewer.Enabled := True;
TImageEnView.PdfViewer.ShowAllPages := True;
TImageEnView.MouseWheelParams.Action := iemwVScroll;

I open a multi -page PDF in TimageenView.
In order for me to scroll out his pages with the mouse, I need to first pass him out of the focus (that is, choose it with the left button).

Question: Is there an opportunity that PDF could lean if there is simply a mouse cursor above it, i.e. without the transfer of the focus to him ?
3   L A T E S T    R E P L I E S    (Newest First)
xequte Posted - Jul 19 2022 : 20:35:32
Hi

No ImageEn follows the Windows standards in this regard. Your solution should work fine.

Nigel
Xequte Software
www.imageen.com
Stalker4 Posted - Jul 19 2022 : 02:48:43
Honestly, I did not quite understand how your code will help me, but how to get around this problem I found:

var
  FOldControl :TWinControl;

procedure TForm1.EnViewMouseEnter(Sender: TObject);
begin
 FOldControl := ActiveControl;
 if ImageEnView1.CanFocus then ImageEnView1.SetFocus;
end; 

procedure TForm1.ImageEnViewMouseLeave(Sender: TObject);
begin
 if Assigned(FOldControl) and FOldControl.CanFocus then
   FOldControl.SetFocus;
end;

I just thought that "TImageEnView" has a property for such behavior.
xequte Posted - Jul 18 2022 : 16:48:24
Hi

That is really a windows control issue. You want the control to act as though it has focus without being the focused control. You would need to capture the mousewheel messages at the level of the form and then reposition the control:

const
  Wheel_Scroll_Amount = 8;
  
newPos := ImageEnView1.ViewY + WheelDirection * Wheel_Scroll_Amount;
ImageEnView1.ViewY := nPos;


Nigel
Xequte Software
www.imageen.com