[JVCL-Checkins] dev/JVCL3/devtools/ReadPalettes ReadPalettes.pas,1.4,1.5 - completed, with package names for file names

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

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"');