/jcl/experts/common/JclOtaConsts.pas
Pascal | 185 lines | 113 code | 24 blank | 48 comment | 0 complexity | 0d62aa2c638c1d10eea1979855c0a3fc MD5 | raw file
Possible License(s): BSD-3-Clause
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 30unit JclOtaConsts; 31 32interface 33 34{$I jcl.inc} 35 36uses 37 {$IFDEF UNITVERSIONING} 38 JclUnitVersioning, 39 {$ENDIF UNITVERSIONING} 40 ToolsAPI; 41 42const 43 DelphiRootDirKeyValue = 'RootDir'; 44 RegJclKey = 'Jedi\JCL\'; 45 JclRootDirValueName = 'RootDir'; 46 RegJclIDEKey = RegJclKey + 'IDE\'; 47 DelphiEnvironmentVar = 'DELPHI'; 48 EnvironmentVarsKey = 'Environment Variables'; 49 50 //=== Various constants shared by different experts ======================== 51 JclLeft = 'Left'; 52 JclTop = 'Top'; 53 JclWidth = 'Right'; 54 JclHeight = 'Height'; 55 56 JclDesignerAny = dAny; 57 JclDesignerVcl = dVcl; 58 JclDelphiPersonality = {$IFDEF BDS} sDelphiPersonality {$ELSE BDS} '' {$ENDIF BDS}; 59 JclCBuilderPersonality = {$IFDEF BDS} sCBuilderPersonality {$ELSE BDS} '' {$ENDIF BDS}; 60 MapFileOptionDetailed = 3; 61 MapFileOptionDetailedSegments = 'DetailedSegments'; 62 63 //=== Configuration ======================================================== 64 JclConfigurationSettings = 'JclExpertConfigurationForm'; 65 JclActionSettings = 'Actions'; 66 67 //=== Configuration form =================================================== 68 JclPanelTreeWidth = 'PanelTreeWidth'; 69 JclConfigureActionName = 'JCLConfigureCommand'; 70 JclConfigureMenuName = 'JCLConfigureMenu'; 71 72 //=== Unit Versioning Expert =============================================== 73 JclUnitVersioningExpertName = 'JclUnitVersioningExpert'; 74 75 //=== Debug Expert ========================================================= 76 JclDebugExpertRegKey = 'JclDebugExpert'; 77 JclDebugEnabledRegValue = 'JclDebugEnabled'; 78 JclDebugGenerateJdbgRegValue = 'JclDebugGenerateJdbg'; 79 JclDebugInsertJdbgRegValue = 'JclDebugInsertJdbg'; 80 JclDebugDeleteMapFileRegValue = 'JclDebugDeleteMapFile'; 81 MapFileOptionName = 'MapFile'; 82 DccMapFileOptionName = 'DCC_MapFile'; 83 ILinkMapFileTypeOptionName = 'ILINK_MapFileType'; 84 OutputDirOptionName = 'OutputDir'; 85 FinalOutputDirOptionName = 'FinalOutputDir'; 86 RuntimeOnlyOptionName = 'RuntimeOnly'; 87 PkgDllDirOptionName = 'PkgDllDir'; 88 BPLOutputDirOptionName = 'PackageDPLOutput'; 89 LIBPREFIXOptionName = 'SOPrefix'; 90 LIBSUFFIXOptionName = 'SOSuffix'; 91 ColumnRegName = 'Column%d'; 92 JclDebugExpertActionName = 'JCLDebugExpertCommand'; 93 JclDebugExpertMenuName = 'JCLDebugExpertMenu'; 94 JclDebugExpertProjMenuName = 'JCLDebugExpertProjMenu'; 95 JclGenerateJdbgActionName = 'JCLGenerateJdbgCommand'; 96 JclGenerateJdbgMenuName = 'JCLGenerateJdbgMenu'; 97 JclGenerateJdbgProjMenuName = 'JCLGenerateJdbgProjMenu'; 98 JclInsertJdbgActionName = 'JCLInsertJdbgCommand'; 99 JclInsertJdbgMenuName = 'JCLInsertJdbgMenu'; 100 JclInsertJdbgProjMenuName = 'JCLInsertJdbgProjMenu'; 101 JclDeleteMapFileActionName = 'JCLDeleteMapFileCommand'; 102 JclDeleteMapFileMenuName = 'JCLDeleteMapFileMenu'; 103 JclDeleteMapFileProjMenuName = 'JCLDeleteMapFileProjMenu'; 104 JclDebugGenerateJdbgSetting = 'JCL_DEBUG_EXPERT_GENERATEJDBG'; 105 JclDebugInsertJdbgSetting = 'JCL_DEBUG_EXPERT_INSERTJDBG'; 106 JclDebugDeleteMapfileSetting = 'JCL_DEBUG_EXPERT_DELETEMAPFILE'; 107 JclDebugQuietSetting = 'JCL_DEBUG_EXPERT_QUIET'; 108 109 //=== Favorite Folders Expert ============================================== 110 JclFavoritesExpertName = 'JclFavoriteFoldersExpert'; 111 JclFavoritesListSubKey = 'Favorites'; 112 PictDialogFolderItemName = 'PictureDialogPath'; 113 BorlandImagesPath = 'Borland Shared\Images'; 114 115 //=== Threads Expert ======================================================= 116 JclThreadsExpertName = 'JclThreadsExpert'; 117 118 //=== SIMD Expert ========================================================== 119 JclSIMDExpertName = 'JclSIMDExpert'; 120 JclSIMDActionName = 'JCLSIMDCommand'; 121 JclSIMDMenuName = 'JCLSIMDMenu'; 122 123 //=== Uses Expert ========================================================== 124 JclUsesExpertName = 'JclUsesExpert'; 125 SIniIdentifierLists = 'IdentifierLists'; 126 SRegDebugLibPath = 'Debug Library'; 127 SRegLibPath = 'Library'; 128 SRegWizardActive = 'Uses Wizard Active'; 129 SRegWizardConfirm = 'Uses Wizard Confirm'; 130 SRegWizardIniFile = 'Configuration File'; 131 JclIniFileLocation = 'experts\useswizard\JediUsesWizard.ini'; 132 133 //=== Project analyser ===================================================== 134 JclProjectAnalyzerExpertName = 'JclProjectAnalyzerExpert'; 135 AnalyzerViewName = 'AnalyzerView'; 136 AnalyzerShowPackagesName = 'ShowPackages'; 137 JclProjectAnalyzeActionName = 'JCLProjectAnalyseCommand'; 138 JclProjectAnalyzeMenuName = 'JCLProjectAnalyseMenu'; 139 140 //=== Repository Expert ==================================================== 141 JclRepositoryCategoryDelphiFiles = {$IFDEF BDS} sCategoryDelphiNewFiles {$ELSE BDS} '' {$ENDIF BDS}; 142 JclRepositoryCategoryCBuilderFiles = {$IFDEF BDS} sCategoryCBuilderNewFiles {$ELSE BDS} '' {$ENDIF BDS}; 143 JclRepositoryModuleTypeForm = omtForm; 144 145 //=== Version Control Expert =============================================== 146 JclVersionCtrlMenuName = 'JclVersionCtrlMenu'; 147 JclVersionCtrlActOnTopSandboxName = 'ActOnTopSandbox'; 148 JclVersionCtrlMenuOrganizationName = 'MenuOrganization'; 149 JclVersionCtrlSaveConfirmationName = 'SaveConfirmation'; 150 JclVersionCtrlDisableActionsName = 'DisableActions'; 151 JclVersionCtrlHideActionsName = 'HideActions'; 152 JclVersionCtrlIconTypeName = 'IconType'; 153 JclVersionCtrlIconTypeAutoValue = 'auto'; 154 JclVersionCtrlIconTypeNoIconValue = 'noicon'; 155 JclVersionCtrlIconTypeJclIconValue = 'jclicons'; 156 157 //=== Stack Trace Viewer Expert ============================================ 158 JclStackTraceViewerExpertName = 'JclStackTraceViewerExpert'; 159 JclStackTraceViewerActionName = 'JCLStackTraceViewerCommand'; 160 JclStackTraceViewerMenuName = 'JCLStackTraceViewerMenu'; 161 JclStackTraceViewerDesktopIniSection = 'JclStackTraceViewer'; 162 163{$IFDEF UNITVERSIONING} 164const 165 UnitVersioning: TUnitVersionInfo = ( 166 RCSfile: '$URL$'; 167 Revision: '$Revision$'; 168 Date: '$Date$'; 169 LogPath: 'JCL\experts\common'; 170 Extra: ''; 171 Data: nil 172 ); 173{$ENDIF UNITVERSIONING} 174 175implementation 176 177{$IFDEF UNITVERSIONING} 178initialization 179 RegisterUnitVersion(HInstance, UnitVersioning); 180 181finalization 182 UnregisterUnitVersion(HInstance); 183{$ENDIF UNITVERSIONING} 184 185end.