Posted: Thu May 07, 2020 1:16 pm Post subject: Overlapping Texts
I need to know how to overlap memo boxes but have the bottom one still visible (to kinda bleed through) Is there anyway tooverlap them and see the content of both? _________________
local b1=createButton(form) b1.Left=85 b1.Top=135 b1.caption="<---->"
local b2=createButton(form) b2.Left=195 b2.Top=135 b2.caption="Visible"
local vsb = 1
function vspPlus()
if vsb==4 then
vsb = 1
m1.Left=100 m2.Left=100
m2.Top=5
m1.bringToFront() m2.sendToBack()
--print(vsb.."\n")
else
vsb = tonumber(vsb) + 1
--print(vsb)
end
end
function Combining()
if m1.Left==100 then
m1.Left=15 m2.Left=185
else
m1.Left=100 m2.Left=100
end
end
function onTheSurface()
if vsb==1 then
m2.Top=15 m1.Top=15
m2.visible=false
m1.visible=true
vspPlus()
elseif vsb==2 then
m1.visible=false
m2.visible=true
vspPlus()
elseif vsb==3 then
m1.visible=false
m2.visible=false
vspPlus()
elseif vsb==4 then
m1.visible=true
m2.visible=true
vspPlus()
end
end
m1.OnClick=function() m1.bringToFront() m2.sendToBack() m2.Top=5 m1.Top=15 end
m2.OnClick=function() m2.bringToFront() m1.sendToBack() m1.Top=5 m2.Top=15 end
b1.OnClick=Combining
b2.OnClick=onTheSurface
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum