The Best of Select: Windows 95 Special 2/WIN95_2.bin/utils/envelop/envelop.6/Tools/Bootcamp/basic/tabstrip/tabstrip.eto

Text File | 1996-07-08 | 11.1 KB | 378 lines

Type BMPOptButton From Bitmap
End Type

Type BMPCmdButton From Bitmap
End Type

Type TabStripSample From Application
  Dim AccessControl As New ACL
End Type

Type BMPChkBox From Bitmap
End Type

Type TabStripForm From SampleMasterForm
  Type TabStrip1 From TabStrip
    Dim AutoTab1 As New TabStripTab
    Dim AutoTab2 As New TabStripTab
    Type AutoTab3 From TabStripTab

      ' METHODS for object: TabStripForm.TabStrip1.AutoTab3
      Sub BeforeClick(cancel As Integer)
        cancel = TabForm.OBLockDown.Value
      End Sub

    End Type
    Type Img1 From ImageList

      ' METHODS for object: TabStripForm.TabStrip1.Img1
      Sub Clear
        While Count > 0
          RemoveImage(0)
        Wend
      End Sub

    End Type
  End Type
  Type SubForm1 From Form
    Dim Button1 As New Button
    Dim Button2 As New Button
    Dim Button3 As New Button
    Dim Button4 As New Button
    Dim Button5 As New Button
    Dim Button6 As New Button
    Dim Button7 As New Button
    Dim Button8 As New Button

    ' METHODS for object: TabStripForm.SubForm1
    Sub Resize()
      Dim x, y as single
      Dim XStep, YStep as single

      XStep = ScaleWidth / 2
      YStep = ScaleHeight / 4
      Button1.Move(0 * XStep + 150, 0 * YStep + 150, XStep - 300, YStep - 300)
      Button2.Move(0 * XStep + 150, 1 * YStep + 150, XStep - 300, YStep - 300)
      Button3.Move(0 * XStep + 150, 2 * YStep + 150, XStep - 300, YStep - 300)
      Button4.Move(0 * XStep + 150, 3 * YStep + 150, XStep - 300, YStep - 300)
      Button5.Move(1 * XStep + 150, 0 * YStep + 150, XStep - 300, YStep - 300)
      Button6.Move(1 * XStep + 150, 1 * YStep + 150, XStep - 300, YStep - 300)
      Button7.Move(1 * XStep + 150, 2 * YStep + 150, XStep - 300, YStep - 300)
      Button8.Move(1 * XStep + 150, 3 * YStep + 150, XStep - 300, YStep - 300)
    End Sub

  End Type
  Type SubForm2 From Form
    Dim CHKRed As New CheckBox
    Dim CHKBlue As New CheckBox
    Dim CHKGreen As New CheckBox
    Dim LBLCBox As New Label

    ' METHODS for object: TabStripForm.SubForm2
    Sub CHKBlue_Click()
      SetLabelColor
    End Sub

    Sub CHKGreen_Click()
      SetLabelColor
    End Sub

    Sub CHKRed_Click()
      SetLabelColor
    End Sub

    Sub Resize()
      Dim x, y as single
      Dim XStep, YStep as single

      XStep = ScaleWidth / 3
      YStep = ScaleHeight / 3
      CHKRed.Move(0 * XStep + 150, 0 * YStep + 150, XStep - 300, YStep - 300)
      CHKGreen.Move(0 * XStep + 150, 1 * YStep + 150, XStep - 300, YStep - 300)
      CHKBlue.Move(0 * XStep + 150, 2 * YStep + 150, XStep - 300, YStep - 300)
      LBLCBox.Move(1 * XStep + 150, 0 * YStep + 150, 2 * XStep - 300, 3 * YStep - 300)
    End Sub

    Sub SetLabelColor()
      LBLCBox.BackColor = RGB(255 * CHKRed.Value, 255 * CHKGreen.Value, 255 * CHKBlue.Value)
    End Sub

  End Type
  Type SubForm3 From Form
    Dim OBLockDown As New OptionButton
    Dim OBFreedom As New OptionButton

    ' METHODS for object: TabStripForm.SubForm3
    Sub Resize()
      Dim x,yx as Single
      x = ScaleHeight / 2
      yx = ScaleWidth / 2
      OBLockDown.Move(yx / 4, 0, yx * 2, x)
      OBFreedom.Move(yx / 4, x, yx * 2, x)
    End Sub

  End Type
  Dim CHKMultiRow As New CheckBox
  Dim CHKStyle As New CheckBox
  Dim CHKFixed As New CheckBox
  Dim CHKIcons As New CheckBox

  ' METHODS for object: TabStripForm
  Sub CHKFixed_Click()
    TabStrip1.TabWidthStyle = IIf(CHKFixed.Value = "Checked", "Fixed", "Justified")
    TabStrip1.Resize
  End Sub

  Sub CHKIcons_Click()
    TabStrip1.ImageListRef = IIf(CHKIcons.Value = "Checked", TabStripForm.TabStrip1.Img1, Nothing)
    TabStrip1.Resize
  End Sub

  Sub CHKMultiRow_Click()
    Static Warned As Boolean
    If Not Warned Then
      Dim MBX As New MessageBox
      MBX.Message("Multi-Row Demo", "Multi-Row has no effect if the TabStrip is wide enough to handle all the tabs. To demonstrate Multi-Row the TabStrip's Width will halve")
      Warned = True
    End If
    With TabStrip1
      .MultiRow = IIf(CHKMultiRow.Value = "Checked", True, False)
      .Width = IIf(.MultiRow, .Width / 2, .Width * 2)
    End With
  End Sub

  Sub CHKStyle_Click()
    TabStrip1.Style = IIf(CHKStyle.Value = "Checked", "Tabs", "Buttons")
    TabStrip1.Resize
  End Sub

  Sub Load()
    ReconstructImageList
  End Sub

  Sub ReconstructImageList
    With TabStripForm.TabStrip1.Img1
      .Clear
      .AddBitmapScaled(BMPOptButton)
      .AddBitmapScaled(BMPCmdButton)
      .AddBitmapScaled(BMPChkBox)
    End With
    TabStripForm.TabStrip1.ImageListRef = TabStripForm.TabStrip1.Img1
  End Sub

  Sub ResetApplication_Click()
    CHKMultiRow.Value = 0
    CHKStyle.Value = 1
    CHKFixed.Value = 0
    CHKIcons.Value = 1
    TabStrip1.TabFixedWidth = 2500
    TabStrip1.TabFixedWidth = 3000
  End Sub

