1*cdf0e10cSrcweirVERSION 5.00
2*cdf0e10cSrcweirBegin VB.Form SearchDocs
3*cdf0e10cSrcweir   BorderStyle     =   3  'Fixed Dialog
4*cdf0e10cSrcweir   Caption         =   "Looking for Files"
5*cdf0e10cSrcweir   ClientHeight    =   1830
6*cdf0e10cSrcweir   ClientLeft      =   2505
7*cdf0e10cSrcweir   ClientTop       =   2325
8*cdf0e10cSrcweir   ClientWidth     =   7110
9*cdf0e10cSrcweir   ControlBox      =   0   'False
10*cdf0e10cSrcweir   LinkTopic       =   "Form1"
11*cdf0e10cSrcweir   MaxButton       =   0   'False
12*cdf0e10cSrcweir   MinButton       =   0   'False
13*cdf0e10cSrcweir   ScaleHeight     =   1830
14*cdf0e10cSrcweir   ScaleWidth      =   7110
15*cdf0e10cSrcweir   ShowInTaskbar   =   0   'False
16*cdf0e10cSrcweir   Visible         =   0   'False
17*cdf0e10cSrcweir   Begin VB.CommandButton AbortScan
18*cdf0e10cSrcweir      Cancel          =   -1  'True
19*cdf0e10cSrcweir      Caption         =   "Cancel"
20*cdf0e10cSrcweir      CausesValidation=   0   'False
21*cdf0e10cSrcweir      Height          =   375
22*cdf0e10cSrcweir      Left            =   2880
23*cdf0e10cSrcweir      TabIndex        =   1
24*cdf0e10cSrcweir      Top             =   1350
25*cdf0e10cSrcweir      Width           =   1455
26*cdf0e10cSrcweir   End
27*cdf0e10cSrcweir   Begin VB.Label Label5
28*cdf0e10cSrcweir      Caption         =   "Label5"
29*cdf0e10cSrcweir      Height          =   440
30*cdf0e10cSrcweir      Left            =   120
31*cdf0e10cSrcweir      TabIndex        =   5
32*cdf0e10cSrcweir      Top             =   120
33*cdf0e10cSrcweir      Width           =   6870
34*cdf0e10cSrcweir      WordWrap        =   -1  'True
35*cdf0e10cSrcweir   End
36*cdf0e10cSrcweir   Begin VB.Label Label4
37*cdf0e10cSrcweir      Caption         =   "gefundene Dokumente:"
38*cdf0e10cSrcweir      Height          =   195
39*cdf0e10cSrcweir      Left            =   120
40*cdf0e10cSrcweir      TabIndex        =   4
41*cdf0e10cSrcweir      Top             =   960
42*cdf0e10cSrcweir      Width           =   1800
43*cdf0e10cSrcweir   End
44*cdf0e10cSrcweir   Begin VB.Label Label3
45*cdf0e10cSrcweir      Caption         =   "Pfad:"
46*cdf0e10cSrcweir      Height          =   195
47*cdf0e10cSrcweir      Left            =   120
48*cdf0e10cSrcweir      TabIndex        =   3
49*cdf0e10cSrcweir      Top             =   680
50*cdf0e10cSrcweir      Width           =   1800
51*cdf0e10cSrcweir   End
52*cdf0e10cSrcweir   Begin VB.Label Label2
53*cdf0e10cSrcweir      Caption         =   "Label2"
54*cdf0e10cSrcweir      Height          =   195
55*cdf0e10cSrcweir      Left            =   2040
56*cdf0e10cSrcweir      TabIndex        =   2
57*cdf0e10cSrcweir      Top             =   995
58*cdf0e10cSrcweir      Width           =   5595
59*cdf0e10cSrcweir   End
60*cdf0e10cSrcweir   Begin VB.Label Label1
61*cdf0e10cSrcweir      Caption         =   "Label1"
62*cdf0e10cSrcweir      Height          =   195
63*cdf0e10cSrcweir      Left            =   2040
64*cdf0e10cSrcweir      TabIndex        =   0
65*cdf0e10cSrcweir      Top             =   680
66*cdf0e10cSrcweir      Width           =   5595
67*cdf0e10cSrcweir   End
68*cdf0e10cSrcweirEnd
69*cdf0e10cSrcweirAttribute VB_Name = "SearchDocs"
70*cdf0e10cSrcweirAttribute VB_GlobalNameSpace = False
71*cdf0e10cSrcweirAttribute VB_Creatable = False
72*cdf0e10cSrcweirAttribute VB_PredeclaredId = True
73*cdf0e10cSrcweirAttribute VB_Exposed = False
74*cdf0e10cSrcweirOption Explicit
75*cdf0e10cSrcweir
76*cdf0e10cSrcweirPrivate Declare Function GetTickCount Lib "kernel32" () As Long
77*cdf0e10cSrcweir
78*cdf0e10cSrcweirPrivate Const C_MIN_WAIT_TIME   As Long = 1000
79*cdf0e10cSrcweirPrivate Const C_MIN_UPDATE_TIME As Long = 100
80*cdf0e10cSrcweir
81*cdf0e10cSrcweirPrivate g_SD_StartTime As Long
82*cdf0e10cSrcweirPrivate g_SD_LastUpdate As Long
83*cdf0e10cSrcweir
84*cdf0e10cSrcweirPublic g_SD_Abort As Boolean
85*cdf0e10cSrcweir
86*cdf0e10cSrcweirPrivate Sub Form_Load()
87*cdf0e10cSrcweir
88*cdf0e10cSrcweir    g_SD_Abort = False
89*cdf0e10cSrcweir    g_SD_StartTime = GetTickCount()
90*cdf0e10cSrcweir    g_SD_LastUpdate = g_SD_StartTime
91*cdf0e10cSrcweir
92*cdf0e10cSrcweir    SearchDocs.Visible = False
93*cdf0e10cSrcweir    SearchDocs.Caption = GetResString(SEARCH_CAPTION)
94*cdf0e10cSrcweir
95*cdf0e10cSrcweir    Label3.Caption = GetResString(SEARCH_PATH_LABEL)
96*cdf0e10cSrcweir    Label4.Caption = GetResString(SEARCH_FOUND_LABEL)
97*cdf0e10cSrcweir    Label5.Caption = GetResString(SEARCH_INFO_LABEL)
98*cdf0e10cSrcweirEnd Sub
99*cdf0e10cSrcweir
100*cdf0e10cSrcweirPublic Sub SD_UpdateProgress(curObject As String, curParent As String)
101*cdf0e10cSrcweir
102*cdf0e10cSrcweir    Dim currTicks As Long
103*cdf0e10cSrcweir    currTicks = GetTickCount()
104*cdf0e10cSrcweir
105*cdf0e10cSrcweir    If (Not SearchDocs.Visible) Then
106*cdf0e10cSrcweir        If (currTicks - g_SD_StartTime > C_MIN_WAIT_TIME) Then
107*cdf0e10cSrcweir            SearchDocs.Visible = True
108*cdf0e10cSrcweir        End If
109*cdf0e10cSrcweir    End If
110*cdf0e10cSrcweir    If (currTicks - g_SD_LastUpdate > C_MIN_UPDATE_TIME) Then
111*cdf0e10cSrcweir        g_SD_LastUpdate = currTicks
112*cdf0e10cSrcweir        Label1.Caption = curParent
113*cdf0e10cSrcweir        Label2.Caption = curObject
114*cdf0e10cSrcweir    End If
115*cdf0e10cSrcweirEnd Sub
116*cdf0e10cSrcweir
117*cdf0e10cSrcweirPrivate Sub AbortScan_Click()
118*cdf0e10cSrcweir    g_SD_Abort = True
119*cdf0e10cSrcweirEnd Sub
120*cdf0e10cSrcweir
121*cdf0e10cSrcweirPrivate Sub Form_Deactivate()
122*cdf0e10cSrcweir    SearchDocs.ZOrder (0)
123*cdf0e10cSrcweirEnd Sub
124*cdf0e10cSrcweir
125