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 Trainer Design Alphablend Example

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> Cheat Engine Lua Scripting
View previous topic :: View next topic  
Author Message
Corroder
Grandmaster Cheater Supreme
Reputation: 38

Joined: 10 Apr 2015
Posts: 1529

PostPosted: Mon Sep 07, 2020 2:59 pm    Post subject: CE Trainer Design Alphablend Example Reply with quote

Just bored, so here is an alpha blending (opacity) example:
Note : that is free to add your own images and credit going to mgr.inz.Player and DarkByte

Code:
function TBlendFunction(SourceConstantAlpha)
  return byteTableToDword({0,0,SourceConstantAlpha,1})
end

function getCanvasHandle(canvas)
  canvas.getPixel(0,0)
  return readPointerLocal(userDataToInteger(canvas)+0xc8)
end


function setAlphaBlend(hdcDest, nXOriginDest, nYOriginDest, nWidthDest, nHeightDest,
                       hdcSrc, nXOriginSrc, nYOriginSrc, nWidthSrc, nHeightSrc, blendFunction)

 return executeCodeLocalEx("msimg32.AlphaBlend",
                            hdcDest, nXOriginDest, nYOriginDest, nWidthDest, nHeightDest,
                            hdcSrc, nXOriginSrc, nYOriginSrc, nWidthSrc, nHeightSrc, blendFunction)
end

note = [[
hdcDest = Handle to the destination device context.

nXOriginDest = Specifies the x-coordinate,
               in logical units, of the upper-left corner of the destination rectangle.

nYOriginDest = Specifies the y-coordinate,
               in logical units, of the upper-left corner of the destination rectangle.

nWidthDest = Specifies the width,
             in logical units, of the destination rectangle.

nHeightDest = Specifies the height, in logical units, of the destination rectangle.

hdcSrc = Handle to the source device context.

nXOriginSrc = Specifies the x-coordinate,
              in logical units, of the upper-left corner of the source rectangle.

nYOriginSrc = Specifies the y-coordinate,
              in logical units, of the upper-left corner of the source rectangle.

nWidthSrc = Specifies the width,
            in logical units, of the source rectangle.

nHeightSrc = Specifies the height,
             in logical units, of the source rectangle.

blendFunction = Specifies the alpha-blending function for source and destination bitmaps,
                a global alpha value to be applied to the entire source bitmap,
                and format information for the source bitmap.
                The source and destination blend functions are currently
                limited to AC_SRC_OVER.
]]

function setOpacity(src, alpha, tblfile)

 if pngImage or tmpImage then
    pngImage.destroy()
    tmpImage.destroy()
  end

 pngImage = createImage(nil)

 ch = string.sub(tblfile, -4)

 if ch == '.jpg' or ch == '.JPG' or ch == '.Jpg' then
    pngImage.Picture.Jpeg.loadFromStream(findTableFile(tblfile).Stream)
 else
    pngImage.Picture.PNG.loadFromStream(findTableFile(tblfile).Stream)
 end

 tmpImage = createImage(nil)
 local width  = pngImage.Picture.Bitmap.Width
 local height = pngImage.Picture.Bitmap.Height
 tmpImage.Picture.Bitmap.PixelFormat = pf32bit
 tmpImage.Picture.Bitmap.Width  = width
 tmpImage.Picture.Bitmap.Height = height


 setAlphaBlend(getCanvasHandle(tmpImage.Picture.Bitmap.Canvas), 0, 0, width, height,
               getCanvasHandle(pngImage.Picture.Bitmap.Canvas), 0, 0, width, height,
               TBlendFunction(alpha))

 src.Picture.assign(tmpImage.Picture)
 src.repaint()
 pngImage.destroy()
 tmpImage.destroy()
end

function obj_click()
 -- do something, example:
 shellExecute('https://www.youtube.com/?hl=id&gl=ID')
end

-----------------------------------------------------------------------

if f then f.destroy() end

f = createForm()
f.setSize(450,250)
f.Position = 'poScreenCenter'
f.Caption = 'CE Trainer Art Design Example'

BackgroundBMP = createImage(f)
BackgroundBMP.Picture.loadFromStream(findTableFile('images.jpg').Stream)
BackgroundBMP.Align = 'alClient'
BackgroundBMP.Stretch = true

img1 = createImage(f)
img1.setSize(350,230)
img1.setPosition(30,10)
img1.stretch = true
img1.Picture.loadFromStream(findTableFile('truck.jpg').stream)
img1.OnMouseDown = function() f.dragNow() end

img2 = createImage(f)
img2.setSize(100,70)
img2.setPosition(330,25)
img2.stretch = true
img2.Picture.loadFromStream(findTableFile('btn1.png').stream)
img2.Cursor = -21

pb2=createPaintBox(f)
pb2.Left = 100
pb2.Top = 100
pb2.Width = 330
pb2.Heigth = 20

pb=createPaintBox(f)
pb.Left = 100
pb.Top = 100
pb.Width = 330
pb.Heigth = 20

pb2.OnPaint = function()
  local rect1={}
  rect1.Left=0
  rect1.Top=0
  rect1.Right=pb2.Width
  rect1.Bottom=pb2.Height
  pb2.Canvas.Font.Size = 36
  pb2.Canvas.Font.Name = 'Arial'
  pb2.Canvas.Font.Style = 'fsItalic'
  pb2.Canvas.Font.Color = 5855577
  pb2.Canvas.textRect(rect1,14,22,'Cheat Engine')
end

pb.OnPaint = function()
  local rect={}
  rect.Left=0
  rect.Top=0
  rect.Right=pb.Width
  rect.Bottom=pb.Height
  pb.Canvas.Font.Size = 34
  pb.Canvas.Font.Name = 'Arial'
  pb.Canvas.Font.Style = 'fsBold'
  pb.Canvas.Font.Color = 0xffffff
  pb.Canvas.textRect(rect,15,30,'Cheat Engine')
end

f.Show()

setOpacity(img1, 150, 'truck.jpg')
processMessages()
setOpacity(img2, 200, 'btn1.png')

img2.OnClick = obj_click


Result as attached picture



Capture.JPG
 Description:
Alpha blend test
 Filesize:  34.3 KB
 Viewed:  200 Time(s)

Capture.JPG



_________________
Stealing Code From Stolen Code...
And Admit It.. Hmmm....Typically LOL
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> Cheat Engine Lua Scripting 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