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

Changeset: 191 fdbozzo - 07/03/2014 18:56:09:

Browse Source 
Arreglo metodos propected/hidden que se muestran por duplicado
This commit is contained in:
fdbozzo
2014-03-07 18:58:44 +01:00
parent 5d6197282d
commit ac758d9eb4
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
foxbin2prg.prg
View File

@@ -7837,7 +7837,10 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
*-- Segunda barrida para las propiedades Hidden/Protected que no est<73>n definidas en Properties *-- Segunda barrida para las propiedades Hidden/Protected que no est<73>n definidas en Properties
FOR I = 1 TO lnProtected_Count FOR I = 1 TO lnProtected_Count
IF EMPTY(taProtected(I,1)) OR ASCAN(taPropsAndValues, CHRTRAN( taProtected(I), '^', '' ), 1, 0, 1, 1) > 0 *-- La propiedad evaluada no debe ser vac<61>a, debe estar en la lista de PROPERTIES y no debe ser un *M<>todo
IF EMPTY(taProtected(I,1)) ;
OR ASCAN(taPropsAndValues, CHRTRAN( taProtected(I), '^', '' ), 1, 0, 1, 1) > 0 ;
OR ASCAN(taPropsAndComments, '*' + CHRTRAN( taProtected(I), '^', '' ), 1, 0, 1, 1) > 0
LOOP LOOP
ENDIF ENDIF