diff options
Diffstat (limited to 'migrationanalysis/src/wizard/ScanFolders.frm')
| -rw-r--r-- | migrationanalysis/src/wizard/ScanFolders.frm | 157 |
1 files changed, 157 insertions, 0 deletions
diff --git a/migrationanalysis/src/wizard/ScanFolders.frm b/migrationanalysis/src/wizard/ScanFolders.frm new file mode 100644 index 000000000000..4c725f5dbeb3 --- /dev/null +++ b/migrationanalysis/src/wizard/ScanFolders.frm @@ -0,0 +1,157 @@ +VERSION 5.00
+Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.ocx"
+Begin VB.Form ShowProgress
+ BorderStyle = 1 'Fixed Single
+ Caption = "Looking for Files"
+ ClientHeight = 2160
+ ClientLeft = 2505
+ ClientTop = 2325
+ ClientWidth = 7110
+ ControlBox = 0 'False
+ LinkTopic = "Form1"
+ MaxButton = 0 'False
+ MinButton = 0 'False
+ ScaleHeight = 2160
+ ScaleWidth = 7110
+ ShowInTaskbar = 0 'False
+ Visible = 0 'False
+ Begin MSComctlLib.ProgressBar ScanProgress
+ Height = 255
+ Left = 120
+ TabIndex = 2
+ Top = 1400
+ Width = 5500
+ _ExtentX = 9710
+ _ExtentY = 450
+ _Version = 393216
+ Appearance = 1
+ End
+ Begin VB.CommandButton AbortScan
+ Cancel = -1 'True
+ Caption = "Cancel"
+ CausesValidation= 0 'False
+ Height = 375
+ Left = 2880
+ TabIndex = 1
+ Top = 1760
+ Width = 1455
+ End
+ Begin VB.Label Label6
+ Caption = "X / Y"
+ Height = 195
+ Left = 5760
+ TabIndex = 7
+ Top = 1430
+ Width = 1200
+ End
+ Begin VB.Label Label5
+ Caption = "Label5"
+ Height = 440
+ Left = 120
+ TabIndex = 6
+ Top = 120
+ Width = 6870
+ End
+ Begin VB.Label Label4
+ Caption = "Label4"
+ Height = 195
+ Left = 120
+ TabIndex = 5
+ Top = 995
+ Width = 1155
+ End
+ Begin VB.Label Label3
+ Caption = "Label3"
+ Height = 195
+ Left = 120
+ TabIndex = 4
+ Top = 680
+ Width = 1155
+ End
+ Begin VB.Label Label2
+ Caption = "Label2"
+ Height = 195
+ Left = 1395
+ TabIndex = 3
+ Top = 995
+ Width = 5595
+ End
+ Begin VB.Label Label1
+ Caption = "Label1"
+ Height = 195
+ Left = 1395
+ TabIndex = 0
+ Top = 680
+ Width = 5595
+ End
+End
+Attribute VB_Name = "ShowProgress"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+
+Private Declare Function GetTickCount Lib "kernel32" () As Long
+
+Private Const C_MIN_WAIT_TIME As Long = 0
+Private Const C_MIN_UPDATE_TIME As Long = 100
+
+Private g_SP_StartTime As Long
+Private g_SP_LastUpdate As Long
+
+Public g_SP_Abort As Boolean
+Public g_SP_AllowOtherDLG As Boolean
+
+Public Sub SP_Init(maxIndex As Long)
+ g_SP_Abort = False
+ g_SP_AllowOtherDLG = False
+ g_SP_StartTime = GetTickCount()
+ g_SP_LastUpdate = g_SP_StartTime
+
+ ShowProgress.Visible = False
+ ShowProgress.Caption = GetResString(PROGRESS_CAPTION)
+
+ Label3.Caption = GetResString(PROGRESS_PATH_LABEL)
+ Label4.Caption = GetResString(PROGRESS_FILE_LABEL)
+ Label5.Caption = GetResString(PROGRESS_INFO_LABEL)
+ ScanProgress.Max = maxIndex
+
+ ShowProgress.Top = frmWizard.Top + 3200
+ ShowProgress.Left = frmWizard.Left + 500
+End Sub
+
+Public Sub SP_UpdateProgress(curObject As String, curParent As String, _
+ curIndex As Long)
+
+ Dim currTicks As Long
+ currTicks = GetTickCount()
+
+ ScanProgress.value = curIndex
+
+ If (Not ShowProgress.Visible) Then
+ If (currTicks - g_SP_StartTime > C_MIN_WAIT_TIME) Then
+ ShowProgress.Visible = True
+ End If
+ End If
+ If (currTicks - g_SP_LastUpdate > C_MIN_UPDATE_TIME) Then
+ g_SP_LastUpdate = currTicks
+ Label1.Caption = curParent
+ Label2.Caption = curObject
+ Label6.Caption = "(" & str$(curIndex) & "/" & str$(ScanProgress.Max) & ")"
+ End If
+End Sub
+
+Private Sub AbortScan_Click()
+ g_SP_Abort = True
+ Label5.Caption = GetResString(PROGRESS_WAIT_LABEL)
+ AbortScan.Caption = GetResString(PROGRESS_ABORTING)
+ AbortScan.Enabled = False
+End Sub
+
+Private Sub Form_Deactivate()
+ If Not g_SP_AllowOtherDLG Then
+ ShowProgress.ZOrder (0)
+ End If
+End Sub
+
|