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

Changeset: 433 fdbozzo - 29/08/2014 12:48:41:

Browse Source 
- Ajuste de capitalización de algunas propiedades
This commit is contained in:
fdbozzo
2014-08-29 12:57:17 +02:00
parent 87ea05b864
commit 560bc2f8a3
1 changed files with 22 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
foxbin2prg.prg
View File

@@ -17909,11 +17909,11 @@ DEFINE CLASS CL_MENU AS CL_MENU_COL_BASE
CASE LEFT( tcLine, 12 ) == 'DEFINE MENU ' CASE LEFT( tcLine, 12 ) == 'DEFINE MENU '
loReg.OBJCODE = C_OBJCODE_MENUDEFAULT_DEFAULT loReg.OBJCODE = C_OBJCODE_MENUDEFAULT_DEFAULT
loReg.PROCTYPE = 1 loReg.ProcType = 1
loReg.MARK = CHR(4) loReg.Mark = CHR(4)
loReg.SETUPTYPE = 1 loReg.SetupType = 1
loReg.CLEANTYPE = 1 loReg.CleanType = 1
loReg.ITEMNUM = STR(0,3) loReg.ItemNum = STR(0,3)
lcMenuType = ALLTRIM( GETWORDNUM( tcLine, 3 ) ) lcMenuType = ALLTRIM( GETWORDNUM( tcLine, 3 ) )
*loReg.ObjType = IIF( UPPER(lcMenuType) = '_MSYSMENU', 1, 5 ) *loReg.ObjType = IIF( UPPER(lcMenuType) = '_MSYSMENU', 1, 5 )
@@ -17943,12 +17943,12 @@ DEFINE CLASS CL_MENU AS CL_MENU_COL_BASE
CASE LEFT( tcLine, 13 ) == 'DEFINE POPUP ' CASE LEFT( tcLine, 13 ) == 'DEFINE POPUP '
loReg.OBJCODE = C_OBJCODE_MENUDEFAULT_DEFAULT loReg.OBJCODE = C_OBJCODE_MENUDEFAULT_DEFAULT
loReg.PROCTYPE = 1 loReg.ProcType = 1
loReg.MARK = CHR(4) loReg.MARK = CHR(4)
loReg.SETUPTYPE = 1 loReg.SetupType = 1
loReg.CLEANTYPE = 1 loReg.CleanType = 1
loReg.ITEMNUM = STR(0,3) loReg.ItemNum = STR(0,3)
loReg.SCHEME = 0 loReg.Scheme = 0
lcExpr = ALLTRIM( STREXTRACT( C_FB2PRG_CODE, 'ON SELECTION POPUP ALL ', CR_LF ) ) lcExpr = ALLTRIM( STREXTRACT( C_FB2PRG_CODE, 'ON SELECTION POPUP ALL ', CR_LF ) )
.AnalizarSiExpresionEsComandoOProcedimiento( lcExpr, @lcProcName, @lcProcCode, @C_FB2PRG_CODE, -1, .F. ) .AnalizarSiExpresionEsComandoOProcedimiento( lcExpr, @lcProcName, @lcProcCode, @C_FB2PRG_CODE, -1, .F. )
@@ -17982,7 +17982,7 @@ DEFINE CLASS CL_MENU AS CL_MENU_COL_BASE
.LevelName = '_MSYSMENU' .LevelName = '_MSYSMENU'
loBarPop.ADD( loOption ) loBarPop.ADD( loOption )
loBarPop.oReg.NUMITEMS = loBarPop.COUNT loBarPop.oReg.NUMITEMS = loBarPop.COUNT
.ITEMNUM = STR(loBarPop.COUNT,3) .ItemNum = STR(loBarPop.COUNT,3)
.SCHEME = 0 .SCHEME = 0
loBarPop = NULL loBarPop = NULL
ENDWITH ENDWITH
@@ -18301,7 +18301,7 @@ DEFINE CLASS CL_MENU AS CL_MENU_COL_BASE
+ ', ObjCode=' + TRANSFORM(loReg.OBJCODE) ; + ', ObjCode=' + TRANSFORM(loReg.OBJCODE) ;
+ ', Name=' + TRANSFORM(loReg.NAME) ; + ', Name=' + TRANSFORM(loReg.NAME) ;
+ ', LevelName=' + TRANSFORM(loReg.LevelName) ; + ', LevelName=' + TRANSFORM(loReg.LevelName) ;
+ ', ItemNum=' + TRANSFORM(loReg.ITEMNUM) ; + ', ItemNum=' + TRANSFORM(loReg.ItemNum) ;
+ ', Location=' + TRANSFORM(loReg.Location) ; + ', Location=' + TRANSFORM(loReg.Location) ;
+ ', Prompt=' + TRANSFORM(loReg.PROMPT) ; + ', Prompt=' + TRANSFORM(loReg.PROMPT) ;
+ ', Message=' + TRANSFORM(loReg.MESSAGE) ; + ', Message=' + TRANSFORM(loReg.MESSAGE) ;
@@ -18390,9 +18390,9 @@ DEFINE CLASS CL_MENU_BARPOP AS CL_MENU_COL_BASE
.oReg = toConversor.emptyRecord() .oReg = toConversor.emptyRecord()
loReg = .oReg loReg = .oReg
loReg.ObjType = C_OBJTYPE_MENUTYPE_BARorPOPUP loReg.ObjType = C_OBJTYPE_MENUTYPE_BARorPOPUP
loReg.PROCTYPE = 1 loReg.ProcType = 1
loReg.MARK = CHR(0) loReg.MARK = CHR(0)
loReg.ITEMNUM = STR(0,3) loReg.ItemNum = STR(0,3)
llBloqueEncontrado = .T. llBloqueEncontrado = .T.
FOR I = I + 0 TO tnCodeLines FOR I = I + 0 TO tnCodeLines
@@ -18463,7 +18463,7 @@ DEFINE CLASS CL_MENU_BARPOP AS CL_MENU_COL_BASE
ENDIF ENDIF
.ADD( loOption ) .ADD( loOption )
loOption.oReg.ITEMNUM = STR(.COUNT,3) loOption.oReg.ItemNum = STR(.COUNT,3)
loReg.NUMITEMS = .COUNT loReg.NUMITEMS = .COUNT
loReg.SCHEME = IIF( loReg.OBJCODE = C_OBJCODE_MENUBARPOPUP_MENUBAR, 3, 4 ) loReg.SCHEME = IIF( loReg.OBJCODE = C_OBJCODE_MENUBARPOPUP_MENUBAR, 3, 4 )
loOption = NULL loOption = NULL
@@ -18631,7 +18631,7 @@ DEFINE CLASS CL_MENU_OPTION AS CL_MENU_COL_BASE
.oReg = toConversor.emptyRecord() .oReg = toConversor.emptyRecord()
loReg = .oReg loReg = .oReg
loReg.MARK = CHR(0) loReg.MARK = CHR(0)
loReg.ITEMNUM = STR(0,3) loReg.ItemNum = STR(0,3)
llBloqueEncontrado = .T. llBloqueEncontrado = .T.
@@ -18847,7 +18847,7 @@ DEFINE CLASS CL_MENU_OPTION AS CL_MENU_COL_BASE
DO CASE DO CASE
CASE EMPTY(lcProcCode) CASE EMPTY(lcProcCode)
loReg.OBJCODE = C_OBJCODE_MENUOPTION_COMMAND loReg.OBJCODE = C_OBJCODE_MENUOPTION_COMMAND
loReg.COMMAND = lcExpr loReg.Command = lcExpr
OTHERWISE OTHERWISE
loReg.PROCEDURE = STRTRAN( lcProcCode, '<<ProcName>>', lcProcName ) loReg.PROCEDURE = STRTRAN( lcProcCode, '<<ProcName>>', lcProcName )
@@ -18857,7 +18857,7 @@ DEFINE CLASS CL_MENU_OPTION AS CL_MENU_COL_BASE
loReg.COMMAND = lcExpr loReg.COMMAND = lcExpr
ELSE ELSE
loReg.OBJCODE = C_OBJCODE_MENUOPTION_PROCEDURE loReg.OBJCODE = C_OBJCODE_MENUOPTION_PROCEDURE
loReg.PROCTYPE = 1 loReg.ProcType = 1
ENDIF ENDIF
ENDCASE ENDCASE
@@ -19062,7 +19062,7 @@ DEFINE CLASS CL_MENU_OPTION AS CL_MENU_COL_BASE
loReg.COMMAND = lcExpr loReg.COMMAND = lcExpr
ELSE ELSE
loReg.OBJCODE = C_OBJCODE_MENUOPTION_PROCEDURE loReg.OBJCODE = C_OBJCODE_MENUOPTION_PROCEDURE
loReg.PROCTYPE = 1 loReg.ProcType = 1
ENDIF ENDIF
OTHERWISE OTHERWISE
@@ -19219,7 +19219,7 @@ DEFINE CLASS CL_MENU_OPTION AS CL_MENU_COL_BASE
*-- DEFINE BAR *-- DEFINE BAR
*lcText = lcTab + '*----------------------------------' + CR_LF *lcText = lcTab + '*----------------------------------' + CR_LF
lcText = lcText + lcTab + 'DEFINE BAR ' + ALLTRIM( EVL( toReg.NAME, toReg.ITEMNUM ) ) + ' OF ' + ALLTRIM(toReg.LevelName) ; lcText = lcText + lcTab + 'DEFINE BAR ' + ALLTRIM( EVL( toReg.NAME, toReg.ItemNum ) ) + ' OF ' + ALLTRIM(toReg.LevelName) ;
+ ' PROMPT "' + toReg.PROMPT + '"' + ' PROMPT "' + toReg.PROMPT + '"'
IF NOT EMPTY(toReg.KEYNAME) IF NOT EMPTY(toReg.KEYNAME)
@@ -19252,10 +19252,10 @@ DEFINE CLASS CL_MENU_OPTION AS CL_MENU_COL_BASE
IF toReg.OBJCODE = C_OBJCODE_MENUOPTION_SUBMENU && Submenu IF toReg.OBJCODE = C_OBJCODE_MENUOPTION_SUBMENU && Submenu
loBarPop = THIS.ITEM(1).oReg loBarPop = THIS.ITEM(1).oReg
lcText = lcText + lcTab + 'ON BAR ' + ALLTRIM( EVL( toReg.NAME, toReg.ITEMNUM ) ) + ' OF ' + ALLTRIM(toReg.LevelName) ; lcText = lcText + lcTab + 'ON BAR ' + ALLTRIM( EVL( toReg.NAME, toReg.ItemNum ) ) + ' OF ' + ALLTRIM(toReg.LevelName) ;
+ ' ACTIVATE POPUP ' + ALLTRIM(loBarPop.NAME) + ' ACTIVATE POPUP ' + ALLTRIM(loBarPop.NAME)
ELSE ELSE
lcText = lcText + lcTab + 'ON SELECTION BAR ' + ALLTRIM( EVL( toReg.NAME, toReg.ITEMNUM ) ) + ' OF ' + ALLTRIM(toReg.LevelName) lcText = lcText + lcTab + 'ON SELECTION BAR ' + ALLTRIM( EVL( toReg.NAME, toReg.ItemNum ) ) + ' OF ' + ALLTRIM(toReg.LevelName)
DO CASE DO CASE
CASE toReg.OBJCODE = C_OBJCODE_MENUOPTION_COMMAND && Command CASE toReg.OBJCODE = C_OBJCODE_MENUOPTION_COMMAND && Command