[JVCL-Checkins] dev/JVCL3/devtools/ReadPalettes ReadPalettes.pas,1.6,1.7 - minor tweaks and fixes

[Robert M. <mar...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/devtools/ReadPalettes
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32307/JVCL3/devtools/ReadPalettes

Modified Files:
	ReadPalettes.pas 
Log Message:
minor tweaks and fixes


Index: ReadPalettes.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/devtools/ReadPalettes/ReadPalettes.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** ReadPalettes.pas	25 Dec 2004 09:02:35 -0000	1.6
--- ReadPalettes.pas	25 Dec 2004 16:43:34 -0000	1.7
***************
*** 191,195 ****
  begin
    if Assigned(ComponentClass) and Assigned(ComponentEditor) then
!     if (Pos('TJv', ComponentClass.ClassName) = 1) or (Pos('TJv', ComponentEditor.ClassName) = 1) then
        ComponentEditorList.Add(Format('"%s";"%s"',
          [ComponentClass.ClassName, ComponentEditor.ClassName]));
--- 191,195 ----
  begin
    if Assigned(ComponentClass) and Assigned(ComponentEditor) then
!     if Pos('TJv', ComponentEditor.ClassName) = 1 then
        ComponentEditorList.Add(Format('"%s";"%s"',
          [ComponentClass.ClassName, ComponentEditor.ClassName]));
***************
*** 203,207 ****
  begin
    if Assigned(PropertyType) and Assigned(ComponentClass) and Assigned(EditorClass) then
!     if (Pos('TJv', PropertyType^.Name) = 1) or (Pos('TJv', ComponentClass.ClassName) = 1) or (Pos('TJv', EditorClass.ClassName) = 1) then
        PropertyEditorList.Add(Format('"%s";"%s";"%s";"%s"',
          [PropertyType^.Name, ComponentClass.ClassName, PropertyName, EditorClass.ClassName]));
--- 203,207 ----
  begin
    if Assigned(PropertyType) and Assigned(ComponentClass) and Assigned(EditorClass) then
!     if Pos('TJv', EditorClass.ClassName) = 1 then
        PropertyEditorList.Add(Format('"%s";"%s";"%s";"%s"',
          [PropertyType^.Name, ComponentClass.ClassName, PropertyName, EditorClass.ClassName]));