End Type

Begin Code
' Reconstruction commands for object: BMPOptButton
'
  With BMPOptButton
    .LoadType := "MemoryBased"
    .FileName := "TabStrip.ero"
    .ResId := 0
  End With  'BMPOptButton
' Reconstruction commands for object: BMPCmdButton
'
  With BMPCmdButton
    .LoadType := "MemoryBased"
    .FileName := "TabStrip.ero"
    .ResId := 404
  End With  'BMPCmdButton
' Reconstruction commands for object: TabStripSample
'
  With TabStripSample
    .ModulePath := "envelop.ebo;base.ebo;win32.ebo;dialogs.ebo;tools.ebo;TabStrip.eto"
    .ProjectFileName := "C:\Current\TabStrip\TabStrip.epj"
    .MainForm := TabStripForm
    .Path := "C:\Current\TabStrip\"
    .EXEName := "TabStrip"
    With .AccessControl
      .ObjectAccess := "R,W,C,M,P"
    End With  'TabStripSample.AccessControl
  End With  'TabStripSample
' Reconstruction commands for object: BMPChkBox
'
  With BMPChkBox
    .LoadType := "MemoryBased"
    .FileName := "TabStrip.ero"
    .ResId := 808
  End With  'BMPChkBox
' Reconstruction commands for object: TabStripForm
'
  With TabStripForm
    .Caption := "Tab Strip"
    .Move(3345, 960, 9525, 6345)
    .BorderStyle := "Fixed Double"
    .MaxButton := False
    .MinButton := False
    .SampleDir := "C:\Current\TabStrip\"
    .SampleName := "TabStrip"
    With .TabStrip1
      .Caption := "TabStrip1"
      .ZOrder := 8
      .Move(150, 150, 9150, 4800)
      .ImageListRef := TabStripForm.TabStrip1.Img1
      .SelectedItem := TabStripForm.TabStrip1.AutoTab1
      .TabFixedWidth := 3000
      With .AutoTab1
        .Caption := "Command Buttons"
        .Icon := 1
        .TabForm := TabStripForm.SubForm1
      End With  'TabStripForm.TabStrip1.AutoTab1
      With .AutoTab2
        .Caption := "Check Boxes"
        .Icon := 2
        .TabForm := TabStripForm.SubForm2
      End With  'TabStripForm.TabStrip1.AutoTab2
      With .AutoTab3
        .Caption := "Option Buttons"
        .TabForm := TabStripForm.SubForm3
      End With  'TabStripForm.TabStrip1.AutoTab3
      With .Img1
        .ImageWidth := 24
        .ImageHeight := 24
      End With  'TabStripForm.TabStrip1.Img1
    End With  'TabStripForm.TabStrip1
    With .SubForm1
      .ZOrder := 1
      .Move(210, 615, 9030, 4275)
      .BevelInner := "Raised"
      .BevelOuter := "Raised"
      .BevelWidth := 1
      .BorderStyle := "None"
      .MaxButton := False
      .ControlBox := False
      .Parent := TabStripForm
      .Visible := True
      With .Button1
        .Caption := "Button1"
        .ZOrder := 8
        .Move(150, 150, 4215, 768)
      End With  'TabStripForm.SubForm1.Button1
      With .Button2
        .Caption := "Button2"
        .ZOrder := 7
        .Move(150, 1218, 4215, 768)
      End With  'TabStripForm.SubForm1.Button2
      With .Button3
        .Caption := "Button3"
        .ZOrder := 6
        .Move(150, 2287, 4215, 768)
      End With  'TabStripForm.SubForm1.Button3
      With .Button4
        .Caption := "Button4"
        .ZOrder := 5
        .Move(150, 3356, 4215, 768)
      End With  'TabStripForm.SubForm1.Button4
      With .Button5
        .Caption := "Button5"
        .ZOrder := 1
        .Move(4665, 150, 4215, 768)
      End With  'TabStripForm.SubForm1.Button5
      With .Button6
        .Caption := "Button6"
        .ZOrder := 2
        .Move(4665, 1218, 4215, 768)
      End With  'TabStripForm.SubForm1.Button6
      With .Button7
        .Caption := "Button7"
        .ZOrder := 3
        .Move(4665, 2287, 4215, 768)
      End With  'TabStripForm.SubForm1.Button7
      With .Button8
        .Caption := "Button8"
        .ZOrder := 4
        .Move(4665, 3356, 4215, 768)
      End With  'TabStripForm.SubForm1.Button8
    End With  'TabStripForm.SubForm1
    With .SubForm2
      .ZOrder := 3
      .Move(210, 615, 9030, 4275)
      .BevelInner := "Raised"
      .BevelOuter := "Inset"
      .BorderStyle := "None"
      .MaxButton := False
      .ControlBox := False
      .Parent := TabStripForm
      .Visible := True
      With .CHKRed
        .Caption := "Red"
        .ForeColor := 255
        .ZOrder := 4
        .Move(150, 150, 2710, 1125)
      End With  'TabStripForm.SubForm2.CHKRed
      With .CHKBlue
        .Caption := "Blue"
        .ForeColor := 16711680
        .ZOrder := 3
        .Move(150, 3000, 2710, 1125)
      End With  'TabStripForm.SubForm2.CHKBlue
      With .CHKGreen
        .Caption := "Green"
        .ForeColor := 65280
        .ZOrder := 2
        .Move(150, 1575, 2710, 1125)
      End With  'TabStripForm.SubForm2.CHKGreen
      With .LBLCBox
        .BackColor := 0
        .ForeColor := 0
        .ZOrder := 1
        .Move(3160, 150, 5720, 3975)
      End With  'TabStripForm.SubForm2.LBLCBox
    End With  'TabStripForm.SubForm2
    With .SubForm3
      .ZOrder := 2
      .Move(210, 615, 9030, 4275)
      .BorderStyle := "None"
      .MaxButton := False
      .ControlBox := False
      .Parent := TabStripForm
      .Visible := True
      With .OBLockDown
        .Caption := "Don't let me leave this tab"
        .ZOrder := 2
        .Move(2257, 0, 4515, 2137)
      End With  'TabStripForm.SubForm3.OBLockDown
      With .OBFreedom
        .Caption := "I'm tired of this tab, let me go."
        .ZOrder := 1
        .Move(2257, 2137, 4515, 2137)
        .TabStop := True
      End With  'TabStripForm.SubForm3.OBFreedom
    End With  'TabStripForm.SubForm3
    With .CHKMultiRow
      .Caption := "Multi Row"
      .ZOrder := 7
      .Move(7020, 5100, 2265, 450)
    End With  'TabStripForm.CHKMultiRow
    With .CHKStyle
      .Caption := "Style: Tabs"
      .ZOrder := 6
      .Move(4725, 5100, 2265, 450)
      .Value := "Checked"
    End With  'TabStripForm.CHKStyle
    With .CHKFixed
      .Caption := "Fixed Width"
      .ZOrder := 5
      .Move(2430, 5100, 2265, 450)
    End With  'TabStripForm.CHKFixed
    With .CHKIcons
      .Caption := "Display Icons"
      .ZOrder := 4
      .Move(150, 5100, 2265, 450)
      .Value := "Checked"
    End With  'TabStripForm.CHKIcons
    With .helpfile
      .FileName := "C:\Current\TabStrip\TabStrip.hlp"
    End With  'TabStripForm.helpfile
  End With  'TabStripForm
End Code