romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 539 fdbozzo - 30/11/2014 18:55:29:

Browse Source 
- Agregado botón Cancel en el form de progreso
This commit is contained in:
fdbozzo
2014-11-30 21:03:36 +01:00
parent b9a1aa494e
commit cffb65c310
5 changed files with 64 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Convert_VFP9_PRG_2_BIN.vbs
View File

@@ -60,6 +60,7 @@ Else
oVFP9.DoCmd( "PUBLIC oFoxBin2prg" )
oVFP9.DoCmd( "oFoxBin2prg = CREATEOBJECT('c_foxbin2prg')" )
oVFP9.DoCmd( "oFoxBin2prg.cargar_frm_avance()" )
oVFP9.DoCmd( "oFoxBin2prg.o_frm_avance.Caption = '" & FileSystemObject.GetBaseName( WScript.ScriptName ) & " - ' + oFoxBin2Prg.c_loc_process_progress" )
For i = 0 To WScript.Arguments.Count-1
scanDirs( WScript.Arguments(i) )
@@ -89,6 +90,8 @@ Else
cFlagNoTimestamps = "'1'"
End If
oVFP9.DoCmd( "oFoxBin2prg.o_frm_avance.Caption = '" & FileSystemObject.GetBaseName( WScript.ScriptName ) & " - ' + oFoxBin2Prg.c_loc_process_progress + ' (Press Esc to Cancel)'" )
For i = 1 To nFile_Count
oVFP9.DoCmd( "oFoxBin2Prg.AvanceDelProceso(oFoxBin2Prg.c_loc_processing_file + ' " & aFiles(i) & "...', " & i & ", " & nFile_Count & ", 0)" )
cFlagRecompile = "'" & FileSystemObject.GetParentFolderName( aFiles(i) ) & "'"