|
From: Robert M. <mar...@us...> - 2004-12-23 15:21:38
|
Update of /cvsroot/jvcl/dev/JVCL3/devtools/ReadPalettes In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28407/JVCL3/devtools/ReadPalettes Modified Files: ReadPalettes.pas Log Message: completed, with package names for file names Index: ReadPalettes.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/devtools/ReadPalettes/ReadPalettes.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** ReadPalettes.pas 23 Dec 2004 07:51:47 -0000 1.4 --- ReadPalettes.pas 23 Dec 2004 15:21:25 -0000 1.5 *************** *** 63,71 **** procedure AddPackageNames(List: TStringList); var ! I, J, N: Integer; ModSvc: IOTAModuleServices; Module: IOTAModule; ! FileSys: IOTAFileSystem; ! UnitName, Line: string; begin ModSvc := (BorlandIDEServices as IOTAModuleServices); --- 63,73 ---- procedure AddPackageNames(List: TStringList); var ! I, J, K, N: Integer; ModSvc: IOTAModuleServices; Module: IOTAModule; ! ModuleInfo: IOTAModuleInfo; ! Proj: IOTAProject; ! UnitName: string; ! Flag: Boolean; begin ModSvc := (BorlandIDEServices as IOTAModuleServices); *************** *** 77,90 **** begin UnitName := Copy(UnitName, N + 1, Length(UnitName)); - Line := Copy(List[I], 1, N - 1); N := Pos(';', UnitName); end; UnitName := Copy(UnitName, 2, Length(UnitName) - 2); ! for J := 0 to ModSvc.ModuleCount - 1 do begin Module := ModSvc.Modules[J]; ! FileSys := ModSvc.FindFileSystem(Module.FileSystem); ! if Assigned(FileSys) and FileSys.FileExists(UnitName) then ! List[I] := Line + ';"' + Module.FileName + '.' + UnitName + '"'; end; end; --- 79,102 ---- begin UnitName := Copy(UnitName, N + 1, Length(UnitName)); N := Pos(';', UnitName); end; UnitName := Copy(UnitName, 2, Length(UnitName) - 2); ! Flag := False; ! for J := 1 to ModSvc.ModuleCount - 1 do begin Module := ModSvc.Modules[J]; ! Proj := Module as IOTAProject; ! for K := 0 to Proj.GetModuleCount - 1 do ! begin ! ModuleInfo := Proj.GetModule(K); ! if UnitName = ExtractFileName(ModuleInfo.FileName) then ! begin ! List[I] := List[I] + ';"' + ChangeFileExt(ExtractFileName(Module.FileName), '') + '"'; ! Flag := True; ! Break; ! end; ! end; ! if Flag then ! Break; end; end; *************** *** 115,119 **** N := 1; ! VisibleComponentList.Add('"ID";"Palette";"Component";"FileName"'); for I := 0 to PaletteTab.Tabs.Count - 1 do begin --- 127,131 ---- N := 1; ! VisibleComponentList.Add('"ID";"Palette";"Component";"FileName";"JVCLPackage"'); for I := 0 to PaletteTab.Tabs.Count - 1 do begin *************** *** 373,388 **** AddIDs(RegisterClassList); - { AddPackageNames(CustomModuleList); AddPackageNames(NoIconList); AddPackageNames(ActionsList); AddPackageNames(VisibleComponentList); - } PropertyEditorList.Insert(0, '"ID";"PropertyType_Name";"ComponentClass_ClassName";"PropertyName";"EditorClass_ClassName"'); ComponentEditorList.Insert(0, '"ID";"ComponentClass_ClassName";"ComponentEditor_ClassName"'); ! CustomModuleList.Insert(0, '"ID";"Group";"ComponentBaseClass_ClassName";"CustomModuleClass_ClassName";"FileName"'); ! NoIconList.Insert(0, '"ID";"ClassName";"FileName"'); ! ActionsList.Insert(0, '"ID";"CategoryName";"ClassName";"Resource_ClassName";"FileName"'); PackageWizardList.Insert(0, '"ID";"WizardName";"WizardIDString"'); RegisterClassList.Insert(0, '"ID";"ClassName"'); --- 385,398 ---- AddIDs(RegisterClassList); AddPackageNames(CustomModuleList); AddPackageNames(NoIconList); AddPackageNames(ActionsList); AddPackageNames(VisibleComponentList); PropertyEditorList.Insert(0, '"ID";"PropertyType_Name";"ComponentClass_ClassName";"PropertyName";"EditorClass_ClassName"'); ComponentEditorList.Insert(0, '"ID";"ComponentClass_ClassName";"ComponentEditor_ClassName"'); ! CustomModuleList.Insert(0, '"ID";"Group";"ComponentBaseClass_ClassName";"CustomModuleClass_ClassName";"FileName";"JVCLPackage"'); ! NoIconList.Insert(0, '"ID";"ClassName";"FileName";"JVCLPackage"'); ! ActionsList.Insert(0, '"ID";"CategoryName";"ClassName";"Resource_ClassName";"FileName";"JVCLPackage"'); PackageWizardList.Insert(0, '"ID";"WizardName";"WizardIDString"'); RegisterClassList.Insert(0, '"ID";"ClassName"'); |