Public Sub Initialize(FullScreen As Boolean, TitleShown As Boolean)
Private ActAttrAdapter As Int = 50
If FullScreen Then
ActAttrAdapter = ActAttrAdapter - 25
End If
If Not(TitleShown) Then
ActAttrAdapter = ActAttrAdapter - 25
End If
' In the rest of this routine 50 must be replaced by ActAttrAdapter
End Sub
Public Sub SetRate(cRate As Double, FullScreen As Boolean, TitleShown As Boolean)
Initialize(FullScreen, TitleShown)
End Sub
Public Sub SetReferenceLayout(Width As Int, Height As Int, Scale As Double, _
FullScreen As Boolean, TitleShown As Boolean)
Initialize(FullScreen, TitleShown)
End Sub