AylinCE Grandmaster Cheater Supreme Reputation: 31
Joined: 16 Feb 2017 Posts: 1234
|
Posted: Sun May 05, 2019 8:04 pm Post subject: Re: panels transparent |
|
|
For now Panels "AlphaFlag" does not support,
You can use the transparent color setting of the form for Panels.
Code: | form = createForm(true)
form.Position = poDesktopCenter
form.Width = 320
form.Height = 240
form.Color = 0xf60110
--form.AlphaBlend = true
p1 = createPanel(form)
p1.Height = 140
p1.Left = 5
p1.Top = 5
p1.Width = 150
p1.Color=0x050100
p1.BorderStyle = "bsSingle"
p1.BorderWidth = "3"
p2 = createPanel(form)
p2.Height = 140
p2.Left = 165
p2.Top = 5
p2.Width = 150
p2.Color=0x050100
p2.BorderStyle = "bsSingle"
p2.BorderWidth = "3"
b1 = createButton(form)
b1.Left = 40
b1.Top = 160
b1.Caption = 'Enable'
b1.OnClick = function()
if p1.Color==0x000100 then
p1.Color=0x050100
else
p1.Color=0x000100
end
end
b2 = createButton(form)
b2.Left = 205
b2.Top = 160
b2.Caption = 'Enable'
b2.OnClick = function()
if p2.Color==0x000100 then
p2.Color=0x000101
else
p2.Color=0x000100
end
end
form.setLayeredAttributes(0x000100, 255, LWA_COLORKEY | LWA_ALPHA ) |
_________________
|
|