PageRenderTime 39ms CodeModel.GetById 35ms app.highlight 1ms RepoModel.GetById 0ms app.codeStats 0ms

/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
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.