home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
- Object = "{70395669-C294-4A5A-A7F3-EDA4A19841E1}#2.1#0"; "KRScroll.ocx"
- Begin VB.Form frmMain
- Caption = "Kath-Rock - Image Viewer"
- ClientHeight = 5415
- ClientLeft = 60
- ClientTop = 630
- ClientWidth = 7005
- Icon = "Main.frx":0000
- KeyPreview = -1 'True
- LinkTopic = "Form1"
- LockControls = -1 'True
- ScaleHeight = 361
- ScaleMode = 3 'Pixel
- ScaleWidth = 467
- Begin MSComctlLib.ImageList imlTabs
- Left = 1860
- Top = 3885
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483633
- ImageWidth = 14
- ImageHeight = 15
- MaskColor = -2147483633
- UseMaskColor = 0 'False
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 2
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":1042
- Key = "On"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":136E
- Key = "Off"
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.ImageList imlToolsDisabled
- Left = 1140
- Top = 3885
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 32
- ImageHeight = 32
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 6
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":169A
- Key = "Folder"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":2376
- Key = "Views"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":2692
- Key = "AddTabs"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":29AE
- Key = "DelTab"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":2CD2
- Key = "Edit"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":39AE
- Key = "Exit"
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.ImageList imlToolsHover
- Left = 570
- Top = 3885
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 32
- ImageHeight = 32
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 6
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":3CCA
- Key = "Folder"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":49A6
- Key = "Views"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":4CC2
- Key = "AddTabs"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":4FDE
- Key = "DelTab"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":5302
- Key = "Edit"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":5FDE
- Key = "Exit"
- EndProperty
- EndProperty
- End
- Begin VB.Timer tmrPos
- Interval = 200
- Left = 2655
- Top = 4020
- End
- Begin VB.PictureBox picFrame
- Height = 1965
- Left = 2925
- OLEDropMode = 1 'Manual
- ScaleHeight = 127
- ScaleMode = 3 'Pixel
- ScaleWidth = 91
- TabIndex = 5
- TabStop = 0 'False
- Top = 1110
- Width = 1425
- Begin vbpKRScroll.KRScroll krsHorz
- Height = 195
- Left = 0
- TabIndex = 8
- TabStop = 0 'False
- Top = 1710
- Width = 1365
- _ExtentX = 2408
- _ExtentY = 344
- AutoSystemResize= -1 'True
- Orientation = 1
- OverlapPosition = 2
- OverlapTwips = 195
- BorderStyle = 0
- FocusRect = 0 'False
- MouseWheel = 0
- End
- Begin vbpKRScroll.KRScroll krsVert
- Height = 1725
- Left = 1170
- TabIndex = 7
- TabStop = 0 'False
- Top = -15
- Width = 195
- _ExtentX = 344
- _ExtentY = 3043
- AutoSystemResize= -1 'True
- BorderStyle = 0
- FocusRect = 0 'False
- MouseWheel = 0
- End
- Begin VB.PictureBox picView
- Appearance = 0 'Flat
- AutoRedraw = -1 'True
- AutoSize = -1 'True
- ForeColor = &H80000008&
- Height = 780
- Left = 0
- OLEDropMode = 1 'Manual
- ScaleHeight = 50
- ScaleMode = 3 'Pixel
- ScaleWidth = 50
- TabIndex = 6
- Top = 0
- Width = 780
- End
- End
- Begin MSComctlLib.TabStrip tbsMain
- Height = 3150
- Left = 2835
- TabIndex = 4
- Top = 720
- Width = 2715
- _ExtentX = 4789
- _ExtentY = 5556
- MultiRow = -1 'True
- TabFixedHeight = 503
- TabMinWidth = 1005
- ImageList = "imlTabs"
- _Version = 393216
- BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
- NumTabs = 1
- BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
- ImageVarType = 2
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.StatusBar sbrMain
- Align = 2 'Align Bottom
- Height = 375
- Left = 0
- TabIndex = 3
- Top = 5040
- Width = 7005
- _ExtentX = 12356
- _ExtentY = 661
- _Version = 393216
- BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
- NumPanels = 3
- BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
- AutoSize = 2
- Object.Width = 2646
- MinWidth = 2646
- EndProperty
- BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
- Alignment = 1
- AutoSize = 2
- Object.Width = 2646
- MinWidth = 2646
- EndProperty
- BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
- Alignment = 1
- AutoSize = 2
- Object.Width = 2646
- MinWidth = 2646
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.ListView lvwFiles
- Height = 3195
- Left = 0
- TabIndex = 1
- Top = 690
- Width = 2595
- _ExtentX = 4577
- _ExtentY = 5636
- LabelEdit = 1
- MultiSelect = -1 'True
- LabelWrap = -1 'True
- HideSelection = 0 'False
- _Version = 393217
- ForeColor = -2147483640
- BackColor = -2147483643
- BorderStyle = 1
- Appearance = 1
- NumItems = 5
- BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
- Text = "Filename"
- Object.Width = 2540
- EndProperty
- BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
- Alignment = 1
- SubItemIndex = 1
- Text = "Size"
- Object.Width = 1587
- EndProperty
- BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
- SubItemIndex = 2
- Text = "Type"
- Object.Width = 2540
- EndProperty
- BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
- SubItemIndex = 3
- Text = "Modified"
- Object.Width = 2117
- EndProperty
- BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
- SubItemIndex = 4
- Text = "Attributes"
- Object.Width = 1587
- EndProperty
- End
- Begin VB.FileListBox filFiles
- Height = 285
- Left = 1950
- Pattern = "*.bmp;*.dib;*.rle;*.gif;*.jpg;*.jpe;*.wmf;*.emf;*.ico;*.cur"
- TabIndex = 0
- TabStop = 0 'False
- Top = 4650
- Visible = 0 'False
- Width = 1215
- End
- Begin MSComctlLib.ImageList imlTools
- Left = 0
- Top = 3885
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 32
- ImageHeight = 32
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 6
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":62FA
- Key = "Folder"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":6FD6
- Key = "Views"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":72F2
- Key = "AddTabs"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":760E
- Key = "DelTab"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":7932
- Key = "Edit"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":860E
- Key = "Exit"
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.Toolbar tbrMain
- Align = 1 'Align Top
- Height = 600
- Left = 0
- TabIndex = 2
- Top = 0
- Width = 7005
- _ExtentX = 12356
- _ExtentY = 1058
- ButtonWidth = 1032
- ButtonHeight = 1005
- Appearance = 1
- Style = 1
- ImageList = "imlTools"
- DisabledImageList= "imlToolsDisabled"
- HotImageList = "imlToolsHover"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 12
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "Folder"
- Object.ToolTipText = "Select Folder"
- ImageKey = "Folder"
- Style = 5
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "Views"
- Object.ToolTipText = "Change View"
- ImageKey = "Views"
- Style = 5
- EndProperty
- BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "AddTabs"
- Object.ToolTipText = "Add Tab(s) from selected Image(s)"
- ImageKey = "AddTabs"
- EndProperty
- BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "DelTab"
- Object.ToolTipText = "Delete Selected Tab"
- ImageKey = "DelTab"
- EndProperty
- BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "Edit"
- Object.ToolTipText = "Edit Current Image"
- ImageKey = "Edit"
- EndProperty
- BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Key = "Exit"
- Object.ToolTipText = "Exit Program"
- ImageKey = "Exit"
- EndProperty
- BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.ImageList imlToolsSm
- Left = 0
- Top = 4440
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 6
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":892A
- Key = "Folder"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":8CC4
- Key = "Views"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":8E1E
- Key = "AddTabs"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":8F78
- Key = "DelTab"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":90D2
- Key = "Edit"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":946C
- Key = "Exit"
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.ImageList imlToolsHoverSm
- Left = 570
- Top = 4440
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 6
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":95C6
- Key = "Folder"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":9960
- Key = "View"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":9ABA
- Key = "AddTabs"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":9C14
- Key = "DelTab"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":9D6E
- Key = "Edit"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":A108
- Key = "Exit"
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.ImageList imlToolsDisabledSm
- Left = 1140
- Top = 4440
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 6
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":A262
- Key = "Folder"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":A5FC
- Key = "View"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":A756
- Key = "AddTabs"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":A8B0
- Key = "DelTab"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":AA0A
- Key = "Edit"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "Main.frx":ADA4
- Key = "Exit"
- EndProperty
- EndProperty
- End
- Begin VB.Image imgSplit
- Height = 3165
- Left = 2670
- MousePointer = 9 'Size W E
- Top = 705
- Width = 75
- End
- Begin VB.Menu mnuFile
- Caption = "&File"
- Begin VB.Menu mnuFile_Select
- Caption = "&Select Folder"
- End
- Begin VB.Menu mnuRecent
- Caption = "&Recent Folders"
- Begin VB.Menu mnuRecent_Logging
- Caption = "&Log Recent Folders"
- End
- Begin VB.Menu mnuRecent_Clear
- Caption = "&Clear Recent Folders Log"
- End
- Begin VB.Menu mnuRecent_Line10
- Caption = "-"
- End
- Begin VB.Menu mnuRecent_Folders
- Caption = "(Empty)"
- Enabled = 0 'False
- Index = 0
- End
- End
- Begin VB.Menu mnuFile_Line10
- Caption = "-"
- End
- Begin VB.Menu mnuFile_Edit
- Caption = "&Edit Current Image"
- End
- Begin VB.Menu mnuFile_Line20
- Caption = "-"
- End
- Begin VB.Menu mnuFile_Exit
- Caption = "E&xit"
- End
- End
- Begin VB.Menu mnuViews
- Caption = "&View"
- Begin VB.Menu mnuViews_FileList
- Caption = "&File List"
- Begin VB.Menu mnu Beginrty
- tV s6A-0t9ty
- BeginP =e _Es6 Enent_ileList
- End
- BegS362"
- cseC 12632256
- _Version = 393216
- 393216
- 393216
- 5Begin VB.Menu mnuFile_Edit
- Captione EndProperty
- BeginProperty ListD&FiLtD&FiLtD&FiSx
- CViews_FileList
- Rh7ginProperty Li1e ImageHeiH g"
- Rh7ginPropacn ugeHeiH g" g"
- Pro Rh7ginProperty Li1Aty Le NumListImages i1Aty=2ty _EndPropecen&n " 3932n VB.Menum6eNum2enu mnu8ndPropecen&n " 3932n VB.Me7File
- Caption = "RnFile
- CaVan "A_Lition = "&Recentt_ileLi0seCC0F0283628}
- Picture r6 Be Rh7ginProperty Li1Atlders"99(ure r6 Be Rh7ginProperty Li1Atlderl"6icture r6 Be RhsPropacn ugeHeiH g" g"
-