/jcl/experts/common/JclOtaConsts.pas

https://github.com/the-Arioch/jcl · Pascal · 185 lines · 113 code · 24 blank · 48 comment · 0 complexity · 0d62aa2c638c1d10eea1979855c0a3fc MD5 · raw file

  1. {**************************************************************************************************}
  2. { }
  3. { Project JEDI Code Library (JCL) }
  4. { }
  5. { The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); }
  6. { you may not use this file except in compliance with the License. You may obtain a copy of the }
  7. { License at http://www.mozilla.org/MPL/ }
  8. { }
  9. { Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF }
  10. { ANY KIND, either express or implied. See the License for the specific language governing rights }
  11. { and limitations under the License. }
  12. { }
  13. { The Original Code is JclOtaConsts.pas. }
  14. { }
  15. { The Initial Developer of the Original Code is Petr Vones. }
  16. { Portions created by Petr Vones are Copyright (C) of Petr Vones. }
  17. { }
  18. { Contributors: }
  19. { Florent Ouchet (outchy) }
  20. { Uwe Schuster (uschuster) }
  21. { }
  22. {**************************************************************************************************}
  23. { }
  24. { Last modified: $Date:: $ }
  25. { Revision: $Rev:: $ }
  26. { Author: $Author:: $ }
  27. { }
  28. {**************************************************************************************************}
  29. unit JclOtaConsts;
  30. interface
  31. {$I jcl.inc}
  32. uses
  33. {$IFDEF UNITVERSIONING}
  34. JclUnitVersioning,
  35. {$ENDIF UNITVERSIONING}
  36. ToolsAPI;
  37. const
  38. DelphiRootDirKeyValue = 'RootDir';
  39. RegJclKey = 'Jedi\JCL\';
  40. JclRootDirValueName = 'RootDir';
  41. RegJclIDEKey = RegJclKey + 'IDE\';
  42. DelphiEnvironmentVar = 'DELPHI';
  43. EnvironmentVarsKey = 'Environment Variables';
  44. //=== Various constants shared by different experts ========================
  45. JclLeft = 'Left';
  46. JclTop = 'Top';
  47. JclWidth = 'Right';
  48. JclHeight = 'Height';
  49. JclDesignerAny = dAny;
  50. JclDesignerVcl = dVcl;
  51. JclDelphiPersonality = {$IFDEF BDS} sDelphiPersonality {$ELSE BDS} '' {$ENDIF BDS};
  52. JclCBuilderPersonality = {$IFDEF BDS} sCBuilderPersonality {$ELSE BDS} '' {$ENDIF BDS};
  53. MapFileOptionDetailed = 3;
  54. MapFileOptionDetailedSegments = 'DetailedSegments';
  55. //=== Configuration ========================================================
  56. JclConfigurationSettings = 'JclExpertConfigurationForm';
  57. JclActionSettings = 'Actions';
  58. //=== Configuration form ===================================================
  59. JclPanelTreeWidth = 'PanelTreeWidth';
  60. JclConfigureActionName = 'JCLConfigureCommand';
  61. JclConfigureMenuName = 'JCLConfigureMenu';
  62. //=== Unit Versioning Expert ===============================================
  63. JclUnitVersioningExpertName = 'JclUnitVersioningExpert';
  64. //=== Debug Expert =========================================================
  65. JclDebugExpertRegKey = 'JclDebugExpert';
  66. JclDebugEnabledRegValue = 'JclDebugEnabled';
  67. JclDebugGenerateJdbgRegValue = 'JclDebugGenerateJdbg';
  68. JclDebugInsertJdbgRegValue = 'JclDebugInsertJdbg';
  69. JclDebugDeleteMapFileRegValue = 'JclDebugDeleteMapFile';
  70. MapFileOptionName = 'MapFile';
  71. DccMapFileOptionName = 'DCC_MapFile';
  72. ILinkMapFileTypeOptionName = 'ILINK_MapFileType';
  73. OutputDirOptionName = 'OutputDir';
  74. FinalOutputDirOptionName = 'FinalOutputDir';
  75. RuntimeOnlyOptionName = 'RuntimeOnly';
  76. PkgDllDirOptionName = 'PkgDllDir';
  77. BPLOutputDirOptionName = 'PackageDPLOutput';
  78. LIBPREFIXOptionName = 'SOPrefix';
  79. LIBSUFFIXOptionName = 'SOSuffix';
  80. ColumnRegName = 'Column%d';
  81. JclDebugExpertActionName = 'JCLDebugExpertCommand';
  82. JclDebugExpertMenuName = 'JCLDebugExpertMenu';
  83. JclDebugExpertProjMenuName = 'JCLDebugExpertProjMenu';
  84. JclGenerateJdbgActionName = 'JCLGenerateJdbgCommand';
  85. JclGenerateJdbgMenuName = 'JCLGenerateJdbgMenu';
  86. JclGenerateJdbgProjMenuName = 'JCLGenerateJdbgProjMenu';
  87. JclInsertJdbgActionName = 'JCLInsertJdbgCommand';
  88. JclInsertJdbgMenuName = 'JCLInsertJdbgMenu';
  89. JclInsertJdbgProjMenuName = 'JCLInsertJdbgProjMenu';
  90. JclDeleteMapFileActionName = 'JCLDeleteMapFileCommand';
  91. JclDeleteMapFileMenuName = 'JCLDeleteMapFileMenu';
  92. JclDeleteMapFileProjMenuName = 'JCLDeleteMapFileProjMenu';
  93. JclDebugGenerateJdbgSetting = 'JCL_DEBUG_EXPERT_GENERATEJDBG';
  94. JclDebugInsertJdbgSetting = 'JCL_DEBUG_EXPERT_INSERTJDBG';
  95. JclDebugDeleteMapfileSetting = 'JCL_DEBUG_EXPERT_DELETEMAPFILE';
  96. JclDebugQuietSetting = 'JCL_DEBUG_EXPERT_QUIET';
  97. //=== Favorite Folders Expert ==============================================
  98. JclFavoritesExpertName = 'JclFavoriteFoldersExpert';
  99. JclFavoritesListSubKey = 'Favorites';
  100. PictDialogFolderItemName = 'PictureDialogPath';
  101. BorlandImagesPath = 'Borland Shared\Images';
  102. //=== Threads Expert =======================================================
  103. JclThreadsExpertName = 'JclThreadsExpert';
  104. //=== SIMD Expert ==========================================================
  105. JclSIMDExpertName = 'JclSIMDExpert';
  106. JclSIMDActionName = 'JCLSIMDCommand';
  107. JclSIMDMenuName = 'JCLSIMDMenu';
  108. //=== Uses Expert ==========================================================
  109. JclUsesExpertName = 'JclUsesExpert';
  110. SIniIdentifierLists = 'IdentifierLists';
  111. SRegDebugLibPath = 'Debug Library';
  112. SRegLibPath = 'Library';
  113. SRegWizardActive = 'Uses Wizard Active';
  114. SRegWizardConfirm = 'Uses Wizard Confirm';
  115. SRegWizardIniFile = 'Configuration File';
  116. JclIniFileLocation = 'experts\useswizard\JediUsesWizard.ini';
  117. //=== Project analyser =====================================================
  118. JclProjectAnalyzerExpertName = 'JclProjectAnalyzerExpert';
  119. AnalyzerViewName = 'AnalyzerView';
  120. AnalyzerShowPackagesName = 'ShowPackages';
  121. JclProjectAnalyzeActionName = 'JCLProjectAnalyseCommand';
  122. JclProjectAnalyzeMenuName = 'JCLProjectAnalyseMenu';
  123. //=== Repository Expert ====================================================
  124. JclRepositoryCategoryDelphiFiles = {$IFDEF BDS} sCategoryDelphiNewFiles {$ELSE BDS} '' {$ENDIF BDS};
  125. JclRepositoryCategoryCBuilderFiles = {$IFDEF BDS} sCategoryCBuilderNewFiles {$ELSE BDS} '' {$ENDIF BDS};
  126. JclRepositoryModuleTypeForm = omtForm;
  127. //=== Version Control Expert ===============================================
  128. JclVersionCtrlMenuName = 'JclVersionCtrlMenu';
  129. JclVersionCtrlActOnTopSandboxName = 'ActOnTopSandbox';
  130. JclVersionCtrlMenuOrganizationName = 'MenuOrganization';
  131. JclVersionCtrlSaveConfirmationName = 'SaveConfirmation';
  132. JclVersionCtrlDisableActionsName = 'DisableActions';
  133. JclVersionCtrlHideActionsName = 'HideActions';
  134. JclVersionCtrlIconTypeName = 'IconType';
  135. JclVersionCtrlIconTypeAutoValue = 'auto';
  136. JclVersionCtrlIconTypeNoIconValue = 'noicon';
  137. JclVersionCtrlIconTypeJclIconValue = 'jclicons';
  138. //=== Stack Trace Viewer Expert ============================================
  139. JclStackTraceViewerExpertName = 'JclStackTraceViewerExpert';
  140. JclStackTraceViewerActionName = 'JCLStackTraceViewerCommand';
  141. JclStackTraceViewerMenuName = 'JCLStackTraceViewerMenu';
  142. JclStackTraceViewerDesktopIniSection = 'JclStackTraceViewer';
  143. {$IFDEF UNITVERSIONING}
  144. const
  145. UnitVersioning: TUnitVersionInfo = (
  146. RCSfile: '$URL$';
  147. Revision: '$Revision$';
  148. Date: '$Date$';
  149. LogPath: 'JCL\experts\common';
  150. Extra: '';
  151. Data: nil
  152. );
  153. {$ENDIF UNITVERSIONING}
  154. implementation
  155. {$IFDEF UNITVERSIONING}
  156. initialization
  157. RegisterUnitVersion(HInstance, UnitVersioning);
  158. finalization
  159. UnregisterUnitVersion(HInstance);
  160. {$ENDIF UNITVERSIONING}
  161. end.