Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


CE-FORM Editable Message Box! (ShowMessage Custom)

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> Art
View previous topic :: View next topic  
Author Message
AylinCE
Grandmaster Cheater Supreme
Reputation: 33

Joined: 16 Feb 2017
Posts: 1342

PostPosted: Fri Mar 22, 2024 2:42 pm    Post subject: CE-FORM Editable Message Box! (ShowMessage Custom) Reply with quote

Just an idea. Idea
You can edit colors, options and fonts, and create fun message boxes customized for you.

Button outputs: It will give 1 or 2 output warnings. So you will know which key the user pressed.

Message overflow: You can optionally use "\n" or write a long message.

Buttons: You can give one or two buttons and determine what will be written on them.

Different options are given in the pictures.



Code:
--############################################################################--
--############################################################################--

DP1 = getScreenDPI() / 96

if fHand1 then fHand1.Destroy() fHand1=nil end
fHand1 = createForm(MainForm)
 fHand1.BorderStyle="bsNone"
fHand1.setLayeredAttributes(0x000100, 255, LWA_COLORKEY | LWA_ALPHA )
fHand1.Color=0x000100
fHand1.Visible=false

local showMessageCustom=function(frm,title,text,tclr,tfclr,fclr,sclr,bclr,mr1,mr2,ops)
frm22 = frm --MainForm
result1 = 0
if not inMainThread() then messageDialog(' ',mtError) end
fHand1.Visible=true
fHand1.Popupmode=1; fHand1.Width=450*DP1 fHand1.Height=180*DP1
fHand1.caption=title
fHand1.BorderStyle="bsNone"
fHand1.Font.Style="fsBold" fHand1.Font.Name="Lucida Fax"
fHand1.setLayeredAttributes(0x000100, 255, LWA_COLORKEY | LWA_ALPHA )
fHand1.Color=0x000100
--############################################################################--
--############################################################################--

pHand1=createPanel(fHand1)
pHand1.Width=340*DP1 pHand1.Height=30*DP1
pHand1.Top=5*DP1 pHand1.Color=tclr pHand1.Font.Color=tfclr
pHand1.BevelColor=clDefault pHand1.BevelWidth=4*DP1
pHand1.OnMouseDown=function() fHand1.DragNow() end
pHand1.Caption=fHand1.caption pHand1.Font.Size=11*DP1
--############################################################################--

pImg1=createPanel(fHand1)
pImg1.Height=fHand1.Height - 80*DP1
pImg1.Width=340*DP1 pImg1.Top=35*DP1 pImg1.Color=bclr
pImg1.BevelColor=clDefault pImg1.BevelWidth=4*DP1
--############################################################################--

pHand2=createPanel(fHand1)
pHand2.Width=340*DP1 pHand2.Height=32*DP1 pHand2.Color=tclr
pHand2.BevelColor=clDefault pHand2.BevelWidth=4*DP1
--############################################################################--
if ops==1 then pHand1.Left=0*DP1 pImg1.Left=50*DP1 pHand2.Left=95*DP1
elseif ops==2 then pHand1.Left=95*DP1 pImg1.Left=50*DP1 pHand2.Left=95*DP1
elseif ops==3 then pHand1.Left=50*DP1 pImg1.Left=50*DP1 pHand2.Left=50*DP1
elseif ops==4 then pHand1.Left=0*DP1 pImg1.Left=50*DP1 pHand2.Left=0*DP1
elseif ops==5 then pHand1.Left=95*DP1 pImg1.Left=50*DP1 pHand2.Left=95*DP1
else pHand1.Left=0*DP1 pImg1.Left=50*DP1 pHand2.Left=95*DP1 end

--############################################################################--

pLbl2=createLabel(pImg1)
pLbl2.Tag=90*DP1
pLbl2.width=380*DP1
pLbl2.left=5*DP1 pLbl2.top=5*DP1
pLbl2.Font.Color=sclr --4342338
pLbl2.alignment="taCenter" pLbl2.Font.Style="fsBold" pLbl2.WordWrap=true
pLbl2.OnMouseDown=function() fHand1.DragNow() end

pLbl1=createLabel(pImg1)
pLbl1.left=15*DP1 pLbl1.top=10*DP1
pLbl1.Font.Color=fclr --13231816 --0xffffff --16776960
pLbl1.alignment="taCenter" pLbl1.Font.Style="fsBold" pLbl1.WordWrap=true
pLbl1.OnMouseDown=function() fHand1.DragNow() end
--############################################################################--
--############################################################################--

