Xojo Conferences
XDCMay2019MiamiUSA

Platforms to show: All Mac Windows Linux Cross-Platform

/Util/Resplugin Examples/Thunder
Function:
Required plugins for this example: MBS Util Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Util/Resplugin Examples/Thunder
This example is the version from Wed, 20th Jun 2017.
Project "Thunder.rbp"
Class Thunder Inherits Window
Control Draw Inherits Canvas
ControlInstance Draw Inherits Canvas
EventHandler Function MouseDown(X As Integer, Y As Integer) As Boolean dis.FadeGamma(1000, RGB(0, 0, 0)) thunderMode = 1 MyTimer.Mode = 2 'Switch timer on End EventHandler
EventHandler Sub Paint(g As Graphics, areas() As REALbasic.Rect) g.DrawPicture(FrenchAlps, 0, 0, Width, Height, 0, 0, FrenchAlps.Width, FrenchAlps.Height) If dis.GammaIntensity = 0 And dis.GammaColor = RGB(0, 0, 0) Then dis.FadeGammaTo(600, RGB(0, 0, 0), 500) 'Fade back if this is the first time End If End EventHandler
End Control
Control MyTimer Inherits Timer
ControlInstance MyTimer Inherits Timer
EventHandler Sub Action() // Draw.MouseDown faded the screen the first time: // dis.FadeGamma(1000, RGB(0, 0, 0)) // This code fades the screen three more times: // dis.FadeGamma(200, RGB(255, 255, 255)) // dis.FadeGamma(1000, RGB(0, 0, 0)) // dis.FadeGamma(600, RGB(0, 0, 0)) If dis.GammaIntensity = 1000 Then If thunderMode = 1 Then dis.FadeGamma(200, RGB(255, 255, 255)) Else dis.FadeGamma(600, RGB(0, 0, 0)) 'Fade back to normal Me.Mode = 0 'We are done. Switch timer off End If Else dis.FadeGamma(1000, RGB(0, 0, 0)) thunderMode = 0 End If End EventHandler
End Control
EventHandler Sub Close() if dis<>nil then dis.FadeGammaTo(0, RGB(0, 0, 0), 500) Hide // Destroy our Display object (fades to normal) dis = nil end if End EventHandler
EventHandler Function KeyDown(Key As String) As Boolean if key=chr(27) then close return true end if End EventHandler
EventHandler Sub Open() Dim file As FolderItem if not ResolutionLibraryPresentMBS then msgBox "The library RezLib was not found. Please place this library into the Realbasic or after compiling into your application folder." end if // Find the monitor dis = GetDisplayMBS(0) if dis<>Nil then // Set the position Left = dis.Left Top = dis.Top Width = dis.Width Height = dis.Height // Show the window dis.FadeGammaTo(0, RGB(0, 0, 0), 1000) Show end if End EventHandler
Property dis As DisplayMBS
Property thunderMode As Integer
End Class
MenuBar Menu
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu7 = ""
MenuItem UntitledMenu2 = "File"
MenuItem FileQuit = "Quit"
MenuItem UntitledMenu6 = ""
MenuItem UntitledMenu0 = "Edit"
MenuItem EditUndo = "Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cut"
MenuItem EditCopy = "Copy"
MenuItem EditPaste = "Paste"
MenuItem EditClear = "Clear"
MenuItem UntitledMenu5 = ""
MenuItem UntitledMenu4 = ""
End MenuBar
ExternalFile FrenchAlps
End ExternalFile
Class App Inherits Application
End Class
End Project

See also:

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS Util Plugin.




Links
MBS Xojo Plugins