Example: /Util/MovingGradientBar

Online Documentation   -   Statistics   -   FAQ   -   Plugin Parts (All, Dependencies)   -   Class hierarchy

New in Version 22.2 22.3 22.4 22.5 23.0 23.1 23.2 23.3 23.4 23.5 24.0 24.1

The list of the   topics,   classes,   interfaces,   controls,   modules,   global methods by category,   global methods by name,   screenshots,   licenses   and   examples.

Platforms to show: All Mac Windows Linux Cross-Platform

/Util/MovingGradientBar


Required plugins for this example:

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Util/MovingGradientBar

This example is the version from Mon, 5th May 2019.

Project "MovingGradientBar.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control Canvas1 Inherits Canvas
ControlInstance Canvas1 Inherits Canvas
EventHandler Sub Paint(g As Graphics, areas() As REALbasic.Rect) draw g End EventHandler
End Control
Control Timer1 Inherits Timer
ControlInstance Timer1 Inherits Timer
EventHandler Sub Action() canvas1.Invalidate count=count+1 if count=1024 then count=0 End EventHandler
End Control
Protected Sub draw(g as Graphics) dim w as integer=g.Width-1 dim h as integer=g.Height-1 for x as integer=0 to w dim d as integer = (x+count) mod 1024 dim rr as integer dim gg as integer dim bb as integer if d<256 then rr=d elseif d<512 then rr=511-d end if if d<256 then gg=0 elseif d<512 then gg=d-256 elseif d<768 then gg=767-d end if if d<512 then bb=0 elseif d<768 then bb=d-512 elseif d<1024 then bb=1023-d end if g.ForeColor=rgb(rr,gg,bb) g.DrawLine x,0,x,h next End Sub
Property Protected count As Integer
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 Util Plugin.


💬 Ask a question or report a problem