Platforms to show: All Mac Windows Linux Cross-Platform
/GraphicsMagick/GraphicsMagick/alpha test
Required plugins for this example: MBS GraphicsMagick Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /GraphicsMagick/GraphicsMagick/alpha test
This example is the version from Mon, 5th May 2019.
Project "alpha test.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control Slider1 Inherits Slider
ControlInstance Slider1 Inherits Slider
EventHandler Sub ValueChanged()
redraw
End EventHandler
End Control
Control Canvas1 Inherits Canvas
ControlInstance Canvas1 Inherits Canvas
EventHandler Sub Paint(g As Graphics, areas() As REALbasic.Rect)
#pragma Unused areas
draw g
End EventHandler
End Control
Sub Draw(out as graphics)
dim g as new GMGeometryMBS(500,500)
dim c as new GMColorRGBMBS("white") // white
dim image as new GMImageMBS(g, c)
dim red as new GMColorRGBMBS("red")
dim green as new GMColorRGBMBS("green")
red.alpha = Slider1.Value/100.0
green.alpha = Slider1.Value/100.0
image.strokeColor = red // Outline color
image.fillColor = green // Fill color
image.strokeWidth = 5
dim draw as GMGraphicsMBS = image.Graphics
// Draw a circle
draw.Circle(250, 250, 120, 150)
draw.Draw
out.DrawPicture image.copyPicture,0,0
End Sub
Sub Redraw()
#if RBVersion >= 2013 then
canvas1.Invalidate
#else
canvas1.Refresh
#endif
End Sub
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
End Project
The items on this page are in the following plugins: MBS GraphicsMagick Plugin.