forked from alexrestrepo/RBCustomTabPanel
-
Notifications
You must be signed in to change notification settings - Fork 0
/
generalDemo.rbfrm
520 lines (510 loc) · 14.3 KB
/
generalDemo.rbfrm
1
#tag WindowBegin Window generalDemo BackColor = 16777215 Backdrop = "" CloseButton = True Composite = False Frame = 0 FullScreen = False HasBackColor = False Height = 247 ImplicitInstance= True LiveResize = True MacProcID = 0 MaxHeight = 32000 MaximizeButton = False MaxWidth = 32000 MenuBar = 1454231033 MenuBarVisible = True MinHeight = 64 MinimizeButton = True MinWidth = 64 Placement = 0 Resizeable = True Title = "Custom Tabs" Visible = True Width = 566 Begin PushButton PushButton1 AutoDeactivate = True Bold = "" Cancel = "" Caption = "<<" Default = "" Enabled = True Height = 20 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 12 LockBottom = True LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Scope = 0 TabIndex = 0 TabPanelIndex = 0 TabStop = True TextFont = "System" TextSize = 10 TextUnit = 0 Top = 175 Underline = "" Visible = True Width = 40 End Begin PushButton PushButton2 AutoDeactivate = True Bold = "" Cancel = "" Caption = ">>" Default = "" Enabled = True Height = 20 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 64 LockBottom = True LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Scope = 0 TabIndex = 1 TabPanelIndex = 0 TabStop = True TextFont = "System" TextSize = 10 TextUnit = 0 Top = 175 Underline = "" Visible = True Width = 40 End Begin textfield EditField2 AcceptTabs = "" Alignment = 0 AutoDeactivate = True BackColor = 16777215 Bold = "" Border = True CueText = "" DataField = "" DataSource = "" Enabled = True Format = "" Height = 22 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 134 LimitText = 0 LockBottom = True LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Mask = "" Password = "" ReadOnly = "" Scope = 0 TabIndex = 2 TabPanelIndex = 0 TabStop = True Text = "" TextColor = 0 TextFont = "System" TextSize = 10 TextUnit = 0 Top = 174 Underline = "" UseFocusRing = True Visible = True Width = 198 End Begin PushButton PushButton3 AutoDeactivate = True Bold = "" Cancel = "" Caption = "Add tab" Default = "" Enabled = True Height = 20 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 344 LockBottom = True LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Scope = 0 TabIndex = 3 TabPanelIndex = 0 TabStop = True TextFont = "System" TextSize = 10 TextUnit = 0 Top = 175 Underline = "" Visible = True Width = 99 End Begin CheckBox CheckBox1 AutoDeactivate = True Bold = "" Caption = "icon" DataField = "" DataSource = "" Enabled = True Height = 20 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 134 LockBottom = True LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Scope = 0 State = 0 TabIndex = 4 TabPanelIndex = 0 TabStop = True TextFont = "System" TextSize = 10 TextUnit = 0 Top = 199 Underline = "" Value = False Visible = True Width = 100 End Begin CheckBox CheckBox2 AutoDeactivate = True Bold = "" Caption = "closeBox" DataField = "" DataSource = "" Enabled = True Height = 20 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 134 LockBottom = True LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Scope = 0 State = 0 TabIndex = 5 TabPanelIndex = 0 TabStop = True TextFont = "System" TextSize = 10 TextUnit = 0 Top = 219 Underline = "" Value = False Visible = True Width = 100 End Begin PushButton PushButton4 AutoDeactivate = True Bold = "" Cancel = "" Caption = "Change tab" Default = "" Enabled = True Height = 20 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 344 LockBottom = True LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Scope = 0 TabIndex = 6 TabPanelIndex = 0 TabStop = True TextFont = "System" TextSize = 10 TextUnit = 0 Top = 207 Underline = "" Visible = True Width = 99 End Begin PagePanel PagePanel1 AutoDeactivate = True Enabled = True Height = 131 HelpTag = "" Index = -2147483648 InitialParent = "" Left = 10 LockBottom = True LockedInPosition= False LockLeft = True LockRight = True LockTop = True PanelCount = 0 Panels = "" Scope = 0 TabIndex = 7 TabPanelIndex = 0 Top = 32 Value = -1 Visible = True Width = 547 Begin textarea tmpField AcceptTabs = "" Alignment = 0 AutoDeactivate = True BackColor = 16777215 Bold = "" Border = True DataField = "" DataSource = "" Enabled = True Format = "" Height = 53 HelpTag = "" HideSelection = True Index = 0 InitialParent = "PagePanel1" Italic = "" Left = 64 LimitText = 0 LockBottom = True LockedInPosition= False LockLeft = True LockRight = True LockTop = True Mask = "" Multiline = "" ReadOnly = "" Scope = 0 ScrollbarHorizontal= "" ScrollbarVertical= True Styled = "" TabIndex = 0 TabPanelIndex = 0 TabStop = True Text = "" TextColor = 0 TextFont = "System" TextSize = 0 TextUnit = 0 Top = 58 Underline = "" UseFocusRing = True Visible = True Width = 80 End End Begin CheckBox CheckBox3 AutoDeactivate = True Bold = "" Caption = "enabled" DataField = "" DataSource = "" Enabled = True Height = 20 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 455 LockBottom = True LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Scope = 0 State = 0 TabIndex = 8 TabPanelIndex = 0 TabStop = True TextFont = "System" TextSize = 10 TextUnit = 0 Top = 207 Underline = "" Value = False Visible = True Width = 100 End Begin CustomTabPanelTabs CustomTabPanelTabs1 AcceptFocus = "" AcceptTabs = "" AutoDeactivate = True Backdrop = "" DoubleBuffer = False Enabled = True EnableTabReordering= True EraseBackground = True Facing = 0 Height = 27 HelpTag = "" Index = -2147483648 InitialParent = "" Left = 10 LockBottom = "" LockedInPosition= False LockLeft = True LockRight = True LockTop = "" Scope = 0 TabIndex = 9 TabPanelIndex = 0 TabStop = True Top = 5 UseFocusRing = True Visible = True Width = 547 End Begin CheckBox CheckBox4 AutoDeactivate = True Bold = "" Caption = "drag reorder" DataField = "" DataSource = "" Enabled = True Height = 20 HelpTag = "" Index = -2147483648 InitialParent = "" Italic = "" Left = 457 LockBottom = True LockedInPosition= False LockLeft = "" LockRight = "" LockTop = "" Scope = 0 State = 1 TabIndex = 10 TabPanelIndex = 0 TabStop = True TextFont = "System" TextSize = 10 TextUnit = 0 Top = 175 Underline = "" Value = True Visible = True Width = 100 EndEnd#tag EndWindow#tag WindowCode#tag EndWindowCode#tag Events PushButton1 #tag Event Sub Action() CustomTabPanelTabs1.value=CustomTabPanelTabs1.value-1 End Sub #tag EndEvent#tag EndEvents#tag Events PushButton2 #tag Event Sub Action() CustomTabPanelTabs1.value=CustomTabPanelTabs1.value+1 End Sub #tag EndEvent#tag EndEvents#tag Events PushButton3 #tag Event Sub Action() dim tab as CustomTab if EditField2.Text.Trim="" then beep Return end if if CheckBox1.Value then CustomTabPanelTabs1.appendTab(EditField2.Text,iconData,CheckBox2.Value) else CustomTabPanelTabs1.appendTab(EditField2.Text,CheckBox2.Value) end if End Sub #tag EndEvent#tag EndEvents#tag Events PushButton4 #tag Event Sub Action() CustomTabPanelTabs1.caption(CustomTabPanelTabs1.value)=EditField2.Text CustomTabPanelTabs1.closeBox(CustomTabPanelTabs1.value)=CheckBox2.Value dim tmp as Picture if CheckBox1.Value then tmp=iconData else tmp=nil end if CustomTabPanelTabs1.icon(CustomTabPanelTabs1.value)=tmp End Sub #tag EndEvent#tag EndEvents#tag Events CheckBox3 #tag Event Sub Action() CustomTabPanelTabs1.enabled(CustomTabPanelTabs1.value)=me.Value End Sub #tag EndEvent#tag EndEvents#tag Events CustomTabPanelTabs1 #tag Event Sub TabChanged(tabIndex as integer) EditField2.Text=me.caption(tabIndex) CheckBox3.Value=me.enabled(tabIndex) End Sub #tag EndEvent #tag Event Sub PanelPageAdded(panel as pagePanel, page as integer) //add an editfield to the new page dim tmp as TextArea tmp=new tmpfield tmp.Parent=panel tmp.PanelIndex=page tmp.Left=panel.Left+5 tmp.top=panel.top+5 tmp.Width=panel.Width-10 tmp.Height=panel.Height-10 tmp.Text="Editfield in tab:"+me.caption(me.value) End Sub #tag EndEvent #tag Event Sub Open() //attach a panel me.attachPanel(PagePanel1) //add some tabs me.appendTab("Test tab 1",iconData,true) me.appendTab("Test tab 2",true) me.appendTab("Test tab 3", iconData,true) me.appendTab("Test tab 4",true) me.appendTab("Test tab 5", iconData) End Sub #tag EndEvent#tag EndEvents#tag Events CheckBox4 #tag Event Sub Action() CustomTabPanelTabs1.EnableTabReordering = me.Value End Sub #tag EndEvent#tag EndEvents