-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathWindow1.rbfrm
356 lines (347 loc) · 9.4 KB
/
Window1.rbfrm
1
#tag WindowBegin Window Window1 BackColor = &h000000 Backdrop = "" CloseButton = True Composite = True Frame = 0 FullScreen = True HasBackColor = True Height = 6.44e+2 ImplicitInstance= True LiveResize = True MacProcID = 0 MaxHeight = 32000 MaximizeButton = True MaxWidth = 32000 MenuBar = 1892309543 MenuBarVisible = True MinHeight = 64 MinimizeButton = True MinWidth = 64 Placement = 0 Resizeable = True Title = "Anything4Jetta" Visible = True Width = 8.33e+2 Begin Rectangle Rectangle1 AutoDeactivate = True BorderWidth = 1 BottomRightColor= &h000000 Enabled = True FillColor = &hFFFFFF Height = 99 HelpTag = "" Index = -2147483648 InitialParent = "" Left = 0 LockBottom = "" LockedInPosition= False LockLeft = True LockRight = True LockTop = True Scope = 0 TabPanelIndex = 0 Top = 0 TopLeftColor = &h000000 Visible = True Width = 833 Begin placardButton placardButton1 AcceptFocus = "" AcceptTabs = "" AutoDeactivate = True Backdrop = "" bold = 0 DoubleBuffer = False Enabled = True EraseBackground = True Height = 78 HelpTag = "" Index = -2147483648 InitialParent = "Rectangle1" invertTextColor = 0 isSticky = 0 italic = 0 Left = 13 LockBottom = "" LockedInPosition= False LockLeft = True LockRight = "" LockTop = True Scope = 0 TabIndex = 0 TabPanelIndex = 0 TabStop = True textColor = &h000000 textColorDown = &h000000 textFont = "Geneva" textSize = 0 Top = 10 underline = 0 UseFocusRing = True value = 0 Visible = True Width = 225 End Begin placardButton placardButton2 AcceptFocus = "" AcceptTabs = "" AutoDeactivate = True Backdrop = "" bold = 0 DoubleBuffer = False Enabled = True EraseBackground = True Height = 78 HelpTag = "" Index = -2147483648 InitialParent = "Rectangle1" invertTextColor = 0 isSticky = 0 italic = 0 Left = 250 LockBottom = "" LockedInPosition= False LockLeft = True LockRight = "" LockTop = True Scope = 0 TabIndex = 1 TabPanelIndex = 0 TabStop = True textColor = &h000000 textColorDown = &h000000 textFont = "Geneva" textSize = 0 Top = 10 underline = 0 UseFocusRing = True value = 0 Visible = True Width = 225 End Begin placardButton placardButton3 AcceptFocus = "" AcceptTabs = "" AutoDeactivate = True Backdrop = "" bold = 0 DoubleBuffer = False Enabled = True EraseBackground = True Height = 78 HelpTag = "" Index = -2147483648 InitialParent = "Rectangle1" invertTextColor = 0 isSticky = 0 italic = 0 Left = 570 LockBottom = "" LockedInPosition= False LockLeft = False LockRight = True LockTop = True Scope = 0 TabIndex = 2 TabPanelIndex = 0 TabStop = True textColor = &h000000 textColorDown = &h000000 textFont = "Geneva" textSize = 0 Top = 10 underline = 0 UseFocusRing = True value = 0 Visible = True Width = 256 End End Begin HTMLViewer HTMLViewer1 AutoDeactivate = True Enabled = True Height = 396 HelpTag = "" Index = -2147483648 InitialParent = "" Left = 5 LockBottom = True LockedInPosition= False LockLeft = True LockRight = True LockTop = True Scope = 0 TabIndex = 0 TabPanelIndex = 0 Top = 104 Visible = True Width = 821 End Begin FireCanvas FireCanvas1 AcceptFocus = "" AcceptTabs = "" AutoDeactivate = True Backdrop = "" DoubleBuffer = False Enabled = True EraseBackground = True Height = 87 HelpTag = "" Index = -2147483648 InitialParent = "" Left = -7 LockBottom = True LockedInPosition= False LockLeft = True LockRight = True LockTop = False mPic = 0 Scope = 0 TabIndex = 2 TabPanelIndex = 0 TabStop = True Top = 537 UseFocusRing = True Visible = True Width = 847 End Begin Timer Timer1 Height = 32 Index = -2147483648 Left = 653 LockedInPosition= False Mode = 2 Period = 20 Scope = 0 TabPanelIndex = 0 Top = 0 Width = 32 End Begin ProgressBar ProgressBar1 AutoDeactivate = True Enabled = True Height = 20 HelpTag = "" Index = -2147483648 InitialParent = "" Left = 684 LockBottom = True LockedInPosition= False LockLeft = False LockRight = True LockTop = False Maximum = 100 Scope = 0 TabPanelIndex = 0 Top = 509 Value = 0 Visible = True Width = 142 EndEnd#tag EndWindow#tag WindowCode#tag EndWindowCode#tag Events placardButton1 #tag Event Sub Open() me.setIcon vWsmall me.caption = "Go to anything4jetta" me.iconDX = -65 me.captionDX = 45 me.textSize = 12 me.bold = true End Sub #tag EndEvent #tag Event Sub Action() HTMLViewer1.LoadURL("http://www.anything4jetta.com") End Sub #tag EndEvent#tag EndEvents#tag Events placardButton2 #tag Event Sub Open() me.setIcon TwitterButton me.caption = "Go to twitter" me.iconDX = -65 me.captionDX = 45 me.textSize = 12 me.bold = true End Sub #tag EndEvent #tag Event Sub Action() HTMLViewer1.LoadURL("http://www.twitter.com") End Sub #tag EndEvent#tag EndEvents#tag Events placardButton3 #tag Event Sub Open() me.setIcon vWsmall me.caption = "Go to Volkswagen India" me.iconDX = -75 me.captionDX = 45 me.textSize = 12 me.bold = true End Sub #tag EndEvent #tag Event Sub Action() HTMLViewer1.LoadURL("http://www.volkswagen.co.in") End Sub #tag EndEvent#tag EndEvents#tag Events HTMLViewer1 #tag Event Sub DocumentBegin(URL as String) ProgressBar1.Value = 0 ProgressBar1.Visible = True // End Sub #tag EndEvent #tag Event Sub DocumentProgressChanged(URL as String, percentageComplete as Integer) if percentageComplete = -1 then //if it cannot be determined ProgressBar1.Maximum = 0 //display indeterminate progress Else ProgressBar1.Maximum = 100 End if ProgressBar1.Value = percentageComplete End Sub #tag EndEvent #tag Event Sub DocumentComplete(URL as String) ProgressBar1.Value = 0 // End Sub #tag EndEvent #tag Event Sub TitleChanged(newTitle as String) Title = newTitle // End Sub #tag EndEvent #tag Event Sub Open() me.LoadURL( "http://www.anything4jetta.com") // End Sub #tag EndEvent #tag Event Sub StatusChanged(newStatus as String) 'StaticText1.Text = newStatus // End Sub #tag EndEvent#tag EndEvents#tag Events Timer1 #tag Event Sub Action() FireCanvas1.update // End Sub #tag EndEvent#tag EndEvents