AylinCE Grandmaster Cheater Supreme
Reputation: 37
Joined: 16 Feb 2017 Posts: 1531
|
Posted: Sun Sep 13, 2020 5:19 am Post subject: |
|
|
Here is a code that meets all effect.
Add this code to your project.
| Code: | ---------- Panel Effect -----------
function panelClickEffect(item2, fsize, text, thint)
local item2 = item2
local color1="0xff8f00"
item2.BevelColor=color1
item2.Font.Size=fsize item2.BevelInner="bvRaised" item2.BevelWidth=3 item2.Font.Color="0x000000"
item2.Font.Style="fsBold" item2.Hint=thint item2.ShowHint=true item2.OptimalFill=true
item2.Font.Name="Georgia" item2.Cursor=-21 item2.Color="0xffff00"
item2.caption = text
item2.OnMouseMove=function() item2.BevelColor="0x00ffff" end
item2.OnMouseLeave=function() item2.BevelColor=color1 end
item2.OnMouseDown=function() item2.Color="0x00ffff" end
item2.OnMouseUp=function() item2.Color="0xffff00" end
end |
And edit the control below to use it.
| Code: | ----------- Effect Control ---
panelClickEffect(CETrainer.CEPanel1, 8, "Click me! (pnl1)", "Please click me. (pnl1)")
--CETrainer or UDF1 or YouTrainerName? |
Here is a use case;
| Code: | if f then f.destroy() end
f=createForm(true)
f.Position=poDesktopCenter
local p1=createPanel(f) p1.Height=40 p1.Width=130 p1.Left=20 p1.Top=20
local p2=createPanel(f) p2.Height=40 p2.Width=130 p2.Left=170 p2.Top=20
local p3=createPanel(f) p3.Height=40 p3.Width=130 p3.Left=20 p3.Top=80
local p4=createPanel(f) p4.Height=40 p4.Width=130 p4.Left=170 p4.Top=80
---------- Panel Effect -----------
function panelClickEffect(item2, fsize, text, thint)
local item2 = item2
local color1="0xff8f00"
item2.BevelColor=color1
item2.Font.Size=fsize item2.BevelInner="bvRaised" item2.BevelWidth=3 item2.Font.Color="0x000000"
item2.Font.Style="fsBold" item2.Hint=thint item2.ShowHint=true item2.OptimalFill=true
item2.Font.Name="Georgia" item2.Cursor=-21 item2.Color="0xffff00"
item2.caption = text
item2.OnMouseMove=function() item2.BevelColor="0x00ffff" end
item2.OnMouseLeave=function() item2.BevelColor=color1 end
item2.OnMouseDown=function() item2.Color="0x00ffff" end
item2.OnMouseUp=function() item2.Color="0xffff00" end
end
----------- Control ----------
panelClickEffect(p1, 8, "Click me! (pnl1)", "Please click me. (pnl1)")
panelClickEffect(p2, 9, "Click me! (pnl2)", "Please click me, I'm better. (pnl2)")
panelClickEffect(p3, 10, "Click me! (pnl3)", "Please click me. (pnl3)")
panelClickEffect(p4, 7, "Don't click me! (pnl4)", "It's okay if you don't click me. (pnl4)") |
Enjoy it!
_________________
|
|