CGS Source


Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /kunden/macsw.de/webseiten/monkeybreadsoftware-video/rbformat/rbcode.php on line 244
Class App
Inherits Application
// Constants
Const kFileQuitShortcut = Ctrl+Q
Const kFileQuit = E&xit
Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
// Controls
ControlInstance
Sub Action() Handles Event
dim r as CGSTransitionRequestMBS
dim t as CGSTransitionMBS
dim co as CGSConnectionMBS

co=new CGSConnectionMBS

r=new CGSTransitionRequestMBS
r.TransitionType=r.CGSCube
r.TransitionOption=r.CGSRight

r.HasBackColor=false
r.HasBackGround=True

t=co.NewTransition(r)
if t<>Nil then
Refresh
t.Invoke 5
t.Wait 5
t.Release
else
MsgBox "No transitions available."
end if

End Sub
End ControlInstance
ControlInstance
Sub Action() Handles Event
dim r as CGSTransitionRequestMBS
dim t as CGSTransitionMBS
dim w as CGSWindowMBS
dim co as CGSConnectionMBS

co=new CGSConnectionMBS
w=co.CGSWindow(Self)

r=new CGSTransitionRequestMBS

r.TransitionType=r.CGSFlip
r.TransitionOption=r.CGSLeft
r.HasBackColor=false
r.HasBackGround=false
r.win=w

t=co.NewTransition(r)
if t<>Nil then
Refresh
t.Invoke .5
t.Wait .5
t.Release
end if

End Sub
End ControlInstance
ControlInstance
Sub Action() Handles Event
dim r as CGSTransitionRequestMBS
dim t as CGSTransitionMBS
dim w as CGSWindowMBS
dim co as CGSConnectionMBS

co=new CGSConnectionMBS
w=co.CGSWindow(Self)

r=new CGSTransitionRequestMBS

r.TransitionType=r.CGSFlip
r.TransitionOption=r.CGSRight
r.HasBackColor=false
r.HasBackGround=false
r.win=w

t=co.NewTransition(r)
if t<>Nil then
Refresh
t.Invoke .5
t.Wait .5
t.Release
end if

End Sub
End ControlInstance
ControlInstance
Sub Action() Handles Event
dim r as CGSTransitionRequestMBS
dim t as CGSTransitionMBS
dim w as CGSWindowMBS
dim c as CGSConnectionMBS

c=new CGSConnectionMBS

w=c.CGSWindow(self)

r=new CGSTransitionRequestMBS
r.TransitionType=r.CGSWarpFade
r.TransitionOption=r.CGSDown
r.HasBackGround=false
r.HasBackColor=false
r.Win=w

t=c.NewTransition(r)
if t<>Nil then
Refresh
t.Invoke 5
t.Wait 5
t.Release
end if
End Sub
End ControlInstance

// Event implementations
Sub Paint(g As Graphics)
g.ForeColor=Rgb(rnd*256,rnd*256,rnd*256)

g.FillRect 0,0,g.Width,g.Height
End Sub
End Class



Watch other Xojo videos:

ThumbnailMBS Xojo Plugin, June 2021 News

(English)

27:58 minutes
ThumbnailMBS Xojo Plugins 21.1

(English)

23:12 minutes
ThumbnailInstalling a Xojo Web App Server

(English)

28:19 minutes
ThumbnailMBS Plugin Installation Win

(English)

22:03 minutes
ThumbnailMBS Plugin Installation Mac

(English)

25:17 minutes
ThumbnailXDC 2020 MBS Plugins Presentation

(English)

38:59 minutes




Links
MBS FileMaker blog

Start Chat