home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Picture_Wo1781558132004.psc / Forms / frmPluginManager.frm < prev    next >
Text File  |  2004-05-03  |  13KB  |  366 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
  3. Begin VB.Form frmPlugManager 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Plugins Manager"
  6.    ClientHeight    =   5775
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   7620
  10.    Icon            =   "frmPluginManager.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   5775
  16.    ScaleWidth      =   7620
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin MSComctlLib.ListView lstMenuBar 
  20.       Height          =   4875
  21.       Left            =   180
  22.       TabIndex        =   5
  23.       ToolTipText     =   "Lists Available MenuBars."
  24.       Top             =   540
  25.       Visible         =   0   'False
  26.       Width           =   7215
  27.       _ExtentX        =   12726
  28.       _ExtentY        =   8599
  29.       View            =   3
  30.       LabelWrap       =   -1  'True
  31.       HideSelection   =   -1  'True
  32.       _Version        =   393217
  33.       ForeColor       =   -2147483640
  34.       BackColor       =   -2147483643
  35.       BorderStyle     =   1
  36.       Appearance      =   1
  37.       NumItems        =   3
  38.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  39.          Text            =   "Name"
  40.          Object.Width           =   3528
  41.       EndProperty
  42.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  43.          SubItemIndex    =   1
  44.          Text            =   "Version"
  45.          Object.Width           =   3528
  46.       EndProperty
  47.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  48.          SubItemIndex    =   2
  49.          Text            =   "Description"
  50.          Object.Width           =   8819
  51.       EndProperty
  52.    End
  53.    Begin MSComctlLib.ListView lstToolBox 
  54.       Height          =   4875
  55.       Left            =   180
  56.       TabIndex        =   4
  57.       ToolTipText     =   "Lists Available ToolBoxes."
  58.       Top             =   540
  59.       Visible         =   0   'False
  60.       Width           =   7215
  61.       _ExtentX        =   12726
  62.       _ExtentY        =   8599
  63.       View            =   3
  64.       LabelWrap       =   -1  'True
  65.       HideSelection   =   -1  'True
  66.       _Version        =   393217
  67.       ForeColor       =   -2147483640
  68.       BackColor       =   -2147483643
  69.       BorderStyle     =   1
  70.       Appearance      =   1
  71.       NumItems        =   3
  72.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  73.          Text            =   "Name"
  74.          Object.Width           =   2540
  75.       EndProperty
  76.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  77.          SubItemIndex    =   1
  78.          Text            =   "Version"
  79.          Object.Width           =   2540
  80.       EndProperty
  81.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  82.          SubItemIndex    =   2
  83.          Text            =   "Description"
  84.          Object.Width           =   2540
  85.       EndProperty
  86.    End
  87.    Begin MSComctlLib.ListView lstDecoders 
  88.       Height          =   4875
  89.       Left            =   180
  90.       TabIndex        =   3
  91.       ToolTipText     =   "Lists Available Decoders."
  92.       Top             =   540
  93.       Visible         =   0   'False
  94.       Width           =   7215
  95.       _ExtentX        =   12726
  96.       _ExtentY        =   8599
  97.       View            =   3
  98.       LabelWrap       =   -1  'True
  99.       HideSelection   =   -1  'True
  100.       _Version        =   393217
  101.       ForeColor       =   -2147483640
  102.       BackColor       =   -2147483643
  103.       BorderStyle     =   1
  104.       Appearance      =   1
  105.       NumItems        =   3
  106.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  107.          Text            =   "Name"
  108.          Object.Width           =   3528
  109.       EndProperty
  110.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  111.          SubItemIndex    =   1
  112.          Text            =   "Version"
  113.          Object.Width           =   3528
  114.       EndProperty
  115.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  116.          SubItemIndex    =   2
  117.          Text            =   "Description"
  118.          Object.Width           =   7056
  119.       EndProperty
  120.    End
  121.    Begin MSComctlLib.ListView lstEncoders 
  122.       Height          =   4875
  123.       Left            =   180
  124.       TabIndex        =   2
  125.       ToolTipText     =   "Lists Available Encoders."
  126.       Top             =   540
  127.       Visible         =   0   'False
  128.       Width           =   7215
  129.       _ExtentX        =   12726
  130.       _ExtentY        =   8599
  131.       View            =   3
  132.       LabelWrap       =   -1  'True
  133.       HideSelection   =   -1  'True
  134.       _Version        =   393217
  135.       ForeColor       =   -2147483640
  136.       BackColor       =   -2147483643
  137.       BorderStyle     =   1
  138.       Appearance      =   1
  139.       NumItems        =   3
  140.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  141.          Text            =   "Name"
  142.          Object.Width           =   3528
  143.       EndProperty
  144.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  145.          SubItemIndex    =   1
  146.          Text            =   "Version"
  147.          Object.Width           =   3528
  148.       EndProperty
  149.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  150.          SubItemIndex    =   2
  151.          Text            =   "Description"
  152.          Object.Width           =   7056
  153.       EndProperty
  154.    End
  155.    Begin MSComctlLib.ListView lstFilters 
  156.       Height          =   4875
  157.       Left            =   180
  158.       TabIndex        =   1
  159.       ToolTipText     =   "Lists Available Filters."
  160.       Top             =   540
  161.       Width           =   7215
  162.       _ExtentX        =   12726
  163.       _ExtentY        =   8599
  164.       View            =   3
  165.       LabelWrap       =   -1  'True
  166.       HideSelection   =   -1  'True
  167.       _Version        =   393217
  168.       ForeColor       =   -2147483640
  169.       BackColor       =   -2147483643
  170.       BorderStyle     =   1
  171.       Appearance      =   1
  172.       NumItems        =   3
  173.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  174.          Text            =   "Name"
  175.          Object.Width           =   3528
  176.       EndProperty
  177.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  178.          SubItemIndex    =   1
  179.          Text            =   "Version"
  180.          Object.Width           =   3528
  181.       EndProperty
  182.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  183.          SubItemIndex    =   2
  184.          Text            =   "Description"
  185.          Object.Width           =   7056
  186.       EndProperty
  187.    End
  188.    Begin MSComctlLib.TabStrip TabStrip 
  189.       Height          =   5445
  190.       Left            =   200
  191.       TabIndex        =   0
  192.       Top             =   90
  193.       Width           =   7395
  194.       _ExtentX        =   13044
  195.       _ExtentY        =   9604
  196.       MultiRow        =   -1  'True
  197.       Style           =   1
  198.       HotTracking     =   -1  'True
  199.       _Version        =   393216
  200.       BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} 
  201.          NumTabs         =   5
  202.          BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
  203.             Caption         =   "Filters"
  204.             Key             =   "FILTER"
  205.             ImageVarType    =   2
  206.          EndProperty
  207.          BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
  208.             Caption         =   "Encoders"
  209.             Key             =   "ENCODER"
  210.             ImageVarType    =   2
  211.          EndProperty
  212.          BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
  213.             Caption         =   "Decoders"
  214.             Key             =   "DECODER"
  215.             ImageVarType    =   2
  216.          EndProperty
  217.          BeginProperty Tab4 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
  218.             Caption         =   "ToolBox"
  219.             Key             =   "TOOLBOX"
  220.             ImageVarType    =   2
  221.          EndProperty
  222.          BeginProperty Tab5 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
  223.             Caption         =   "MenuBar"
  224.             Key             =   "MENUBAR"
  225.             ImageVarType    =   2
  226.          EndProperty
  227.       EndProperty
  228.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  229.          Name            =   "Courier New"
  230.          Size            =   9
  231.          Charset         =   0
  232.          Weight          =   700
  233.          Underline       =   0   'False
  234.          Italic          =   0   'False
  235.          Strikethrough   =   0   'False
  236.       EndProperty
  237.    End
  238.    Begin VB.Label lblStatus 
  239.       AutoSize        =   -1  'True
  240.       BackStyle       =   0  'Transparent
  241.       Height          =   195
  242.       Left            =   195
  243.       TabIndex        =   6
  244.       Top             =   5520
  245.       Width           =   45
  246.    End
  247.    Begin VB.Menu mnuPopUp 
  248.       Caption         =   ""
  249.       Visible         =   0   'False
  250.       Begin VB.Menu mnuAbout 
  251.          Caption         =   "&About"
  252.       End
  253.    End
  254. End
  255. Attribute VB_Name = "frmPlugManager"
  256. Attribute VB_GlobalNameSpace = False
  257. Attribute VB_Creatable = False
  258. Attribute VB_PredeclaredId = True
  259. Attribute VB_Exposed = False
  260.  
  261.  
  262. Private Sub Form_Unload(Cancel As Integer)
  263.     Cancel = True
  264.     Me.Hide
  265. End Sub
  266.  
  267. Private Sub lstDecoders_DblClick()
  268.     Call Plugs(GetDecoder(lstDecoders.SelectedItem.index + 1)).objInfo.About
  269. End Sub
  270.  
  271. Private Sub lstDecoders_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  272.     If Button = 2 Then
  273.         mnuAbout.Caption = "&About " & lstDecoders.SelectedItem.Text
  274.         PopupMenu mnuPopUp
  275.     End If
  276. End Sub
  277.  
  278. Private Sub lstEncoders_DblClick()
  279.     Call Plugs(GetEncoder(lstEncoders.SelectedItem.index + 1)).objInfo.About
  280. End Sub
  281.  
  282. Private Sub lstEncoders_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  283.     If Button = 2 Then
  284.         mnuAbout.Caption = "&About " & lstEncoders.SelectedItem.Text
  285.         PopupMenu mnuPopUp
  286.     End If
  287. End Sub
  288.  
  289. Private Sub lstFilters_DblClick()
  290.     Call Plugs(GetFilter(lstFilters.SelectedItem.Text)).objInfo.About
  291. End Sub
  292.  
  293.  
  294.  
  295. Private Sub lstFilters_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  296.     If Button = 2 Then
  297.         mnuAbout.Caption = "&About " & lstFilters.SelectedItem.Text
  298.         PopupMenu mnuPopUp
  299.     End If
  300. End Sub
  301.  
  302.  
  303.  
  304.  
  305.  
  306. Private Sub mnuAbout_Click()
  307.     Select Case TabStrip.SelectedItem.index
  308.         Case 1
  309.             lstFilters_DblClick
  310.         Case 2
  311.             mnuAbout.Caption = "&About " & lstEncoders.SelectedItem.Text
  312.             lstEncoders_DblClick
  313.         Case 3
  314.             mnuAbout.Caption = "&About " & lstDecoders.SelectedItem.Text
  315.             lstDecoders_DblClick
  316.         Case 4
  317.             mnuAbout.Caption = "&About " & lstToolBox.SelectedItem.Text
  318.         Case 5
  319.             mnuAbout.Caption = "&About " & lstMenuBar.SelectedItem.Text
  320.     End Select
  321. End Sub
  322.  
  323. Private Sub TabStrip_Click()
  324.     Select Case TabStrip.SelectedItem.index
  325.         Case 1              'Filters
  326.             lstFilters.Visible = True
  327.             lstEncoders.Visible = False
  328.             lstDecoders.Visible = False
  329.             lstToolBox.Visible = False
  330.             lstMenuBar.Visible = False
  331.             lblStatus = FilterCount & " Filter(s) Loaded."
  332.         Case 2              'Encoders
  333.             lstFilters.Visible = False
  334.             lstEncoders.Visible = True
  335.             lstDecoders.Visible = False
  336.             lstToolBox.Visible = False
  337.             lstMenuBar.Visible = False
  338.             lblStatus = EncoderCount & " Encoder(s) Loaded."
  339.        
  340.         Case 3              'Decoders
  341.             lstFilters.Visible = False
  342.             lstEncoders.Visible = False
  343.             lstDecoders.Visible = True
  344.             lstToolBox.Visible = False
  345.             lstMenuBar.Visible = False
  346.             lblStatus = DecoderCount & " Decoder(s) Loaded."
  347.         
  348.         Case 4              'ToolBox
  349.             lstFilters.Visible = False
  350.             lstEncoders.Visible = False
  351.             lstDecoders.Visible = False
  352.             lstToolBox.Visible = True
  353.             lstMenuBar.Visible = False
  354.             lblStatus = ToolBoxCount & " ToolBox(es) Loaded."
  355.         
  356.         Case 5              'MenuBar
  357.             lstFilters.Visible = False
  358.             lstEncoders.Visible = False
  359.             lstDecoders.Visible = False
  360.             lstToolBox.Visible = False
  361.             lstMenuBar.Visible = True
  362.             lblStatus = MenuBarCount & " MenuBar(s) Loaded."
  363.         
  364.     End Select
  365. End Sub
  366.