Corroder
Grandmaster Cheater Supreme
 Reputation: 75
Joined: 10 Apr 2015
Posts: 1668
|
 Posted: Mon Apr 20, 2020 6:31 am Post subject: |
 |
|
Cheat Engine form GUI color depending on System Colors or Windows Theme on Windows operating system.
You can change form title bar background color by some innovation, using get title bar client rectangle and re-draw (search title bar color Lazarus / VB Net, etc). Or change your system color when form loading using SetSysColor (search SetSysColor pinvoke), or use getHDC, releaseHDC functions from user32.dll.
But, for me, I more like doing like the sample below (form template).
| Code: | if mainform then mainform.destroy() end
--# Color using MS Access Color Code : https://endprod.com/colors/
color = {}
color.DarkGrey = 3684408
color.Black = 0
color.LightGrey = 5855577
color.White = 16775408
color.DarkOrange = 36095
color.DodgerBlue = 16748574
--# Main Form Icon
local pic = createPicture()
pic.loadFromStream(findTableFile('icon_standard.png').Stream)
--# Main Form Design
mainform = createForm()
mainform.setSize(400,400)
mainform.Position = 'poScreenCenter'
mainform.BorderStyle = 'bsNone'
mainform.Color = color.DarkGrey
mainform.ShowInTackBar = 'stAlways'
mainform.Icon = pic.getBitmap()
mainform.WindowState = 'wsNormal'
mainform.OnMouseDown = function() mainform.DragNow() end
--# Title Bar
titlebar = createPanel(mainform)
titlebar.setPosition(0,0)
titlebar.setSize(mainform.Width, 40)
titlebar.BorderStyle = 'bsNone'
titlebar.BevelInner = 'bsNone'
titlebar.BevelOuter = 'bsNone'
titlebar.Color = color.Black
titlebar.Anchors = '[akTop,akLeft,akRight]'
titlebar.OnMouseDown = function() mainform.DragNow() end
--# Title Bar Components
formIcon = createImage(titlebar)
formIcon.setSize(25,25)
formIcon.setPosition(8,8)
formIcon.Stretch = true
formIcon.Picture.loadFromStream(findTableFile('icon_standard.png').Stream)
labelTitleBar = createLabel(titlebar)
labelTitleBar.Font.Name = 'Tahoma'
labelTitleBar.Font.Size = 11
labelTitleBar.Font.Color = color.DarkOrange
labelTitleBar.setPosition(formIcon.Left + formIcon.Width + 5,10)
labelTitleBar.Caption = 'My Trainer'
minimizeIcon = createImage(titlebar)
minimizeIcon.setSize(30,30)
minimizeIcon.setPosition(305,5)
minimizeIcon.Stretch = true
minimizeIcon.Picture.loadFromStream(findTableFile('minimize_icon.png').Stream)
minimizeIcon.Anchors = '[akTop,akRight]'
minimizeIcon.Cursor = -21
maximizeIcon = createImage(titlebar)
maximizeIcon.setSize(30,30)
maximizeIcon.setPosition(minimizeIcon.Left + minimizeIcon.Width + 1,5)
maximizeIcon.Stretch = true
maximizeIcon.Picture.loadFromStream(findTableFile('icon_maximize.png').Stream)
maximizeIcon.Anchors = '[akTop,akRight]'
maximizeIcon.Cursor = -21
exitIcon = createImage(titlebar)
exitIcon.setSize(30,30)
exitIcon.setPosition(maximizeIcon.Left + maximizeIcon.Width + 1,5)
exitIcon.Stretch = true
exitIcon.Picture.loadFromStream(findTableFile('exit_icon.png').Stream)
exitIcon.Anchors = '[akTop,akRight]'
exitIcon.Cursor = -21
--# Main Form Event Handler Functions
function formMinimize()
mainform.WindowState = 'wsMinimized'
end
function formMaximize()
if mainform.WindowState == 'wsNormal' then
mainform.WindowState = 'wsMaximized'
else
mainform.WindowState = 'wsNormal'
end
end
function formExit()
closeCE()
return caFree
end
minimizeIcon.OnClick = formMinimize
maximizeIcon.OnClick = formMaximize
exitIcon.OnClick = formExit |
Note: For icons images, need provide by yourself.
| Description: |
|
| Filesize: |
12.77 KB |
| Viewed: |
1670 Time(s) |
|
_________________
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