pBtn1=createButton(pHand2) pBtn1.Width=70*DP1 pBtn1.Height=22*DP1
pBtn1.Caption=mr1 pBtn1.Font.Size=10*DP1 pBtn1.Top=5

pBtn2=createButton(pHand2) pBtn2.Width=70*DP1 pBtn2.Height=22*DP1
pBtn2.Caption=mr2 pBtn2.Font.Size=10*DP1 pBtn2.Top=5
  if mr2=="" then
    pBtn1.Left=pHand2.Width / 2 - pBtn1.Width / 2*DP1
    pBtn2.Visible=false
  else
    pBtn1.Left=90*DP1 pBtn2.Left=pHand2.Width - 160*DP1
  end
--############################################################################--
--############################################################################--

pLbl1.caption=text
pLbl2.caption=text
pLbl1.Font.Height=12
pLbl1.Font.Size=10*DP1
pLbl1.AutoSize=true
cnt = pLbl1.width / 280
print(pLbl1.width,math.floor(cnt))
pLbl1.AutoSize=false
pLbl1.Height = 15 * math.floor(cnt)

pLbl1.OptimalFill=true
pLbl1.width=pImg1.width - 20
pLbl1.Tag = pLbl1.width - 20
pImg1.Height=pLbl1.Height + 20
pHand2.Top=pImg1.Height + pImg1.Top

pLbl1.Left=10
pLbl1.Top=10
pLbl2.AutoSize=false
pLbl2.Font.Height=pLbl1.Font.Height
 pLbl2.Font.Size=pLbl1.Font.Size*DP1
pLbl2.Height = pLbl1.Height
pLbl2.width = pLbl1.width
pLbl2.Left = pLbl1.Left - 2
pLbl2.Top = pLbl1.Top - 2

fHand1.Height=pHand1.Height + pImg1.Height + pHand2.Height + 30
fHand1.Left = frm22.Width / 2 + frm22.Left - fHand1.Width / 2
fHand1.Top = frm22.Height / 2 + frm22.Top - fHand1.Height / 2

fHand1.Visible=false

pBtn1.OnClick=function()
result1 = 1
  fHand1.ModalResult=mrOK
  return result1
end

pBtn2.OnClick=function()
result1 = 2
  fHand1.ModalResult=mrOK
end
beep()
fHand1.showModal()
return result1
end
--############################################################################--
--############################################################################--

function showMessageEx(text,mr1,mr2,ops)
frm=MainForm -- owner form name (UDF1..)
title="By AylinCE Trainers (2024)"
tclr=16776960 -- title & btn panels color
tfclr=0 --65280
fclr=16777215  -- label font color
sclr=6381921 -- label shadow font color
bclr=12339115 -- message background color
if mr1=="" then mr1="OK" end --button 1
if mr2=="" then mr2="" end
--mr2="CANCEL" -- button 2
result2 = showMessageCustom(frm,title,text,tclr,tfclr,fclr,sclr,bclr,mr1,mr2,ops)
return result2
end

--############################################################################--
--############################################################################--

msg1 = "Have you researched what else can be done with Cheat Engine? People seeing Trainers with different functions and visuals, what a few buttons can create, the dance of codes, different dimensions of entertainment and the gathering of many factors open to development. What else can you do with CE?"
msg2 = "People seeing Trainers with different functions and visuals, what a few buttons can create, the dance of codes, different dimensions of entertainment and the gathering of many factors open to development. What else can you do with CE?"
msg3 = "Have you researched what else can be done with Cheat Engine?"

--aa21 = showMessageEx(msg1,"","",4)
--print(aa21)

--aa22 = showMessageEx(msg2,"OK","CANCEL",1)
--print(aa22)

aa23 = showMessageEx(msg3,"YES","NO",2)
print(aa23)


Until we see you in another different and fun post, enjoy. Smile Idea



ek3.PNG
 Description:
 Filesize:  5.9 KB
 Viewed:  2721 Time(s)

ek3.PNG



ek2.PNG
 Description:
 Filesize:  12.61 KB
 Viewed:  2721 Time(s)

ek2.PNG



ek1.PNG
 Description:
 Filesize:  16.33 KB
 Viewed:  2721 Time(s)

ek1.PNG



_________________
Hi Hitler Different Trainer forms for you!
https://forum.cheatengine.org/viewtopic.php?t=619279
Enthusiastic people: Always one step ahead
Do not underestimate me Master: You were a beginner in the past
Back to top
View user's profile Send private message Visit poster's website MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> Art All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
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


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites