Corroder
Grandmaster Cheater Supreme
 Reputation: 75
Joined: 10 Apr 2015
Posts: 1667
|
 Posted: Tue Jan 29, 2019 3:52 am Post subject: |
|
|
@FreeER : something like this ?
| Code: | f = createForm()
f.Height = 300
f.Width = 300
f.BorderStyle = 'Single'
f.Cursor = -21
img = createImage(f)
img.Top = 10
img.Left = -100
img.Height = 300
img.Width = 300
img.Stretch = true
img.Picture.loadFromStream(findTableFile('horses.png').Stream)
img.Visible = true
Speed = 1
Direction = ''
ImageExpandLeft = 250
ImageBaseLeft = -100
function ImagePop()
if Direction == 'out' then
if img.left >= ImageExpandLeft then
Timer.Enabled = false
else
img.left = img.Left + Speed
end
else --- Direction == 'in'
if img.left <= ImageBaseLeft then
Timer.Enabled = false
else
img.Left = img.Left - Speed
end
end
end
function img2right()
Direction = 'out'
Timer.Enabled = true
end
function img2left()
Direction = 'in'
Timer.Enabled = true
end
Timer = createTimer(f) -- create in Form
Timer.Interval = 40 --- 1/1000 second
Timer.Enabled = false
Timer.OnTimer = ImagePop
f.Show()
img.onMouseEnter = img2right
img.onClick = img2left
|
For who want to try :
- Add a picture file to your ct table as a stream file. And change 'horses.png' with your picture filename.
_________________
Stealing Code From Stolen Code...
And Admit It.. Hmmm....Typically LOL
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
