Menu
▾
▴
[JVCL-Checkins] dev/JVCL3/devtools/ReadPalettes ReadPalettes.pas,1.5,1.6 - rename all PropertyEditor to Property and all ComponentEdito
|
From: Robert M. <mar...@us...> - 2004-12-25 09:02:47
|
Update of /cvsroot/jvcl/dev/JVCL3/devtools/ReadPalettes In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5631/JVCL3/devtools/ReadPalettes Modified Files: ReadPalettes.pas Log Message: rename all PropertyEditor to Property and all ComponentEditor to Editor Index: ReadPalettes.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/devtools/ReadPalettes/ReadPalettes.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ReadPalettes.pas 23 Dec 2004 15:21:25 -0000 1.5 --- ReadPalettes.pas 25 Dec 2004 09:02:35 -0000 1.6 *************** *** 11,20 **** uses Classes, Controls, ComCtrls, Forms, ! {$IFDEF MSWINDOWS} Dialogs, ! {$ENDIF MSWINDOWS} ! {$IFDEF UNIX} QDialogs, ! {$ENDIF UNIX} TypInfo, SysUtils, ActnList, DesignIntf, ToolsAPI; --- 11,20 ---- uses Classes, Controls, ComCtrls, Forms, ! {$IFDEF VCL} Dialogs, ! {$ENDIF VCL} ! {$IFDEF VisualCLX} QDialogs, ! {$ENDIF VisualCLX} TypInfo, SysUtils, ActnList, DesignIntf, ToolsAPI; *************** *** 30,33 **** --- 30,34 ---- PackageWizardList: TStringList; RegisterClassList: TStringList; + FullRegisterClassList: TStringList; OldSpyRegisterPropertyEditor: TRegisterPropertyEditorProc; *************** *** 58,62 **** List.Sorted := False; for I := 0 to List.Count - 1 do ! List[I] := Format('%u;%s', [I, List[I]]); end; --- 59,63 ---- List.Sorted := False; for I := 0 to List.Count - 1 do ! List[I] := Format('%u;%s', [I+1, List[I]]); end; *************** *** 109,113 **** Palette: TCustomControl; PropInfo: PPropInfo; ! I, J, N: Integer; PalToolCount: Integer; OldPaletteIndex, OldToolIndex: Integer; --- 110,114 ---- Palette: TCustomControl; PropInfo: PPropInfo; ! I, J: Integer; PalToolCount: Integer; OldPaletteIndex, OldToolIndex: Integer; *************** *** 126,131 **** OldToolIndex := GetOrdProp(Palette, PropInfo); - N := 1; - VisibleComponentList.Add('"ID";"Palette";"Component";"FileName";"JVCLPackage"'); for I := 0 to PaletteTab.Tabs.Count - 1 do begin --- 127,130 ---- *************** *** 145,153 **** else UnitName := GetTypeData(LClass.ClassInfo).UnitName + '.pas'; ! if Pos('Jv', PaletteTab.Tabs[I]) = 1 then ! begin ! VisibleComponentList.Add(Format('%u;"%s";"%s";"%s"', [N, PaletteTab.Tabs[I], SelectedToolName, UnitName])); ! Inc(N); ! end; end; end; --- 144,149 ---- else UnitName := GetTypeData(LClass.ClassInfo).UnitName + '.pas'; ! if (Pos('Jv', PaletteTab.Tabs[I]) = 1) or (Pos('JV', PaletteTab.Tabs[I]) = 1) then ! VisibleComponentList.Add(Format('"%s";"%s";"%s"', [SelectedToolName, PaletteTab.Tabs[I], UnitName])); end; end; *************** *** 166,172 **** procedure TCarrier.GetClassCallback(AClass: TPersistentClass); begin if Pos('TJv', AClass.ClassName) = 1 then ! RegisterClassList.Add(Format('"%s"', [AClass.ClassName])); end; --- 162,176 ---- procedure TCarrier.GetClassCallback(AClass: TPersistentClass); + var + UnitName: string; begin if Pos('TJv', AClass.ClassName) = 1 then ! begin ! if AClass.ClassInfo = nil then ! UnitName := '' ! else ! UnitName := GetTypeData(AClass.ClassInfo).UnitName + '.pas'; ! RegisterClassList.Add(Format('"%s";"%s"', [AClass.ClassName, UnitName])); ! end; end; *************** *** 219,224 **** else UnitName := GetTypeData(ComponentBaseClass.ClassInfo).UnitName + '.pas'; ! CustomModuleList.Add(Format('%u;"%s";"%s";"%s"', ! [Group, ComponentBaseClass.ClassName, CustomModuleClass.ClassName, UnitName])); end; end; --- 223,228 ---- else UnitName := GetTypeData(ComponentBaseClass.ClassInfo).UnitName + '.pas'; ! CustomModuleList.Add(Format('"%s";"%s";"%s"', ! [ComponentBaseClass.ClassName, CustomModuleClass.ClassName, UnitName])); end; end; *************** *** 256,284 **** UnitName := GetTypeData(AClasses[I].ClassInfo).UnitName + '.pas'; if Assigned(Resource) then ! ActionsList.Add(Format('"%s";"%s";"%s";"%s"', [CategoryName, AClasses[I].ClassName, Resource.ClassName, UnitName])) else ! ActionsList.Add(Format('"%s";"%s";"";"%s"', [CategoryName, AClasses[I].ClassName, UnitName])); end; end; ! procedure CleanNoIconList; var ! I, N: Integer; ! F, S: string; begin ! for I := 0 to ActionsList.Count - 1 do begin ! N := Pos(';', ActionsList[I]); ! S := Copy(ActionsList[I], N + 1, Length(ActionsList[I])); ! N := Pos(';', S); ! F := Copy(S, 1, N - 1); ! S := Copy(S, N + 1, Length(S)); ! N := Pos(';', S); ! S := Copy(S, N + 1, Length(S)); ! N := Pos(';', S); ! S := Copy(S, N + 1, Length(S)); ! F := F + ';' + S; ! if NoIconList.Find(F, N) then ! NoIconList.Delete(N); end; end; --- 260,284 ---- UnitName := GetTypeData(AClasses[I].ClassInfo).UnitName + '.pas'; if Assigned(Resource) then ! ActionsList.Add(Format('"%s";"%s";"%s";"%s"', [AClasses[I].ClassName, CategoryName, Resource.ClassName, UnitName])) else ! ActionsList.Add(Format('"%s";"%s";"";"%s"', [AClasses[I].ClassName, CategoryName, UnitName])); end; end; ! procedure CleanList(DeleterList, DeletedList: TStringList); var ! I, J: Integer; ! S: string; begin ! for I := 0 to DeleterList.Count - 1 do begin ! J := Pos(';', DeleterList[I]); ! S := Copy(DeleterList[I], 1, J - 1); ! for J := 0 to DeletedList.Count - 1 do ! if Pos(S, DeletedList[J]) = 1 then ! begin ! DeletedList.Delete(J); ! Break; ! end; end; end; *************** *** 352,355 **** --- 352,358 ---- PackageWizardList.Sorted := True; RegisterClassList := TStringList.Create; + RegisterClassList.Duplicates := dupIgnore; + RegisterClassList.Sorted := True; + FullRegisterClassList := TStringList.Create; OldSpyRegisterPropertyEditor := RegisterPropertyEditorProc; *************** *** 374,380 **** LibraryWizardProc := OldSpyRegisterPackageWizard; ! CleanNoIconList; ReadRegisterClass; AddIDs(PropertyEditorList); AddIDs(ComponentEditorList); --- 377,389 ---- LibraryWizardProc := OldSpyRegisterPackageWizard; ! CleanList(ActionsList, NoIconList); ReadRegisterClass; + FullRegisterClassList.Assign(RegisterClassList); + CleanList(VisibleComponentList, RegisterClassList); + CleanList(NoIconList, RegisterClassList); + CleanList(ActionsList, RegisterClassList); + CleanList(CustomModuleList, RegisterClassList); + AddIDs(VisibleComponentList); AddIDs(PropertyEditorList); AddIDs(ComponentEditorList); *************** *** 384,387 **** --- 393,397 ---- AddIDs(PackageWizardList); AddIDs(RegisterClassList); + AddIDs(FullRegisterClassList); AddPackageNames(CustomModuleList); *************** *** 389,400 **** 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"'); SaveFile('JVCL Visible Components.csv', VisibleComponentList); SaveFile('JVCL Property Editors.csv', PropertyEditorList); --- 399,414 ---- AddPackageNames(ActionsList); AddPackageNames(VisibleComponentList); + AddPackageNames(RegisterClassList); + AddPackageNames(FullRegisterClassList); + VisibleComponentList.Insert(0, '"ID";"Component";"Palette";"FileName";"JVCLPackage"'); PropertyEditorList.Insert(0, '"ID";"PropertyType_Name";"ComponentClass_ClassName";"PropertyName";"EditorClass_ClassName"'); ComponentEditorList.Insert(0, '"ID";"ComponentClass_ClassName";"ComponentEditor_ClassName"'); ! CustomModuleList.Insert(0, '"ID";"ComponentBaseClass_ClassName";"CustomModuleClass_ClassName";"FileName";"JVCLPackage"'); NoIconList.Insert(0, '"ID";"ClassName";"FileName";"JVCLPackage"'); ! ActionsList.Insert(0, '"ID";"ClassName";"CategoryName";"Resource_ClassName";"FileName";"JVCLPackage"'); PackageWizardList.Insert(0, '"ID";"WizardName";"WizardIDString"'); ! RegisterClassList.Insert(0, '"ID";"ClassName";"FileName";"JVCLPackage"'); ! FullRegisterClassList.Insert(0, '"ID";"ClassName";"FileName";"JVCLPackage"'); SaveFile('JVCL Visible Components.csv', VisibleComponentList); SaveFile('JVCL Property Editors.csv', PropertyEditorList); *************** *** 405,408 **** --- 419,423 ---- SaveFile('JVCL Package Wizards.csv', PackageWizardList); SaveFile('JVCL Registered Classes.csv', RegisterClassList); + SaveFile('JVCL All Registered Classes.csv', FullRegisterClassList); FreeAndNil(VisibleComponentList); FreeAndNil(AllComponentList); *************** *** 414,417 **** --- 429,433 ---- FreeAndNil(PackageWizardList); FreeAndNil(RegisterClassList); + FreeAndNil(FullRegisterClassList); end. |
