|
From: Robert M. <mar...@us...> - 2004-12-25 16:43:43
|
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])); |