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
 Photoshop hand tool

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
pierrotsc Posted - Feb 11 2019 : 12:47:40
How and where would you code to create the photoshop behavior that if you hold the space bar, you are able to use the miscroll mouse interact ?

Thanks
11   L A T E S T    R E P L I E S    (Newest First)
pierrotsc Posted - Feb 15 2019 : 09:54:38
Got it to work now...Thanks for all the adice. awesome forum.
pierrotsc Posted - Feb 15 2019 : 09:52:11
I think the issue is that the amouseintecat does not keep the last tool. let me look into that.
pierrotsc Posted - Feb 15 2019 : 09:28:25
Nope, still keep the miscroll, does not revert to miselect if that was the last command selected.
xequte Posted - Feb 14 2019 : 02:48:26
Hi

Looks like in KeyUp you should add:

ImageEnView1.MouseInteract := AMouseInteract;

Nigel
Xequte Software
www.imageen.com
pierrotsc Posted - Feb 13 2019 : 12:10:28
Are you using a better way ? It is not working for me. when i release the space bat, the miscroll is still selected.
TonyAntonio Posted - Feb 13 2019 : 12:08:08
Thanks for the tip, fellas! I didn't know that there was more than one way to accomplish this.
pierrotsc Posted - Feb 12 2019 : 11:41:27
Thanks Bill. When i release the space bar, the miscroll is still selected as i can move the image around although i had the miselectcircle selected previously. I setup the code like you did. Maybe something should be in the onkeyup event ?
Thanks
w2m Posted - Feb 12 2019 : 11:02:17
Try this:
public
    { Public declarations }
    AMouseInteract: TIEMouseInteract;

procedure TForm1.ImageEnView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  AMouseInteract := ImageEnView1.MouseInteract;
  if HiWord(GetKeyState(vk_space)) <> 0 then
    ImageEnView1.MouseInteract := [miScroll]
  else
    ImageEnView1.MouseInteract := AMouseInteract;
end;
Define AMouseInteract as a public var and set AMouseInteract to the ImageEnView1.MouseInteract in the methods where you set the mouseinteract:
procedure TForm1.SelectRect1Click(Sender: TObject);
begin
  ImageEnView1.MouseInteract := [miSelect];
  AMouseInteract := ImageEnView1.MouseInteract;
end;

procedure TForm1.SelectEllipse1Click(Sender: TObject);
begin
  ImageEnView1.MouseInteract := [miSelectCircle];
  AMouseInteract := ImageEnView1.MouseInteract;
end;

Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development
pierrotsc Posted - Feb 12 2019 : 10:14:32
Right now, i have that in the onkeydown event
if HiWord(GetKeyState(vk_space)) <> 0 then
imageenview.MouseInteract := [miScroll]

that works but when i release the space bar, i would like to have the previous mouseinteract back. is taht possible ?
pierrotsc Posted - Feb 12 2019 : 08:37:07
Yes, that is what I meant. just wanted to know what to write in the keydown event.
xequte Posted - Feb 11 2019 : 19:14:01
Hi

There is no built-in functionality for that, but you might be able to achieve it using the KeyDown and KeyUp events.

Nigel
Xequte Software
www.imageen.com