[JVCL-Checkins] CVS: dev/JVCL3/run JvAppStore.pas,1.19,1.20

[Marcel B. <jed...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1:/tmp/cvs-serv19699/dev/JVCL3/run

Modified Files:
	JvAppStore.pas 
Log Message:
A little bit clearer but functionaly the same code

Index: JvAppStore.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvAppStore.pas,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** JvAppStore.pas	14 Nov 2003 10:30:30 -0000	1.19
--- JvAppStore.pas	14 Nov 2003 10:40:58 -0000	1.20
***************
*** 1217,1222 ****
    begin
      PropName := GetPropName(PersObj, Index);
!     KeyName := PropName;
!     DoTranslatePropertyName(PersObj, KeyName, True);
      PropPath := ConcatPaths([Path, KeyName]);
      case PropType(PersObj, PropName) of
--- 1217,1221 ----
    begin
      PropName := GetPropName(PersObj, Index);
!     KeyName := TranslatePropertyName(PersObj, PropName, True);
      PropPath := ConcatPaths([Path, KeyName]);
      case PropType(PersObj, PropName) of
***************
*** 1282,1287 ****
    begin
      PropName := GetPropName(PersObj, Index);
!     KeyName := PropName;
!     DoTranslatePropertyName(PersObj, KeyName, False);
      PropPath := ConcatPaths([Path, KeyName]);
      if (IgnoreProperties = nil) or (IgnoreProperties.IndexOf(PropName) = -1) then
--- 1281,1285 ----
    begin
      PropName := GetPropName(PersObj, Index);
!     KeyName := TranslatePropertyName(PersObj, PropName, False);
      PropPath := ConcatPaths([Path, KeyName]);
      if (IgnoreProperties = nil) or (IgnoreProperties.IndexOf(PropName) = -1) then