home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Ulli's_VB_3713311242001.psc / fXref.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-11-24  |  14.9 KB  |  419 lines
  1. VERSION 5.00
  2. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  5. Begin VB.Form fXref 
  6.    BackColor       =   &H00E0E0E0&
  7.    ClientHeight    =   6795
  8.    ClientLeft      =   2190
  9.    ClientTop       =   2235
  10.    ClientWidth     =   5430
  11.    Icon            =   "fXref.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    ScaleHeight     =   6795
  15.    ScaleWidth      =   5430
  16.    StartUpPosition =   2  'Bildschirmmitte
  17.    Begin MSComctlLib.ImageList imgList 
  18.       Left            =   2100
  19.       Top             =   3270
  20.       _ExtentX        =   1005
  21.       _ExtentY        =   1005
  22.       BackColor       =   -2147483643
  23.       ImageWidth      =   16
  24.       ImageHeight     =   16
  25.       MaskColor       =   12632256
  26.       UseMaskColor    =   0   'False
  27.       _Version        =   393216
  28.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  29.          NumListImages   =   29
  30.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  31.             Picture         =   "fXref.frx":030A
  32.             Key             =   "Cla"
  33.          EndProperty
  34.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  35.             Picture         =   "fXref.frx":041E
  36.             Key             =   "FilC"
  37.          EndProperty
  38.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  39.             Picture         =   "fXref.frx":0532
  40.             Key             =   "FilO"
  41.          EndProperty
  42.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  43.             Picture         =   "fXref.frx":0646
  44.             Key             =   "Con"
  45.          EndProperty
  46.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  47.             Picture         =   "fXref.frx":075A
  48.             Key             =   "Des"
  49.          EndProperty
  50.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  51.             Picture         =   "fXref.frx":086E
  52.             Key             =   "For"
  53.          EndProperty
  54.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  55.             Picture         =   "fXref.frx":0982
  56.             Key             =   "Chi"
  57.          EndProperty
  58.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  59.             Picture         =   "fXref.frx":0AA2
  60.             Key             =   "MDI"
  61.          EndProperty
  62.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  63.             Picture         =   "fXref.frx":0BB6
  64.             Key             =   "Mod"
  65.          EndProperty
  66.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  67.             Picture         =   "fXref.frx":0CCA
  68.             Key             =   "PrjAEx"
  69.          EndProperty
  70.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  71.             Picture         =   "fXref.frx":0DDE
  72.             Key             =   "PrjCtl"
  73.          EndProperty
  74.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  75.             Picture         =   "fXref.frx":0EF2
  76.             Key             =   "PrjDll"
  77.          EndProperty
  78.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  79.             Picture         =   "fXref.frx":1006
  80.             Key             =   "PrjStd"
  81.          EndProperty
  82.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  83.             Picture         =   "fXref.frx":1126
  84.             Key             =   "Pro"
  85.          EndProperty
  86.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  87.             Picture         =   "fXref.frx":1246
  88.             Key             =   "Res"
  89.          EndProperty
  90.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  91.             Picture         =   "fXref.frx":1362
  92.             Key             =   "Rel"
  93.          EndProperty
  94.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  95.             Picture         =   "fXref.frx":1476
  96.             Key             =   "Dsc"
  97.          EndProperty
  98.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  99.             Picture         =   "fXref.frx":158A
  100.             Key             =   "Lbr"
  101.          EndProperty
  102.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  103.             Picture         =   "fXref.frx":169E
  104.             Key             =   "Rfr"
  105.          EndProperty
  106.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  107.             Picture         =   "fXref.frx":17B2
  108.             Key             =   "Unk"
  109.          EndProperty
  110.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  111.             Picture         =   "fXref.frx":18CE
  112.             Key             =   "Use"
  113.          EndProperty
  114.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  115.             Picture         =   "fXref.frx":19EA
  116.             Key             =   "Ref"
  117.          EndProperty
  118.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  119.             Picture         =   "fXref.frx":1AFE
  120.             Key             =   "Dup"
  121.          EndProperty
  122.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  123.             Picture         =   "fXref.frx":1C1A
  124.             Key             =   "Tol"
  125.          EndProperty
  126.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  127.             Picture         =   "fXref.frx":1D2E
  128.             Key             =   "Var"
  129.          EndProperty
  130.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  131.             Picture         =   "fXref.frx":1E42
  132.             Key             =   "Cst"
  133.          EndProperty
  134.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  135.             Picture         =   "fXref.frx":1F56
  136.             Key             =   "Eve"
  137.          EndProperty
  138.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  139.             Picture         =   "fXref.frx":206A
  140.             Key             =   "Prp"
  141.          EndProperty
  142.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  143.             Picture         =   "fXref.frx":217E
  144.             Key             =   "Sub"
  145.          EndProperty
  146.       EndProperty
  147.    End
  148.    Begin MSComDlg.CommonDialog cDlg 
  149.       Left            =   4155
  150.       Top             =   405
  151.       _ExtentX        =   847
  152.       _ExtentY        =   847
  153.       _Version        =   393216
  154.       CancelError     =   -1  'True
  155.       DefaultExt      =   "RTF"
  156.       DialogTitle     =   "Save Cross Reference"
  157.       FileName        =   "XREF.RTF"
  158.    End
  159.    Begin RichTextLib.RichTextBox rtfXRef 
  160.       Height          =   270
  161.       Left            =   4155
  162.       TabIndex        =   6
  163.       Top             =   900
  164.       Visible         =   0   'False
  165.       Width           =   465
  166.       _ExtentX        =   820
  167.       _ExtentY        =   476
  168.       _Version        =   393217
  169.       TextRTF         =   $"fXref.frx":2292
  170.    End
  171.    Begin MSComctlLib.ProgressBar pgb 
  172.       Height          =   240
  173.       Left            =   90
  174.       TabIndex        =   3
  175.       Top             =   765
  176.       Visible         =   0   'False
  177.       Width           =   2235
  178.       _ExtentX        =   3942
  179.       _ExtentY        =   423
  180.       _Version        =   393216
  181.       Appearance      =   1
  182.    End
  183.    Begin VB.PictureBox picColorkey 
  184.       AutoRedraw      =   -1  'True
  185.       BackColor       =   &H00FFFFFF&
  186.       Enabled         =   0   'False
  187.       BeginProperty Font 
  188.          Name            =   "Arial"
  189.          Size            =   9
  190.          Charset         =   0
  191.          Weight          =   700
  192.          Underline       =   0   'False
  193.          Italic          =   0   'False
  194.          Strikethrough   =   0   'False
  195.       EndProperty
  196.       Height          =   1005
  197.       Left            =   2430
  198.       ScaleHeight     =   945
  199.       ScaleWidth      =   2850
  200.       TabIndex        =   2
  201.       ToolTipText     =   "Color Key"
  202.       Top             =   300
  203.       Width           =   2910
  204.    End
  205.    Begin MSComctlLib.TreeView tvwRef 
  206.       Height          =   5235
  207.       Left            =   90
  208.       TabIndex        =   0
  209.       Top             =   1455
  210.       Width           =   5250
  211.       _ExtentX        =   9260
  212.       _ExtentY        =   9234
  213.       _Version        =   393217
  214.       Indentation     =   176
  215.       LabelEdit       =   1
  216.       Style           =   7
  217.       ImageList       =   "imgList"
  218.       Appearance      =   1
  219.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  220.          Name            =   "Fixedsys"
  221.          Size            =   9
  222.          Charset         =   0
  223.          Weight          =   400
  224.          Underline       =   0   'False
  225.          Italic          =   0   'False
  226.          Strikethrough   =   0   'False
  227.       EndProperty
  228.    End
  229.    Begin VB.Image imgUlli 
  230.       BorderStyle     =   1  'Fest Einfach
  231.       Height          =   765
  232.       Left            =   90
  233.       Picture         =   "fXref.frx":2367
  234.       Top             =   300
  235.       Visible         =   0   'False
  236.       Width           =   825
  237.    End
  238.    Begin VB.Image LED 
  239.       Appearance      =   0  '2D
  240.       BorderStyle     =   1  'Fest Einfach
  241.       Height          =   195
  242.       Index           =   1
  243.       Left            =   105
  244.       Picture         =   "fXref.frx":404D
  245.       Top             =   435
  246.       Width           =   195
  247.    End
  248.    Begin VB.Label lblDupl 
  249.       BackColor       =   &H00000000&
  250.       BackStyle       =   0  'Transparent
  251.       BeginProperty Font 
  252.          Name            =   "MS Sans Serif"
  253.          Size            =   8.25
  254.          Charset         =   0
  255.          Weight          =   700
  256.          Underline       =   0   'False
  257.          Italic          =   0   'False
  258.          Strikethrough   =   0   'False
  259.       EndProperty
  260.       ForeColor       =   &H000000C0&
  261.       Height          =   420
  262.       Left            =   1155
  263.       TabIndex        =   7
  264.       Top             =   540
  265.       Width           =   1140
  266.    End
  267.    Begin VB.Label lblDirty 
  268.       BackColor       =   &H00000000&
  269.       BackStyle       =   0  'Transparent
  270.       Caption         =   "Save your Project"
  271.       BeginProperty Font 
  272.          Name            =   "MS Sans Serif"
  273.          Size            =   8.25
  274.          Charset         =   0
  275.          Weight          =   700
  276.          Underline       =   0   'False
  277.          Italic          =   0   'False
  278.          Strikethrough   =   0   'False
  279.       EndProperty
  280.       ForeColor       =   &H00000000&
  281.       Height          =   195
  282.       Left            =   90
  283.       TabIndex        =   5
  284.       ToolTipText     =   "You have changed something..."
  285.       Top             =   1125
  286.       Width           =   1530
  287.    End
  288.    Begin VB.Label lblLoading 
  289.       BackColor       =   &H00000000&
  290.       BackStyle       =   0  'Transparent
  291.       ForeColor       =   &H00000000&
  292.       Height          =   195
  293.       Left            =   345
  294.       TabIndex        =   4
  295.       Top             =   435
  296.       Width           =   2010
  297.    End
  298.    Begin VB.Label lbl 
  299.       BackColor       =   &H00000000&
  300.       BackStyle       =   0  'Transparent
  301.       Caption         =   "Color Key"
  302.       ForeColor       =   &H00000000&
  303.       Height          =   210
  304.       Left            =   2445
  305.       TabIndex        =   1
  306.       Top             =   75
  307.       Width           =   675
  308.    End
  309.    Begin VB.Image LED 
  310.       Appearance      =   0  '2D
  311.       BorderStyle     =   1  'Fest Einfach
  312.       Height          =   195
  313.       Index           =   0
  314.       Left            =   105
  315.       Picture         =   "fXref.frx":4513
  316.       Top             =   435
  317.       Width           =   195
  318.    End
  319.    Begin VB.Menu mnuFile 
  320.       Caption         =   "&File"
  321.       Begin VB.Menu mnuSave 
  322.          Caption         =   "&Export"
  323.          Begin VB.Menu mnuColor 
  324.             Caption         =   "in &Color"
  325.          End
  326.          Begin VB.Menu mnuBW 
  327.             Caption         =   "in &Black && White"
  328.          End
  329.       End
  330.       Begin VB.Menu mnuSep1 
  331.          Caption         =   "-"
  332.       End
  333.       Begin VB.Menu mnuClose 
  334.          Caption         =   "&Close"
  335.          Shortcut        =   ^Q
  336.       End
  337.    End
  338.    Begin VB.Menu mnuxRef 
  339.       Caption         =   "x&Ref"
  340.       Begin VB.Menu mnuCopy 
  341.          Caption         =   "&Copy to Clipboard"
  342.       End
  343.       Begin VB.Menu mnuSep2 
  344.          Caption         =   "-"
  345.       End
  346.       Begin VB.Menu mnuExpand 
  347.          Caption         =   "E&xpand all"
  348.       End
  349.       Begin VB.Menu mnuCollapse 
  350.          Caption         =   "C&ollapse all"
  351.       End
  352.       Begin VB.Menu mnuSep3 
  353.          Caption         =   "-"
  354.       End
  355.       Begin VB.Menu mnuFind 
  356.          Caption         =   "&Find..."
  357.          Shortcut        =   ^F
  358.       End
  359.    End
  360.    Begin VB.Menu mnuHelp 
  361.       Caption         =   "&?"
  362.       Begin VB.Menu mnuAbout 
  363.          Caption         =   "&About..."
  364.       End
  365.       Begin VB.Menu mnuSep4 
  366.          Caption         =   "-"
  367.       End
  368.       Begin VB.Menu mnuMail 
  369.          Caption         =   "&Send Mail to Author..."
  370.       End
  371.    End
  372. Attribute VB_Name = "fXref"
  373. Attribute VB_GlobalNameSpace = False
  374. Attribute VB_Creatable = False
  375. Attribute VB_PredeclaredId = True
  376. Attribute VB_Exposed = False
  377. Option Explicit
  378. DefLng A-Z 'we're 32 bit
  379. Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
  380. Private Const CRL = "Cross Reference Listing "
  381. Private RightMargin
  382. Private BottomMargin
  383. Private i, j
  384. Private OutCount
  385. Private MsgType
  386. Private myColorKey(1 To 6)  As String
  387. Private myProjectName       As String
  388. Private InsForBMP           As String 'six spaces icon width if with icons
  389. Private Text                As String
  390. Private MemberType          As String
  391. Private ClipCopy            As Boolean
  392. Private IsColored           As OLE_COLOR
  393. Private Node1               As MSComctlLib.Node
  394. Private Node2               As MSComctlLib.Node
  395. Private Node3               As MSComctlLib.Node
  396. Private Node4               As MSComctlLib.Node
  397. Private Node4    =   "C&olll StlLib.Node
  398. Private Node4  -}}}}}}}}}}}}}}}ace = }}}}}"
  399. ivate MsgType
  400. Private myColorKey(1 To 6)  As String
  401. PrivW pC0&
  402.   ight   ,es ico ico ico ico ico l"sp Begin Vte IsColoredrlctlLib.Node
  403. Private Noding
  404. PrivW )ilatable = False
  405. Attribute VB2=  Pri   =   "fXStrcg
  406. PrivW )ilatable = False
  407. Attribute VB2=  Pri   =   "fXStrcg
  408. PrivW )ilatable = False
  409. A=  Priiiiiiiiiiiiiii      m=   39hPBB
  410. X    Width                              oClos=   39hPf.frx":217E
  411.             Key             =   "Sub"
  412.          EndProperty
  413.  OdPf.fru16A- R  ighr  elCe Node3         Sub"
  414.          EndProperty
  415.  OdPf.fru16A- R  ighr  elCe Node3     jectName   B2=  Pri   =te Nod       As OLE_COLOR
  416. Private  9
  417.  uru16A- R  ighr   =   &H0000ndPrhr         Ecr"
  418.      aaaaaa
  419.