Windows Phone Installer (WPI)

[Gupta]

Razor can u do me a favour?
i can't manage to create something like this post #53 i mean by the scrolling of form when mouse hovers on the tiles.
can u share a example or jst the trick.
I want to use it in my modified version of ur WPI.

Thanks in advance

[mahbod]

Please All INeed This Script Please I Like Use This in my setup

[-PUNISHER-]

Originally Posted by PrinceGupta2000

i mean by the scrolling of form when mouse hovers on the tiles.

Create a function WPIFormMouseMove with condition that if MouseIsMoving then set the Tiles position = Tiles Position - X ///Cursor's X coordinate

Pretty easy stuff if you are able to use these lines of WPI:

  {$EXTERNALSYM MOUSEEVENTF_MOVE}
  MOUSEEVENTF_MOVE            = $0001; { mouse move }
  {$EXTERNALSYM MOUSEEVENTF_ABSOLUTE}
  MOUSEEVENTF_ABSOLUTE        = $8000; { absolute move }

[Gupta]

Originally Posted by -PUNISHER-

Create a function WPIFormMouseMove with condition that if MouseIsMoving then set the Tiles position = Tiles Position - X ///Cursor's X coordinate

Pretty easy stuff if you are able to use these lines of WPI:

  {$EXTERNALSYM MOUSEEVENTF_MOVE}
  MOUSEEVENTF_MOVE            = $0001; { mouse move }
  {$EXTERNALSYM MOUSEEVENTF_ABSOLUTE}
  MOUSEEVENTF_ABSOLUTE        = $8000; { absolute move }

Thanks bt already done

[mahbod]

Please Guy I NEED This Script

[edward99]

I Modified WPI

[L0v3craft]

Originally Posted by edward99

I Modified WPI

Your setup contains spam. When I close it, my browser opens a website... corep.....

[Razor12911]

Originally Posted by edward99

I Modified WPI

What are we supposed to do with this?

[L0v3craft]

Originally Posted by Razor12911

What are we supposed to do with this?

Thanks Razor12911 for this installer ! But I want replace the up arrow to unlock the first screen, with a simple clic of the mouse. Can you say to me what I must edit ?

[Razor12911]

Find this in script

procedure LockKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
make it

procedure LockKeyDown(Sender: TObject);

then find:
OnKeyDown:=@LockKeyDown;

Make this
OnClick:=@LockKeyDown;

Note: This is not tested, I wrote code with Notepad.

[L0v3craft]

Originally Posted by Razor12911

Find this in script

procedure LockKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
make it

procedure LockKeyDown(Sender: TObject);

then find:
OnKeyDown:=@LockKeyDown;

Make this
OnClick:=@LockKeyDown;

Note: This is not tested, I wrote code with Notepad.

I got this

[Razor12911]

remove that line

[L0v3craft]

Originally Posted by Razor12911

remove that line

Perfect

[dregatar]

Hi I'm new here.
Has anyone managed to get the installing percentage working in this script??

[rinaldo]

Originally Posted by dregatar

Hi I'm new here.
Has anyone managed to get the installing percentage working in this script??

there are a million in Threed