Automan

Join Date 03/2001

Resizing png file

Need a little help!!!

Hi folks;

I have a menu system built into my DesktopX theme, and I need a little scripting help?

I am building in Photoshopcs3 all of the png files for certain links and task like Utilities, Media,Office,etc.

Now I make the images at 64 pixels an I am trying to use cod to make the images change size to 72 pixels with " Mouse over".

I need a way to increase the size just like Object dock plus. Increase the size with code so the it will enlarge the image to jump out to the 72 pixels.

Can someone help me on this, I need it to move smoothly to the larger size.

Thanks folks!!!

Automan

Locked Post

Advanced Search

Watch this post

Do not email me updates for this post Email me updates for this post

Successfully updated karma reason!

Code: vbscript
'Called on mouse over object
Sub Object_OnMouseEnter
Object.Resize 72,72
End Sub
'Called when mouse leaves object
Sub Object_OnMouseLeave
Object.Resize 64,64
End Sub

Successfully updated karma reason!

'Called on mouse over object
Sub Object_OnMouseEnter
Object.Resize 72,72
End Sub

'Called when mouse leaves object
Sub Object_OnMouseLeave
Object.Resize 64,64
End Sub

Didnt work for me.

Successfully updated karma reason!

Worked here

How would you make it grow from the center?

Successfully updated karma reason!

Does the object need to have 1 state or two? Does it need to be named object? I know I sound dumb...lol.

Successfully updated karma reason!

No and no.

Successfully updated karma reason!

No and no.

No and no what? 1 or 2 states?

Successfully updated karma reason!

Got it now, 1 state works! Thanx!

Successfully updated karma reason!

Hello again folks;

Looks like we are kind of missing the idea here, as when you use the code here which I have used to resize before; it will move the png image larger and down to the bottom left by a little bit. This would also need to have a - off set to make the image just grow larger.

The one thing I am trying to do is set the image to spring out larger just like Object dock plus.

Object dock moves the image at a smooth pace to the larger size instead of just jumping to the resize, thus forth there has to be away to get the alignment right and also get the smooth slowe spring up action.

Any ideas using a little math maybe?

Thanks for all the help here, if this can be done, then any part of an object on the desktop can be set by vbcode to move in the same fasion.

Thanks again for the brain work. It's really appreciated!

Automan

Successfully updated karma reason!

You won't get the same smoothness as objectdock without a timer. Pretty sure I have something in my code base...here you go.

Code: vbscript
Dim MinW,MaxW
MinW = 64
MaxW = 128
MinH = 64
MaxH = 72
Sub Object_OnScriptEnter
     object.width = MinW
     Object.Height = MinH
End Sub
'Called on mouse over object
Sub Object_OnMouseEnter
	Call Grow
End Sub
'Called when mouse leaves object
Sub Object_OnMouseLeave
	Call Shrink
End Sub
Function Shrink
    object.KillTimer 200
    object.SetTimer 100,10
End Function
Function Grow
     object.KillTimer 100
     object.SetTimer 200,10
End Function
Sub object_ontimer100
     If object.width => MinW Then
          object.width = object.width - 4
          object.height = object.height - 4
					Object.Left = Object.Left + 2
					Object.Top = Object.Top + 2
     Else
          object.KillTimer 100
     End If
End Sub
Sub object_ontimer200
     If object.width <= MaxW Then
          object.width = object.width + 4
          object.height = object.height + 4
			Object.Left = Object.Left - 2
			Object.Top = Object.Top - 2
     Else
          object.KillTimer 200
     End If
End Sub

Successfully updated karma reason!

There's an error MaxW=128 should be MaxW=72.

Successfully updated karma reason!

A little cleaner script.

Code: vbscript
Dim MinW,MaxW
MinW = 64
MaxW = 128
MinH = 64
MaxH = 72
Sub Object_OnScriptEnter
     object.width = MinW
     Object.Height = MinH
End Sub
'Called on mouse over object
Sub Object_OnMouseEnter
	Call Grow
End Sub
'Called when mouse leaves object
Sub Object_OnMouseLeave
	Call Shrink
End Sub
Function Shrink
    object.KillTimer 200
    object.SetTimer 100,10
End Function
Function Grow
     object.KillTimer 100
     object.SetTimer 200,10
End Function
Sub object_ontimer100
     If object.width => MinW Or object.Height=> MinH Then
     			object.Resize object.Width-4,object.Height-4
					object.Move object.Left+2,object.Top+2
     Else
          object.KillTimer 100
     End If
End Sub
Sub object_ontimer200
		If object.Width<=MaxW Or object.Height<=MaxH Then
				object.Resize object.Width+4,object.Height+4
				object.Move object.Left-2,object.Top-2
     Else
          object.KillTimer 200          
     End If
End Sub

Successfully updated karma reason!

i think i have seen that code somewhere before.

lol

Successfully updated karma reason!

Somewhere!
...Where?

Successfully updated karma reason!

Hi folks;

Great job on the code here, I have it working, but a always when you think youn have it perfect you find a change that would make it even better. So here goes.

Most of us have seen the new Impulse Ver.2 and it is slick! My only problem is that I don't want it running in memory all the time. So I turned and looked at my Menu system and presto it hit me.

In the new impulse there is a mouse over event that uses a black bar that when presed it will change to orange. This being said, I decided to mae my menu just like impulse but with out all the goodies thatn it has. Below is a list of what I am trying to do.

1 DesktopX pops open the menu.
2 When your mouse passes over the text name of the object it wii show the "Black Image".
Also I need a call to png "Icon image to make it use the code that was made before on the icon image to grow to the max height or on leave shrink back down to the correct state, This where I get into trouble..How do you call the resize code that is in the Icon to make it 92 as if the mouse was over it and the shrink it back down when the mouse leaves the text and bar

I will post an image of what I'm trying to do in a few minutes.

Anyway if you have seen the new Impulse and move your mouse over the menu like " My Desktop"
The change is rally cool!!!!

DesktopX PopUp
Mouse over = Black then
om Mouse pause over the Icon and the bar will switch to a gold/orange bar and text stays the same color unless you want it to...On click program startsm

I hope all of this has made a little sense, sounds cool anyway.........

Thanks a million guys and gals......

Automn

Automan

Successfully updated karma reason!

BigDogBigFeet

Join Date 12/2005

+366

Have you considered using animation strips instead of script? They might work better for this.

Successfully updated karma reason!

There are always a bunch of ways to do things in DX

Animation strips can work good, so can a timer, its more CPU intensive. In the strip you can control how long things take, and also when to start stop or REVERSE the animation. Im sure i have a tutorial on this somewhere out there if you need one.

Successfully updated karma reason!

It is also much more time consuming

Plus you lose the dock items' customizability.

Successfully updated karma reason!