Changeset 487 for cprs/branches/tmg-cprs/CPRS-Chart
- Timestamp:
- Sep 7, 2008, 8:34:08 PM (16 years ago)
- Location:
- cprs/branches/tmg-cprs/CPRS-Chart
- Files:
-
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/tmg-cprs/CPRS-Chart/Accessibility_TLB.pas
r472 r487 13 13 14 14 // PASTLWTR : 1.2 15 // File generated on 7/19/2008 3:07:40PM from Type Library described below.15 // File generated on 9/7/2008 8:16:48 PM from Type Library described below. 16 16 17 17 // ************************************************************************ // … … 24 24 // (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb) 25 25 // Parent TypeLibrary: 26 // (0) v1.0 CPRSChart, (P:\ Vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb)26 // (0) v1.0 CPRSChart, (P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb) 27 27 // Errors: 28 28 // Hint: Parameter 'var' of IAccPropServices.SetPropValue changed to 'var_' -
cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.cfg
r469 r487 37 37 -LE"c:\program files\borland\delphi7\Projects\Bpl" 38 38 -LN"c:\program files\borland\delphi7\Projects\Bpl" 39 -U"c:\program files\borland\delphi7\Lib\Debug;c:\program files\borland\delphi7\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01;P:\Vista\tmg-cprs\TntWare\Delphi Unicode Controls\Source;P:\Vista\tmg-cprs\TPNGGraphics "40 -O"c:\program files\borland\delphi7\Lib\Debug;c:\program files\borland\delphi7\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01;P:\Vista\tmg-cprs\TntWare\Delphi Unicode Controls\Source;P:\Vista\tmg-cprs\TPNGGraphics "41 -I"c:\program files\borland\delphi7\Lib\Debug;c:\program files\borland\delphi7\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01;P:\Vista\tmg-cprs\TntWare\Delphi Unicode Controls\Source;P:\Vista\tmg-cprs\TPNGGraphics "42 -R"c:\program files\borland\delphi7\Lib\Debug;c:\program files\borland\delphi7\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01;P:\Vista\tmg-cprs\TntWare\Delphi Unicode Controls\Source;P:\Vista\tmg-cprs\TPNGGraphics "43 -DMSWINDOWS 39 -U"c:\program files\borland\delphi7\Lib\Debug;c:\program files\borland\delphi7\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01;P:\Vista\tmg-cprs\TntWare\Delphi Unicode Controls\Source;P:\Vista\tmg-cprs\TPNGGraphics;P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SkinStuff" 40 -O"c:\program files\borland\delphi7\Lib\Debug;c:\program files\borland\delphi7\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01;P:\Vista\tmg-cprs\TntWare\Delphi Unicode Controls\Source;P:\Vista\tmg-cprs\TPNGGraphics;P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SkinStuff" 41 -I"c:\program files\borland\delphi7\Lib\Debug;c:\program files\borland\delphi7\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01;P:\Vista\tmg-cprs\TntWare\Delphi Unicode Controls\Source;P:\Vista\tmg-cprs\TPNGGraphics;P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SkinStuff" 42 -R"c:\program files\borland\delphi7\Lib\Debug;c:\program files\borland\delphi7\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01;P:\Vista\tmg-cprs\TntWare\Delphi Unicode Controls\Source;P:\Vista\tmg-cprs\TPNGGraphics;P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SkinStuff" 43 -DMSWINDOWS;USE_SKINS 44 44 -w-UNSAFE_TYPE 45 45 -w-UNSAFE_CODE -
cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dof
r472 r487 95 95 PackageDLLOutputDir= 96 96 PackageDCPOutputDir= 97 SearchPath=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01;P:\Vista\tmg-cprs\TntWare\Delphi Unicode Controls\Source;P:\Vista\tmg-cprs\TPNGGraphics 97 SearchPath=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01;P:\Vista\tmg-cprs\TntWare\Delphi Unicode Controls\Source;P:\Vista\tmg-cprs\TPNGGraphics;P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SkinStuff 98 98 Packages=vcl;rtl;vclx;VclSmp;vclshlctrls;dbrtl;adortl;vcldb;qrpt;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;teeqr;ibxpress;visualclx;visualdbclx;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;dbexpress;dbxcds;indy;dclOffice2k;soaprtl;XWB_R60 99 Conditionals=MSWINDOWS 99 Conditionals=MSWINDOWS;USE_SKINS 100 100 DebugSourceDirs=P:\Vista\tmg-cprs\dklang-package-3.01\ 101 101 UsePackages=0 … … 135 135 ProductVersion=1.0.0.0 136 136 Comments=1.0.26.76 137 [HistoryLists\hlDebugSourcePath] 138 Count=1 139 Item0=P:\Vista\tmg-cprs\dklang-package-3.01\ 137 140 [HistoryLists\hlConditionals] 138 Count=1 139 Item0=MSWINDOWS 141 Count=2 142 Item0=MSWINDOWS;USE_SKINS 143 Item1=MSWINDOWS 140 144 [HistoryLists\hlUnitAliases] 141 145 Count=1 142 146 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 143 147 [HistoryLists\hlSearchPath] 144 Count=14 145 Item0=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01;P:\Vista\tmg-cprs\TntWare\Delphi Unicode Controls\Source;P:\Vista\tmg-cprs\TPNGGraphics 146 Item1=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01;P:\Vista\tmg-cprs\TntWare\Delphi Unicode Controls\Source 147 Item2=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01 148 Item3=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib 149 Item4=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages 150 Item5=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU 151 Item6=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu 152 Item7=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart;C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart\DCU;$(DELPHI)\Source\ToolsAPI 153 Item8=$(DELPHI)\Lib\Debug;C:\Program Files\Borland\Delphi7\Source\Rtl\Sys;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart;C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart\DCU;$(DELPHI)\Source\ToolsAPI 154 Item9=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart;C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart\DCU;$(DELPHI)\Source\ToolsAPI;C:\Program Files\Borland\Delphi7\Source\Rtl\Sys 155 Item10=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart;C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart\DCU 156 Item11=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Lib 157 Item12=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib 158 Item13=C:\Vista\cprs\OR_3_215V26_69\CPRS-Lib 148 Count=15 149 Item0=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01;P:\Vista\tmg-cprs\TntWare\Delphi Unicode Controls\Source;P:\Vista\tmg-cprs\TPNGGraphics;P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SkinStuff 150 Item1=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01;P:\Vista\tmg-cprs\TntWare\Delphi Unicode Controls\Source;P:\Vista\tmg-cprs\TPNGGraphics 151 Item2=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01;P:\Vista\tmg-cprs\TntWare\Delphi Unicode Controls\Source 152 Item3=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib;P:\Vista\tmg-cprs\dklang-package-3.01 153 Item4=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages;P:\Vista\tmg-cprs\CPRS-Lib 154 Item5=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU;P:\Vista\tmg-cprs\Packages 155 Item6=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu;P:\Vista\tmg-cprs\CPRS-Lib\DCU 156 Item7=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu 157 Item8=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart;C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart\DCU;$(DELPHI)\Source\ToolsAPI 158 Item9=$(DELPHI)\Lib\Debug;C:\Program Files\Borland\Delphi7\Source\Rtl\Sys;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart;C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart\DCU;$(DELPHI)\Source\ToolsAPI 159 Item10=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart;C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart\DCU;$(DELPHI)\Source\ToolsAPI;C:\Program Files\Borland\Delphi7\Source\Rtl\Sys 160 Item11=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart;C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart\DCU 161 Item12=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Lib 162 Item13=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib 163 Item14=C:\Vista\cprs\OR_3_215V26_69\CPRS-Lib 159 164 [HistoryLists\hlUnitOutputDirectory] 160 165 Count=3 -
cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.drc
r472 r487 9 9 */ 10 10 11 #define IdResourceStrings_RSStackESHUTDOWN 64928 12 #define IdResourceStrings_RSStackETOOMANYREFS 64929 13 #define IdResourceStrings_RSStackETIMEDOUT 64930 14 #define IdResourceStrings_RSStackECONNREFUSED 64931 15 #define IdResourceStrings_RSStackELOOP 64932 16 #define IdResourceStrings_RSStackENAMETOOLONG 64933 17 #define IdResourceStrings_RSStackEHOSTDOWN 64934 18 #define IdResourceStrings_RSStackEHOSTUNREACH 64935 19 #define IdResourceStrings_RSStackENOTEMPTY 64936 20 #define IdResourceStrings_RSStackHOST_NOT_FOUND 64937 21 #define JConsts_sChangeJPGSize 64938 22 #define JConsts_sJPEGError 64939 23 #define JConsts_sJPEGImageFile 64940 24 #define IdResourceStrings_RSStackENOPROTOOPT 64944 25 #define IdResourceStrings_RSStackEPROTONOSUPPORT 64945 26 #define IdResourceStrings_RSStackESOCKTNOSUPPORT 64946 27 #define IdResourceStrings_RSStackEOPNOTSUPP 64947 28 #define IdResourceStrings_RSStackEPFNOSUPPORT 64948 29 #define IdResourceStrings_RSStackEAFNOSUPPORT 64949 30 #define IdResourceStrings_RSStackEADDRINUSE 64950 31 #define IdResourceStrings_RSStackEADDRNOTAVAIL 64951 32 #define IdResourceStrings_RSStackENETDOWN 64952 33 #define IdResourceStrings_RSStackENETUNREACH 64953 34 #define IdResourceStrings_RSStackENETRESET 64954 35 #define IdResourceStrings_RSStackECONNABORTED 64955 36 #define IdResourceStrings_RSStackECONNRESET 64956 37 #define IdResourceStrings_RSStackENOBUFS 64957 38 #define IdResourceStrings_RSStackEISCONN 64958 39 #define IdResourceStrings_RSStackENOTCONN 64959 40 #define IdResourceStrings_RSWS2LoadError 64960 41 #define IdResourceStrings_RSInvalidServiceName 64961 42 #define IdResourceStrings_RSStackError 64962 43 #define IdResourceStrings_RSStackEINTR 64963 44 #define IdResourceStrings_RSStackEBADF 64964 45 #define IdResourceStrings_RSStackEACCES 64965 46 #define IdResourceStrings_RSStackEFAULT 64966 47 #define IdResourceStrings_RSStackEINVAL 64967 48 #define IdResourceStrings_RSStackEMFILE 64968 49 #define IdResourceStrings_RSStackEWOULDBLOCK 64969 50 #define IdResourceStrings_RSStackEINPROGRESS 64970 51 #define IdResourceStrings_RSStackEALREADY 64971 52 #define IdResourceStrings_RSStackENOTSOCK 64972 53 #define IdResourceStrings_RSStackEDESTADDRREQ 64973 54 #define IdResourceStrings_RSStackEMSGSIZE 64974 55 #define IdResourceStrings_RSStackEPROTOTYPE 64975 56 #define pnglang_EPNGInvalidFileHeaderText 64976 57 #define pnglang_EPNGIHDRNotFirstText 64977 58 #define pnglang_EPNGSizeExceedsText 64978 59 #define pnglang_EPNGUnknownPalEntryText 64979 60 #define pnglang_EPNGUnknownCriticalChunkText 64980 61 #define pnglang_EPNGUnknownCompressionText 64981 62 #define pnglang_EPNGUnknownInterlaceText 64982 63 #define pnglang_EPNGCannotAssignChunkText 64983 64 #define pnglang_EPNGUnexpectedEndText 64984 65 #define pnglang_EPNGNoImageDataText 64985 66 #define pnglang_EPNGCannotChangeSizeText 64986 67 #define pnglang_EPNGOutMemoryText 64987 68 #define pnglang_EPNGHeaderNotPresentText 64988 69 #define IdResourceStrings_RSWinsockInitializationError 64989 70 #define IdResourceStrings_RSSetSizeExceeded 64990 71 #define IdResourceStrings_RSWS2CallError 64991 72 #define VDBConsts_SFirstRecord 64992 73 #define VDBConsts_SPriorRecord 64993 74 #define VDBConsts_SNextRecord 64994 75 #define VDBConsts_SLastRecord 64995 76 #define VDBConsts_SInsertRecord 64996 77 #define VDBConsts_SDeleteRecord 64997 78 #define VDBConsts_SEditRecord 64998 79 #define VDBConsts_SPostEdit 64999 80 #define VDBConsts_SCancelEdit 65000 81 #define VDBConsts_SRefreshRecord 65001 82 #define VDBConsts_SRemoteLogin 65002 83 #define pnglang_EPngInvalidCRCText 65003 84 #define pnglang_EPNGInvalidIHDRText 65004 85 #define pnglang_EPNGMissingMultipleIDATText 65005 86 #define pnglang_EPNGZLIBErrorText 65006 87 #define pnglang_EPNGInvalidPaletteText 65007 88 #define QConsts_SUnknownImageFormat 65008 89 #define QConsts_SUnableToWrite 65009 90 #define QConsts_SUndo 65010 91 #define QConsts_SRedo 65011 92 #define QConsts_SLine 65012 93 #define QConsts_SCut 65013 94 #define QConsts_SCopy 65014 95 #define QConsts_SPaste 65015 96 #define QConsts_SClear 65016 97 #define QConsts_SSelectAll 65017 98 #define QConsts_SNoAppInLib 65018 99 #define QConsts_SDuplicateApp 65019 100 #define DBConsts_SBcdOverflow 65020 101 #define DBConsts_SInvalidBcdValue 65021 102 #define DBConsts_SCouldNotParseTimeStamp 65022 103 #define DBConsts_SInvalidSqlTimeStamp 65023 104 #define QConsts_SMsgDlgInformation 65024 105 #define QConsts_SMsgDlgConfirm 65025 106 #define QConsts_SUnnamed 65026 107 #define QConsts_SName 65027 108 #define QConsts_SSize 65028 109 #define QConsts_SType 65029 110 #define QConsts_SDate 65030 111 #define QConsts_SAttributes 65031 112 #define QConsts_SDuplicateMenus 65032 113 #define QConsts_SImageIndexError 65033 114 #define QConsts_SInvalidImageDimensions 65034 115 #define QConsts_SInvalidImageDimension 65035 116 #define QConsts_SInvalidMimeSourceStream 65036 117 #define QConsts_SMimeNotSupportedForIcon 65037 118 #define QConsts_SOpen 65038 119 #define QConsts_SSave 65039 120 #define QConsts_SNotAnMDIForm 65040 121 #define QConsts_SMDIChildNotVisible 65041 122 #define QConsts_SControlParentSetToSelf 65042 123 #define QConsts_SOKButton 65043 124 #define QConsts_SCancelButton 65044 125 #define QConsts_SYesButton 65045 126 #define QConsts_SNoButton 65046 127 #define QConsts_SHelpButton 65047 128 #define QConsts_SCloseButton 65048 129 #define QConsts_SIgnoreButton 65049 130 #define QConsts_SRetryButton 65050 131 #define QConsts_SAbortButton 65051 132 #define QConsts_SAllButton 65052 133 #define QConsts_SCannotDragForm 65053 134 #define QConsts_SMsgDlgWarning 65054 135 #define QConsts_SMsgDlgError 65055 136 #define QConsts_SmkcAlt 65056 137 #define QConsts_SInvalidPixelFormat 65057 138 #define QConsts_SNoCanvasHandle 65058 139 #define QConsts_SInvalidCanvasState 65059 140 #define QConsts_SInvalidImageSize 65060 141 #define QConsts_SInvalidColorDepth 65061 142 #define QConsts_SCannotFocus 65062 143 #define QConsts_SParentRequired 65063 144 #define QConsts_SVisibleChanged 65064 145 #define QConsts_SMenuIndexError 65065 146 #define QConsts_SMenuReinserted 65066 147 #define QConsts_SNoMenuRecursion 65067 148 #define QConsts_SMenuNotFound 65068 149 #define QConsts_SMenuSetFormError 65069 150 #define QConsts_SGroupIndexTooLow 65070 151 #define QConsts_SNoMDIForm 65071 152 #define QConsts_SmkcEsc 65072 153 #define QConsts_SmkcReturn 65073 154 #define QConsts_SmkcEnter 65074 155 #define QConsts_SmkcSpace 65075 156 #define QConsts_SmkcPgUp 65076 157 #define QConsts_SmkcPgDn 65077 158 #define QConsts_SmkcEnd 65078 159 #define QConsts_SmkcHome 65079 160 #define QConsts_SmkcLeft 65080 161 #define QConsts_SmkcUp 65081 162 #define QConsts_SmkcRight 65082 163 #define QConsts_SmkcDown 65083 164 #define QConsts_SmkcIns 65084 165 #define QConsts_SmkcDel 65085 166 #define QConsts_SmkcShift 65086 167 #define QConsts_SmkcCtrl 65087 168 #define DKLang_SDKLangErrMsg_ErrorLoadingTran 65088 169 #define DKLang_SDKLangErrMsg_InvalidConstName 65089 170 #define DKLang_SDKLangErrMsg_DuplicateConstName 65090 171 #define DKLang_SDKLangErrMsg_ConstantNotFound 65091 172 #define DKLang_SDKLangErrMsg_LangManagerCalledAtDT 65092 173 #define DKLang_SDKLangErrMsg_StreamVersionTooHigh 65093 174 #define OleConst_SCannotActivate 65094 175 #define OleConst_SNoWindowHandle 65095 176 #define OleConst_SInvalidLicense 65096 177 #define OleConst_SNotLicensed 65097 178 #define OleConst_sNoRunningObject 65098 179 #define QConsts_SInvalidCreateWidget 65099 180 #define QConsts_STooManyMessageBoxButtons 65100 181 #define QConsts_SmkcBkSp 65101 182 #define QConsts_SmkcTab 65102 183 #define QConsts_SmkcBackTab 65103 184 #define TeeConst_TeeMsg_CheckPointerSize 65104 185 #define TeeConst_TeeMsg_FunctionPeriod 65105 186 #define TeeConst_TeeMsg_PieOther 65106 187 #define TeeConst_TeeMsg_ValuesX 65107 188 #define TeeConst_TeeMsg_ValuesY 65108 189 #define TeeConst_TeeMsg_ValuesPie 65109 190 #define TeeConst_TeeMsg_ValuesBar 65110 191 #define TeeConst_TeeMsg_ValuesAngle 65111 192 #define TeeConst_TeeMsg_ValuesGanttStart 65112 193 #define TeeConst_TeeMsg_ValuesGanttEnd 65113 194 #define TeeConst_TeeMsg_ValuesGanttNextTask 65114 195 #define TeeConst_TeeMsg_ValuesArrowEndX 65115 196 #define TeeConst_TeeMsg_ValuesArrowEndY 65116 197 #define TntSystem_SBufferOverflow 65117 198 #define TntSystem_SInvalidUTF7 65118 199 #define DKLang_SDKLangErrMsg_DuplicatePropValueID 65119 200 #define TeeConst_TeeMsg_GanttSample4 65120 201 #define TeeConst_TeeMsg_GanttSample5 65121 202 #define TeeConst_TeeMsg_GanttSample6 65122 203 #define TeeConst_TeeMsg_GanttSample7 65123 204 #define TeeConst_TeeMsg_GanttSample8 65124 205 #define TeeConst_TeeMsg_GanttSample9 65125 206 #define TeeConst_TeeMsg_GanttSample10 65126 207 #define TeeConst_TeeMsg_DefaultFontSize 65127 208 #define TeeConst_TeeMsg_FunctionAdd 65128 209 #define TeeConst_TeeMsg_FunctionSubtract 65129 210 #define TeeConst_TeeMsg_FunctionMultiply 65130 211 #define TeeConst_TeeMsg_FunctionDivide 65131 212 #define TeeConst_TeeMsg_FunctionHigh 65132 213 #define TeeConst_TeeMsg_FunctionLow 65133 214 #define TeeConst_TeeMsg_FunctionAverage 65134 215 #define TeeConst_TeeMsg_DefaultFontName 65135 216 #define TeeConst_TeeMsg_Rotation 65136 217 #define TeeConst_TeeMsg_PieSample1 65137 218 #define TeeConst_TeeMsg_PieSample2 65138 219 #define TeeConst_TeeMsg_PieSample3 65139 220 #define TeeConst_TeeMsg_PieSample4 65140 221 #define TeeConst_TeeMsg_PieSample5 65141 222 #define TeeConst_TeeMsg_PieSample6 65142 223 #define TeeConst_TeeMsg_PieSample7 65143 224 #define TeeConst_TeeMsg_PieSample8 65144 225 #define TeeConst_TeeMsg_GalleryStandard 65145 226 #define TeeConst_TeeMsg_GalleryFunctions 65146 227 #define TeeConst_TeeMsg_GalleryArrow 65147 228 #define TeeConst_TeeMsg_GalleryGantt 65148 229 #define TeeConst_TeeMsg_GanttSample1 65149 230 #define TeeConst_TeeMsg_GanttSample2 65150 231 #define TeeConst_TeeMsg_GanttSample3 65151 232 #define TeeConst_TeeMsg_3dPercent 65152 233 #define TeeConst_TeeMsg_CircularSeries 65153 234 #define TeeConst_TeeMsg_BarWidthPercent 65154 235 #define TeeConst_TeeMsg_BarOffsetPercent 65155 236 #define TeeConst_TeeMsg_DefaultPercentOf 65156 237 #define TeeConst_TeeMsg_DefPercentFormat 65157 238 #define TeeConst_TeeMsg_DefValueFormat 65158 239 #define TeeConst_TeeMsg_AxisTitle 65159 240 #define TeeConst_TeeMsg_AxisLabels 65160 241 #define TeeConst_TeeMsg_GalleryLine 65161 242 #define TeeConst_TeeMsg_GalleryPoint 65162 243 #define TeeConst_TeeMsg_GalleryArea 65163 244 #define TeeConst_TeeMsg_GalleryBar 65164 245 #define TeeConst_TeeMsg_GalleryHorizBar 65165 246 #define TeeConst_TeeMsg_GalleryPie 65166 247 #define TeeConst_TeeMsg_GalleryFastLine 65167 248 #define ComConst_SNoCloseActiveServer2 65168 249 #define TeeConst_TeeMsg_LegendTopPos 65169 250 #define TeeConst_TeeMsg_LegendFirstValue 65170 251 #define TeeConst_TeeMsg_LegendColorWidth 65171 252 #define TeeConst_TeeMsg_SeriesSetDataSource 65172 253 #define TeeConst_TeeMsg_SeriesInvDataSource 65173 254 #define TeeConst_TeeMsg_FillSample 65174 255 #define TeeConst_TeeMsg_Angle 65175 256 #define TeeConst_TeeMsg_AxisLogDateTime 65176 257 #define TeeConst_TeeMsg_AxisLogNotPositive 65177 258 #define TeeConst_TeeMsg_AxisLabelSep 65178 259 #define TeeConst_TeeMsg_AxisIncrementNeg 65179 260 #define TeeConst_TeeMsg_AxisMinMax 65180 261 #define TeeConst_TeeMsg_AxisMaxMin 65181 262 #define TeeConst_TeeMsg_AxisLogBase 65182 263 #define TeeConst_TeeMsg_MaxPointsPerPage 65183 264 #define ComStrs_sFailSetCalMinMaxRange 65184 265 #define ComStrs_sFailsetCalSelRange 65185 266 #define WinHelpViewer_hNoKeyword 65186 267 #define ComConst_SCreateRegKeyError 65187 268 #define ComConst_SOleError 65188 269 #define ComConst_SObjectFactoryMissing 65189 270 #define ComConst_STypeInfoMissing 65190 271 #define ComConst_SBadTypeInfo 65191 272 #define ComConst_SDispIntfMissing 65192 273 #define ComConst_SNoMethod 65193 274 #define ComConst_SVarNotObject 65194 275 #define ComConst_STooManyParams 65195 276 #define ComConst_SDCOMNotInstalled 65196 277 #define ComConst_SDAXError 65197 278 #define ComConst_SAutomationWarning 65198 279 #define ComConst_SNoCloseActiveServer1 65199 280 #define ComStrs_sTabFailSet 65200 281 #define ComStrs_sTabFailSetObject 65201 282 #define ComStrs_sTabMustBeMultiLine 65202 283 #define ComStrs_sInvalidIndex 65203 284 #define ComStrs_sInsertError 65204 285 #define ComStrs_sInvalidOwner 65205 286 #define ComStrs_sRichEditInsertError 65206 287 #define ComStrs_sRichEditLoadFail 65207 288 #define ComStrs_sRichEditSaveFail 65208 289 #define ComStrs_sUDAssociated 65209 290 #define ComStrs_sPageIndexError 65210 291 #define ComStrs_sInvalidComCtl32 65211 292 #define ComStrs_sDateTimeMax 65212 293 #define ComStrs_sDateTimeMin 65213 294 #define ComStrs_sFailSetCalDateTime 65214 295 #define ComStrs_sFailSetCalMaxSelRange 65215 296 #define ExtCtrls_clNameInactiveCaptionText 65216 297 #define ExtCtrls_clNameInfoBk 65217 298 #define ExtCtrls_clNameInfoText 65218 299 #define ExtCtrls_clNameMenu 65219 300 #define ExtCtrls_clNameMenuText 65220 301 #define ExtCtrls_clNameNone 65221 302 #define ExtCtrls_clNameScrollBar 65222 303 #define ExtCtrls_clName3DDkShadow 65223 304 #define ExtCtrls_clName3DLight 65224 305 #define ExtCtrls_clNameWindow 65225 306 #define ExtCtrls_clNameWindowFrame 65226 307 #define ExtCtrls_clNameWindowText 65227 308 #define ComStrs_sTabFailClear 65228 309 #define ComStrs_sTabFailDelete 65229 310 #define ComStrs_sTabFailRetrieve 65230 311 #define ComStrs_sTabFailGetObject 65231 312 #define ExtCtrls_clNameMedGray 65232 313 #define ExtCtrls_clNameActiveBorder 65233 314 #define ExtCtrls_clNameActiveCaption 65234 315 #define ExtCtrls_clNameAppWorkSpace 65235 316 #define ExtCtrls_clNameBackground 65236 317 #define ExtCtrls_clNameBtnFace 65237 318 #define ExtCtrls_clNameBtnHighlight 65238 319 #define ExtCtrls_clNameBtnShadow 65239 320 #define ExtCtrls_clNameBtnText 65240 321 #define ExtCtrls_clNameCaptionText 65241 322 #define ExtCtrls_clNameDefault 65242 323 #define ExtCtrls_clNameGrayText 65243 324 #define ExtCtrls_clNameHighlight 65244 325 #define ExtCtrls_clNameHighlightText 65245 326 #define ExtCtrls_clNameInactiveBorder 65246 327 #define ExtCtrls_clNameInactiveCaption 65247 328 #define ExtCtrls_clNameOlive 65248 329 #define ExtCtrls_clNameNavy 65249 330 #define ExtCtrls_clNamePurple 65250 331 #define ExtCtrls_clNameTeal 65251 332 #define ExtCtrls_clNameGray 65252 333 #define ExtCtrls_clNameSilver 65253 334 #define ExtCtrls_clNameRed 65254 335 #define ExtCtrls_clNameLime 65255 336 #define ExtCtrls_clNameYellow 65256 337 #define ExtCtrls_clNameBlue 65257 338 #define ExtCtrls_clNameFuchsia 65258 339 #define ExtCtrls_clNameAqua 65259 340 #define ExtCtrls_clNameWhite 65260 341 #define ExtCtrls_clNameMoneyGreen 65261 342 #define ExtCtrls_clNameSkyBlue 65262 343 #define ExtCtrls_clNameCream 65263 344 #define Consts_SDockedCtlNeedsName 65264 345 #define Consts_SDockTreeRemoveError 65265 346 #define Consts_SDockZoneNotFound 65266 347 #define Consts_SDockZoneHasNoCtl 65267 348 #define Consts_SMultiSelectRequired 65268 349 #define Consts_SSeparator 65269 350 #define Consts_SErrorSettingCount 65270 351 #define Consts_SListBoxMustBeVirtual 65271 352 #define Consts_SNoGetItemEventHandler 65272 353 #define HelpIntfs_hNoTableOfContents 65273 354 #define HelpIntfs_hNothingFound 65274 355 #define HelpIntfs_hNoContext 65275 356 #define HelpIntfs_hNoTopics 65276 357 #define ExtCtrls_clNameBlack 65277 358 #define ExtCtrls_clNameMaroon 65278 359 #define ExtCtrls_clNameGreen 65279 360 #define Consts_SmkcAlt 65280 361 #define Consts_srNone 65281 362 #define Consts_SOutOfRange 65282 363 #define Consts_sAllFilter 65283 364 #define Consts_SInsertLineError 65284 365 #define Consts_SInvalidClipFmt 65285 366 #define Consts_SIconToClipboard 65286 367 #define Consts_SCannotOpenClipboard 65287 368 #define Consts_SInvalidMemoSize 65288 369 #define Consts_SInvalidPrinterOp 65289 370 #define Consts_SNoDefaultPrinter 65290 371 #define Consts_SDuplicateMenus 65291 372 #define Consts_SPictureLabel 65292 373 #define Consts_SPictureDesc 65293 374 #define Consts_SPreviewLabel 65294 375 #define Consts_SCannotOpenAVI 65295 376 #define Consts_SmkcTab 65296 377 #define Consts_SmkcEsc 65297 378 #define Consts_SmkcEnter 65298 379 #define Consts_SmkcSpace 65299 380 #define Consts_SmkcPgUp 65300 381 #define Consts_SmkcPgDn 65301 382 #define Consts_SmkcEnd 65302 383 #define Consts_SmkcHome 65303 384 #define Consts_SmkcLeft 65304 385 #define Consts_SmkcUp 65305 386 #define Consts_SmkcRight 65306 387 #define Consts_SmkcDown 65307 388 #define Consts_SmkcIns 65308 389 #define Consts_SmkcDel 65309 390 #define Consts_SmkcShift 65310 391 #define Consts_SmkcCtrl 65311 392 #define Consts_SMsgDlgWarning 65312 393 #define Consts_SMsgDlgError 65313 394 #define Consts_SMsgDlgInformation 65314 395 #define Consts_SMsgDlgConfirm 65315 396 #define Consts_SMsgDlgYes 65316 397 #define Consts_SMsgDlgNo 65317 398 #define Consts_SMsgDlgOK 65318 399 #define Consts_SMsgDlgCancel 65319 400 #define Consts_SMsgDlgHelp 65320 401 #define Consts_SMsgDlgAbort 65321 402 #define Consts_SMsgDlgRetry 65322 403 #define Consts_SMsgDlgIgnore 65323 404 #define Consts_SMsgDlgAll 65324 405 #define Consts_SMsgDlgNoToAll 65325 406 #define Consts_SMsgDlgYesToAll 65326 407 #define Consts_SmkcBkSp 65327 408 #define Consts_SCancelButton 65328 409 #define Consts_SYesButton 65329 410 #define Consts_SNoButton 65330 411 #define Consts_SHelpButton 65331 412 #define Consts_SCloseButton 65332 413 #define Consts_SIgnoreButton 65333 414 #define Consts_SRetryButton 65334 415 #define Consts_SAbortButton 65335 416 #define Consts_SAllButton 65336 417 #define Consts_SCannotDragForm 65337 418 #define Consts_SVMetafiles 65338 419 #define Consts_SVEnhMetafiles 65339 420 #define Consts_SVIcons 65340 421 #define Consts_SVBitmaps 65341 422 #define Consts_SMaskErr 65342 423 #define Consts_SMaskEditErr 65343 424 #define Consts_SVisibleChanged 65344 425 #define Consts_SCannotShowModal 65345 426 #define Consts_SScrollBarRange 65346 427 #define Consts_SPropertyOutOfRange 65347 428 #define Consts_SMenuIndexError 65348 429 #define Consts_SMenuReinserted 65349 430 #define Consts_SMenuNotFound 65350 431 #define Consts_SNoTimers 65351 432 #define Consts_SNotPrinting 65352 433 #define Consts_SPrinting 65353 434 #define Consts_SInvalidPrinter 65354 435 #define Consts_SDeviceOnPort 65355 436 #define Consts_SGroupIndexTooLow 65356 437 #define Consts_SNoMDIForm 65357 438 #define Consts_SControlParentSetToSelf 65358 439 #define Consts_SOKButton 65359 440 #define Consts_SUnknownExtension 65360 441 #define Consts_SUnknownClipboardFormat 65361 442 #define Consts_SOutOfResources 65362 443 #define Consts_SNoCanvasHandle 65363 444 #define Consts_SInvalidImageSize 65364 445 #define Consts_SInvalidImageList 65365 446 #define Consts_SReplaceImage 65366 447 #define Consts_SImageIndexError 65367 448 #define Consts_SImageReadFail 65368 449 #define Consts_SImageWriteFail 65369 450 #define Consts_SWindowDCError 65370 451 #define Consts_SWindowClass 65371 452 #define Consts_SCannotFocus 65372 453 #define Consts_SParentRequired 65373 454 #define Consts_SParentGivenNotAParent 65374 455 #define Consts_SMDIChildNotVisible 65375 456 #define RTLConsts_STooManyDeleted 65376 457 #define RTLConsts_SUnknownGroup 65377 458 #define RTLConsts_SUnknownProperty 65378 459 #define RTLConsts_SWriteError 65379 460 #define RTLConsts_SThreadCreateError 65380 461 #define RTLConsts_SThreadError 65381 462 #define Consts_SInvalidTabPosition 65382 463 #define Consts_SInvalidTabStyle 65383 464 #define Consts_SInvalidBitmap 65384 465 #define Consts_SInvalidIcon 65385 466 #define Consts_SInvalidMetafile 65386 467 #define Consts_SInvalidPixelFormat 65387 468 #define Consts_SInvalidImage 65388 469 #define Consts_SScanLine 65389 470 #define Consts_SChangeIconSize 65390 471 #define Consts_SOleGraphic 65391 472 #define RTLConsts_SInvalidPropertyType 65392 473 #define RTLConsts_SInvalidPropertyValue 65393 474 #define RTLConsts_SInvalidRegType 65394 475 #define RTLConsts_SInvalidStringGridOp 65395 476 #define RTLConsts_SListCapacityError 65396 477 #define RTLConsts_SListCountError 65397 478 #define RTLConsts_SListIndexError 65398 479 #define RTLConsts_SMemoryStreamError 65399 480 #define RTLConsts_SPropertyException 65400 481 #define RTLConsts_SReadError 65401 482 #define RTLConsts_SReadOnlyProperty 65402 483 #define RTLConsts_SRegGetDataFailed 65403 484 #define RTLConsts_SRegSetDataFailed 65404 485 #define RTLConsts_SResNotFound 65405 486 #define RTLConsts_SSeekNotImplemented 65406 487 #define RTLConsts_SSortedListError 65407 488 #define RTLConsts_SDuplicateItem 65408 489 #define RTLConsts_SDuplicateName 65409 490 #define RTLConsts_SDuplicateString 65410 491 #define RTLConsts_SFCreateErrorEx 65411 492 #define RTLConsts_SFixedColTooBig 65412 493 #define RTLConsts_SFixedRowTooBig 65413 494 #define RTLConsts_SFOpenErrorEx 65414 495 #define RTLConsts_SGridTooLarge 65415 496 #define RTLConsts_SIndexOutOfRange 65416 497 #define RTLConsts_SIniFileWriteError 65417 498 #define RTLConsts_SInvalidImage 65418 499 #define RTLConsts_SInvalidMask 65419 500 #define RTLConsts_SInvalidName 65420 501 #define RTLConsts_SInvalidProperty 65421 502 #define RTLConsts_SInvalidPropertyElement 65422 503 #define RTLConsts_SInvalidPropertyPath 65423 504 #define SysConst_SShortDayNameSat 65424 505 #define SysConst_SLongDayNameSun 65425 506 #define SysConst_SLongDayNameMon 65426 507 #define SysConst_SLongDayNameTue 65427 508 #define SysConst_SLongDayNameWed 65428 509 #define SysConst_SLongDayNameThu 65429 510 #define SysConst_SLongDayNameFri 65430 511 #define SysConst_SLongDayNameSat 65431 512 #define SysConst_SCannotCreateDir 65432 513 #define RTLConsts_SAncestorNotFound 65433 514 #define RTLConsts_SAssignError 65434 515 #define RTLConsts_SBitsIndexError 65435 516 #define RTLConsts_SCantWriteResourceStreamError 65436 517 #define RTLConsts_SCheckSynchronizeError 65437 518 #define RTLConsts_SClassNotFound 65438 519 #define RTLConsts_SDuplicateClass 65439 520 #define SysConst_SLongMonthNameMar 65440 521 #define SysConst_SLongMonthNameApr 65441 522 #define SysConst_SLongMonthNameMay 65442 523 #define SysConst_SLongMonthNameJun 65443 524 #define SysConst_SLongMonthNameJul 65444 525 #define SysConst_SLongMonthNameAug 65445 526 #define SysConst_SLongMonthNameSep 65446 527 #define SysConst_SLongMonthNameOct 65447 528 #define SysConst_SLongMonthNameNov 65448 529 #define SysConst_SLongMonthNameDec 65449 530 #define SysConst_SShortDayNameSun 65450 531 #define SysConst_SShortDayNameMon 65451 532 #define SysConst_SShortDayNameTue 65452 533 #define SysConst_SShortDayNameWed 65453 534 #define SysConst_SShortDayNameThu 65454 535 #define SysConst_SShortDayNameFri 65455 536 #define SysConst_SOSError 65456 537 #define SysConst_SUnkOSError 65457 538 #define SysConst_SShortMonthNameJan 65458 539 #define SysConst_SShortMonthNameFeb 65459 540 #define SysConst_SShortMonthNameMar 65460 541 #define SysConst_SShortMonthNameApr 65461 542 #define SysConst_SShortMonthNameMay 65462 543 #define SysConst_SShortMonthNameJun 65463 544 #define SysConst_SShortMonthNameJul 65464 545 #define SysConst_SShortMonthNameAug 65465 546 #define SysConst_SShortMonthNameSep 65466 547 #define SysConst_SShortMonthNameOct 65467 548 #define SysConst_SShortMonthNameNov 65468 549 #define SysConst_SShortMonthNameDec 65469 550 #define SysConst_SLongMonthNameJan 65470 551 #define SysConst_SLongMonthNameFeb 65471 552 #define SysConst_SVarTypeNotUsableWithPrefix 65472 553 #define SysConst_SVarTypeTooManyCustom 65473 554 #define SysConst_SVarTypeCouldNotConvert 65474 555 #define SysConst_SVarTypeConvertOverflow 65475 556 #define SysConst_SVarOverflow 65476 557 #define SysConst_SVarInvalid 65477 558 #define SysConst_SVarBadType 65478 559 #define SysConst_SVarNotImplemented 65479 560 #define SysConst_SVarUnexpected 65480 561 #define SysConst_SExternalException 65481 562 #define SysConst_SAssertionFailed 65482 563 #define SysConst_SIntfCastError 65483 564 #define SysConst_SSafecallException 65484 565 #define SysConst_SAssertError 65485 566 #define SysConst_SAbstractError 65486 567 #define SysConst_SModuleAccessViolation 65487 568 #define SysConst_SExceptTitle 65488 569 #define SysConst_SInvalidFormat 65489 570 #define SysConst_SArgumentMissing 65490 571 #define SysConst_SDispatchError 65491 572 #define SysConst_SReadAccess 65492 573 #define SysConst_SWriteAccess 65493 574 #define SysConst_SFormatTooLong 65494 575 #define SysConst_SVarArrayCreate 65495 576 #define SysConst_SVarArrayBounds 65496 577 #define SysConst_SVarArrayLocked 65497 578 #define SysConst_SInvalidVarCast 65498 579 #define SysConst_SInvalidVarOp 65499 580 #define SysConst_SInvalidVarNullOp 65500 581 #define SysConst_SInvalidVarOpWithHResultWithPrefix 65501 582 #define SysConst_SVarTypeOutOfRangeWithPrefix 65502 583 #define SysConst_SVarTypeAlreadyUsedWithPrefix 65503 584 #define SysConst_SDivByZero 65504 585 #define SysConst_SRangeError 65505 586 #define SysConst_SIntOverflow 65506 587 #define SysConst_SInvalidOp 65507 588 #define SysConst_SZeroDivide 65508 589 #define SysConst_SOverflow 65509 590 #define SysConst_SUnderflow 65510 591 #define SysConst_SInvalidPointer 65511 592 #define SysConst_SInvalidCast 65512 593 #define SysConst_SAccessViolationArg3 65513 594 #define SysConst_SAccessViolationNoArg 65514 595 #define SysConst_SStackOverflow 65515 596 #define SysConst_SControlC 65516 597 #define SysConst_SPrivilege 65517 598 #define SysConst_SOperationAborted 65518 599 #define SysConst_SException 65519 11 #define IdResourceStrings_RSStackESHUTDOWN 64848 12 #define IdResourceStrings_RSStackETOOMANYREFS 64849 13 #define IdResourceStrings_RSStackETIMEDOUT 64850 14 #define IdResourceStrings_RSStackECONNREFUSED 64851 15 #define IdResourceStrings_RSStackELOOP 64852 16 #define IdResourceStrings_RSStackENAMETOOLONG 64853 17 #define IdResourceStrings_RSStackEHOSTDOWN 64854 18 #define IdResourceStrings_RSStackEHOSTUNREACH 64855 19 #define IdResourceStrings_RSStackENOTEMPTY 64856 20 #define IdResourceStrings_RSStackHOST_NOT_FOUND 64857 21 #define IdResourceStrings_RSStackENOPROTOOPT 64864 22 #define IdResourceStrings_RSStackEPROTONOSUPPORT 64865 23 #define IdResourceStrings_RSStackESOCKTNOSUPPORT 64866 24 #define IdResourceStrings_RSStackEOPNOTSUPP 64867 25 #define IdResourceStrings_RSStackEPFNOSUPPORT 64868 26 #define IdResourceStrings_RSStackEAFNOSUPPORT 64869 27 #define IdResourceStrings_RSStackEADDRINUSE 64870 28 #define IdResourceStrings_RSStackEADDRNOTAVAIL 64871 29 #define IdResourceStrings_RSStackENETDOWN 64872 30 #define IdResourceStrings_RSStackENETUNREACH 64873 31 #define IdResourceStrings_RSStackENETRESET 64874 32 #define IdResourceStrings_RSStackECONNABORTED 64875 33 #define IdResourceStrings_RSStackECONNRESET 64876 34 #define IdResourceStrings_RSStackENOBUFS 64877 35 #define IdResourceStrings_RSStackEISCONN 64878 36 #define IdResourceStrings_RSStackENOTCONN 64879 37 #define IdResourceStrings_RSWS2LoadError 64880 38 #define IdResourceStrings_RSInvalidServiceName 64881 39 #define IdResourceStrings_RSStackError 64882 40 #define IdResourceStrings_RSStackEINTR 64883 41 #define IdResourceStrings_RSStackEBADF 64884 42 #define IdResourceStrings_RSStackEACCES 64885 43 #define IdResourceStrings_RSStackEFAULT 64886 44 #define IdResourceStrings_RSStackEINVAL 64887 45 #define IdResourceStrings_RSStackEMFILE 64888 46 #define IdResourceStrings_RSStackEWOULDBLOCK 64889 47 #define IdResourceStrings_RSStackEINPROGRESS 64890 48 #define IdResourceStrings_RSStackEALREADY 64891 49 #define IdResourceStrings_RSStackENOTSOCK 64892 50 #define IdResourceStrings_RSStackEDESTADDRREQ 64893 51 #define IdResourceStrings_RSStackEMSGSIZE 64894 52 #define IdResourceStrings_RSStackEPROTOTYPE 64895 53 #define pnglang_EPNGInvalidFileHeaderText 64896 54 #define pnglang_EPNGIHDRNotFirstText 64897 55 #define pnglang_EPNGSizeExceedsText 64898 56 #define pnglang_EPNGUnknownPalEntryText 64899 57 #define pnglang_EPNGUnknownCriticalChunkText 64900 58 #define pnglang_EPNGUnknownCompressionText 64901 59 #define pnglang_EPNGUnknownInterlaceText 64902 60 #define pnglang_EPNGCannotAssignChunkText 64903 61 #define pnglang_EPNGUnexpectedEndText 64904 62 #define pnglang_EPNGNoImageDataText 64905 63 #define pnglang_EPNGCannotChangeSizeText 64906 64 #define pnglang_EPNGOutMemoryText 64907 65 #define pnglang_EPNGHeaderNotPresentText 64908 66 #define IdResourceStrings_RSWinsockInitializationError 64909 67 #define IdResourceStrings_RSSetSizeExceeded 64910 68 #define IdResourceStrings_RSWS2CallError 64911 69 #define QConsts_SUnableToWrite 64912 70 #define QConsts_SUndo 64913 71 #define QConsts_SRedo 64914 72 #define QConsts_SLine 64915 73 #define QConsts_SCut 64916 74 #define QConsts_SCopy 64917 75 #define QConsts_SPaste 64918 76 #define QConsts_SClear 64919 77 #define QConsts_SSelectAll 64920 78 #define QConsts_SNoAppInLib 64921 79 #define QConsts_SDuplicateApp 64922 80 #define pnglang_EPngInvalidCRCText 64923 81 #define pnglang_EPNGInvalidIHDRText 64924 82 #define pnglang_EPNGMissingMultipleIDATText 64925 83 #define pnglang_EPNGZLIBErrorText 64926 84 #define pnglang_EPNGInvalidPaletteText 64927 85 #define QConsts_SMsgDlgConfirm 64928 86 #define QConsts_SUnnamed 64929 87 #define QConsts_SName 64930 88 #define QConsts_SSize 64931 89 #define QConsts_SType 64932 90 #define QConsts_SDate 64933 91 #define QConsts_SAttributes 64934 92 #define QConsts_SDuplicateMenus 64935 93 #define QConsts_SImageIndexError 64936 94 #define QConsts_SInvalidImageDimensions 64937 95 #define QConsts_SInvalidImageDimension 64938 96 #define QConsts_SInvalidMimeSourceStream 64939 97 #define QConsts_SMimeNotSupportedForIcon 64940 98 #define QConsts_SOpen 64941 99 #define QConsts_SSave 64942 100 #define QConsts_SUnknownImageFormat 64943 101 #define QConsts_SMDIChildNotVisible 64944 102 #define QConsts_SControlParentSetToSelf 64945 103 #define QConsts_SOKButton 64946 104 #define QConsts_SCancelButton 64947 105 #define QConsts_SYesButton 64948 106 #define QConsts_SNoButton 64949 107 #define QConsts_SHelpButton 64950 108 #define QConsts_SCloseButton 64951 109 #define QConsts_SIgnoreButton 64952 110 #define QConsts_SRetryButton 64953 111 #define QConsts_SAbortButton 64954 112 #define QConsts_SAllButton 64955 113 #define QConsts_SCannotDragForm 64956 114 #define QConsts_SMsgDlgWarning 64957 115 #define QConsts_SMsgDlgError 64958 116 #define QConsts_SMsgDlgInformation 64959 117 #define QConsts_SInvalidPixelFormat 64960 118 #define QConsts_SNoCanvasHandle 64961 119 #define QConsts_SInvalidCanvasState 64962 120 #define QConsts_SInvalidImageSize 64963 121 #define QConsts_SInvalidColorDepth 64964 122 #define QConsts_SCannotFocus 64965 123 #define QConsts_SParentRequired 64966 124 #define QConsts_SVisibleChanged 64967 125 #define QConsts_SMenuIndexError 64968 126 #define QConsts_SMenuReinserted 64969 127 #define QConsts_SNoMenuRecursion 64970 128 #define QConsts_SMenuNotFound 64971 129 #define QConsts_SMenuSetFormError 64972 130 #define QConsts_SGroupIndexTooLow 64973 131 #define QConsts_SNoMDIForm 64974 132 #define QConsts_SNotAnMDIForm 64975 133 #define QConsts_SmkcReturn 64976 134 #define QConsts_SmkcEnter 64977 135 #define QConsts_SmkcSpace 64978 136 #define QConsts_SmkcPgUp 64979 137 #define QConsts_SmkcPgDn 64980 138 #define QConsts_SmkcEnd 64981 139 #define QConsts_SmkcHome 64982 140 #define QConsts_SmkcLeft 64983 141 #define QConsts_SmkcUp 64984 142 #define QConsts_SmkcRight 64985 143 #define QConsts_SmkcDown 64986 144 #define QConsts_SmkcIns 64987 145 #define QConsts_SmkcDel 64988 146 #define QConsts_SmkcShift 64989 147 #define QConsts_SmkcCtrl 64990 148 #define QConsts_SmkcAlt 64991 149 #define VDBConsts_SNextRecord 64992 150 #define VDBConsts_SLastRecord 64993 151 #define VDBConsts_SInsertRecord 64994 152 #define VDBConsts_SDeleteRecord 64995 153 #define VDBConsts_SEditRecord 64996 154 #define VDBConsts_SPostEdit 64997 155 #define VDBConsts_SCancelEdit 64998 156 #define VDBConsts_SRefreshRecord 64999 157 #define VDBConsts_SNotReplicatable 65000 158 #define VDBConsts_SRemoteLogin 65001 159 #define QConsts_SInvalidCreateWidget 65002 160 #define QConsts_STooManyMessageBoxButtons 65003 161 #define QConsts_SmkcBkSp 65004 162 #define QConsts_SmkcTab 65005 163 #define QConsts_SmkcBackTab 65006 164 #define QConsts_SmkcEsc 65007 165 #define DBConsts_SDataSetReadOnly 65008 166 #define DBConsts_SNestedDataSetClass 65009 167 #define DBConsts_STextFalse 65010 168 #define DBConsts_STextTrue 65011 169 #define DBConsts_SProviderSQLNotSupported 65012 170 #define DBConsts_SProviderExecuteNotSupported 65013 171 #define DBConsts_SDataSetUnidirectional 65014 172 #define DBConsts_SUnassignedVar 65015 173 #define DBConsts_SRecordNotFound 65016 174 #define DBConsts_SBcdOverflow 65017 175 #define DBConsts_SInvalidBcdValue 65018 176 #define DBConsts_SInvalidFormatType 65019 177 #define DBConsts_SCouldNotParseTimeStamp 65020 178 #define DBConsts_SInvalidSqlTimeStamp 65021 179 #define VDBConsts_SFirstRecord 65022 180 #define VDBConsts_SPriorRecord 65023 181 #define DBConsts_SBcdFieldRangeError 65024 182 #define DBConsts_SInvalidIntegerValue 65025 183 #define DBConsts_SInvalidBoolValue 65026 184 #define DBConsts_SInvalidFloatValue 65027 185 #define DBConsts_SFieldTypeMismatch 65028 186 #define DBConsts_SFieldSizeMismatch 65029 187 #define DBConsts_SInvalidVarByteArray 65030 188 #define DBConsts_SFieldOutOfRange 65031 189 #define DBConsts_SFieldRequired 65032 190 #define DBConsts_SDataSetMissing 65033 191 #define DBConsts_SCircularDataLink 65034 192 #define DBConsts_SLookupInfoError 65035 193 #define DBConsts_SDataSourceChange 65036 194 #define DBConsts_SDataSetOpen 65037 195 #define DBConsts_SNotEditing 65038 196 #define DBConsts_SDataSetClosed 65039 197 #define ipGIF_sGIFImageFile 65040 198 #define ipGIF_sProgressLoading 65041 199 #define ipGIF_sProgressSaving 65042 200 #define ipGIF_sProgressConverting 65043 201 #define ipGIF_sProgressRendering 65044 202 #define ipGIF_sProgressCopying 65045 203 #define ipGIF_sProgressOptimizing 65046 204 #define DBConsts_SInvalidFieldSize 65047 205 #define DBConsts_SInvalidFieldKind 65048 206 #define DBConsts_SUnknownFieldType 65049 207 #define DBConsts_SFieldNameMissing 65050 208 #define DBConsts_SDuplicateFieldName 65051 209 #define DBConsts_SFieldNotFound 65052 210 #define DBConsts_SFieldAccessError 65053 211 #define DBConsts_SFieldValueError 65054 212 #define DBConsts_SFieldRangeError 65055 213 #define ipGIF_sUnsupportedClass 65056 214 #define ipGIF_sInvalidData 65057 215 #define ipGIF_sBadHeight 65058 216 #define ipGIF_sBadWidth 65059 217 #define ipGIF_sFailedPaste 65060 218 #define ipGIF_sScreenSizeExceeded 65061 219 #define ipGIF_sNoColorTable 65062 220 #define ipGIF_sBadPixelCoordinates 65063 221 #define ipGIF_sInvalidPixelFormat 65064 222 #define ipGIF_sBadDimension 65065 223 #define ipGIF_sNoDIB 65066 224 #define ipGIF_sInvalidStream 65067 225 #define ipGIF_sInvalidColor 65068 226 #define ipGIF_sEmptyColorMap 65069 227 #define ipGIF_sEmptyImage 65070 228 #define ipGIF_sInvalidReduction 65071 229 #define ipGIF_sOutOfData 65072 230 #define ipGIF_sTooManyColors 65073 231 #define ipGIF_sBadColorIndex 65074 232 #define ipGIF_sBadVersion 65075 233 #define ipGIF_sBadSignature 65076 234 #define ipGIF_sScreenBadColorSize 65077 235 #define ipGIF_sImageBadColorSize 65078 236 #define ipGIF_sUnknownExtension 65079 237 #define ipGIF_sBadExtensionLabel 65080 238 #define ipGIF_sOutOfMemDIB 65081 239 #define ipGIF_sDecodeTooFewBits 65082 240 #define ipGIF_sDecodeCircular 65083 241 #define ipGIF_sBadTrailer 65084 242 #define ipGIF_sBadExtensionInstance 65085 243 #define ipGIF_sBadBlockSize 65086 244 #define ipGIF_sBadBlock 65087 245 #define TntSystem_SInvalidUTF7 65088 246 #define DKLang_SDKLangErrMsg_DuplicatePropValueID 65089 247 #define DKLang_SDKLangErrMsg_ErrorLoadingTran 65090 248 #define DKLang_SDKLangErrMsg_InvalidConstName 65091 249 #define DKLang_SDKLangErrMsg_DuplicateConstName 65092 250 #define DKLang_SDKLangErrMsg_ConstantNotFound 65093 251 #define DKLang_SDKLangErrMsg_LangManagerCalledAtDT 65094 252 #define DKLang_SDKLangErrMsg_StreamVersionTooHigh 65095 253 #define OleConst_SCannotActivate 65096 254 #define OleConst_SNoWindowHandle 65097 255 #define OleConst_SInvalidLicense 65098 256 #define OleConst_SNotLicensed 65099 257 #define OleConst_sNoRunningObject 65100 258 #define JConsts_sChangeJPGSize 65101 259 #define JConsts_sJPEGError 65102 260 #define JConsts_sJPEGImageFile 65103 261 #define TeeConst_TeeMsg_FunctionAverage 65104 262 #define TeeConst_TeeMsg_DefaultFontName 65105 263 #define TeeConst_TeeMsg_CheckPointerSize 65106 264 #define TeeConst_TeeMsg_FunctionPeriod 65107 265 #define TeeConst_TeeMsg_PieOther 65108 266 #define TeeConst_TeeMsg_ValuesX 65109 267 #define TeeConst_TeeMsg_ValuesY 65110 268 #define TeeConst_TeeMsg_ValuesPie 65111 269 #define TeeConst_TeeMsg_ValuesBar 65112 270 #define TeeConst_TeeMsg_ValuesAngle 65113 271 #define TeeConst_TeeMsg_ValuesGanttStart 65114 272 #define TeeConst_TeeMsg_ValuesGanttEnd 65115 273 #define TeeConst_TeeMsg_ValuesGanttNextTask 65116 274 #define TeeConst_TeeMsg_ValuesArrowEndX 65117 275 #define TeeConst_TeeMsg_ValuesArrowEndY 65118 276 #define TntSystem_SBufferOverflow 65119 277 #define TeeConst_TeeMsg_GanttSample2 65120 278 #define TeeConst_TeeMsg_GanttSample3 65121 279 #define TeeConst_TeeMsg_GanttSample4 65122 280 #define TeeConst_TeeMsg_GanttSample5 65123 281 #define TeeConst_TeeMsg_GanttSample6 65124 282 #define TeeConst_TeeMsg_GanttSample7 65125 283 #define TeeConst_TeeMsg_GanttSample8 65126 284 #define TeeConst_TeeMsg_GanttSample9 65127 285 #define TeeConst_TeeMsg_GanttSample10 65128 286 #define TeeConst_TeeMsg_DefaultFontSize 65129 287 #define TeeConst_TeeMsg_FunctionAdd 65130 288 #define TeeConst_TeeMsg_FunctionSubtract 65131 289 #define TeeConst_TeeMsg_FunctionMultiply 65132 290 #define TeeConst_TeeMsg_FunctionDivide 65133 291 #define TeeConst_TeeMsg_FunctionHigh 65134 292 #define TeeConst_TeeMsg_FunctionLow 65135 293 #define TeeConst_TeeMsg_GalleryPie 65136 294 #define TeeConst_TeeMsg_GalleryFastLine 65137 295 #define TeeConst_TeeMsg_Rotation 65138 296 #define TeeConst_TeeMsg_PieSample1 65139 297 #define TeeConst_TeeMsg_PieSample2 65140 298 #define TeeConst_TeeMsg_PieSample3 65141 299 #define TeeConst_TeeMsg_PieSample4 65142 300 #define TeeConst_TeeMsg_PieSample5 65143 301 #define TeeConst_TeeMsg_PieSample6 65144 302 #define TeeConst_TeeMsg_PieSample7 65145 303 #define TeeConst_TeeMsg_PieSample8 65146 304 #define TeeConst_TeeMsg_GalleryStandard 65147 305 #define TeeConst_TeeMsg_GalleryFunctions 65148 306 #define TeeConst_TeeMsg_GalleryArrow 65149 307 #define TeeConst_TeeMsg_GalleryGantt 65150 308 #define TeeConst_TeeMsg_GanttSample1 65151 309 #define TeeConst_TeeMsg_AxisLogBase 65152 310 #define TeeConst_TeeMsg_MaxPointsPerPage 65153 311 #define TeeConst_TeeMsg_3dPercent 65154 312 #define TeeConst_TeeMsg_CircularSeries 65155 313 #define TeeConst_TeeMsg_BarWidthPercent 65156 314 #define TeeConst_TeeMsg_BarOffsetPercent 65157 315 #define TeeConst_TeeMsg_DefaultPercentOf 65158 316 #define TeeConst_TeeMsg_DefPercentFormat 65159 317 #define TeeConst_TeeMsg_DefValueFormat 65160 318 #define TeeConst_TeeMsg_AxisTitle 65161 319 #define TeeConst_TeeMsg_AxisLabels 65162 320 #define TeeConst_TeeMsg_GalleryLine 65163 321 #define TeeConst_TeeMsg_GalleryPoint 65164 322 #define TeeConst_TeeMsg_GalleryArea 65165 323 #define TeeConst_TeeMsg_GalleryBar 65166 324 #define TeeConst_TeeMsg_GalleryHorizBar 65167 325 #define ComConst_SAutomationWarning 65168 326 #define ComConst_SNoCloseActiveServer1 65169 327 #define ComConst_SNoCloseActiveServer2 65170 328 #define TeeConst_TeeMsg_LegendTopPos 65171 329 #define TeeConst_TeeMsg_LegendFirstValue 65172 330 #define TeeConst_TeeMsg_LegendColorWidth 65173 331 #define TeeConst_TeeMsg_SeriesSetDataSource 65174 332 #define TeeConst_TeeMsg_SeriesInvDataSource 65175 333 #define TeeConst_TeeMsg_FillSample 65176 334 #define TeeConst_TeeMsg_Angle 65177 335 #define TeeConst_TeeMsg_AxisLogDateTime 65178 336 #define TeeConst_TeeMsg_AxisLogNotPositive 65179 337 #define TeeConst_TeeMsg_AxisLabelSep 65180 338 #define TeeConst_TeeMsg_AxisIncrementNeg 65181 339 #define TeeConst_TeeMsg_AxisMinMax 65182 340 #define TeeConst_TeeMsg_AxisMaxMin 65183 341 #define ComStrs_sFailSetCalDateTime 65184 342 #define ComStrs_sFailSetCalMaxSelRange 65185 343 #define ComStrs_sFailSetCalMinMaxRange 65186 344 #define ComStrs_sFailsetCalSelRange 65187 345 #define WinHelpViewer_hNoKeyword 65188 346 #define ComConst_SCreateRegKeyError 65189 347 #define ComConst_SOleError 65190 348 #define ComConst_SObjectFactoryMissing 65191 349 #define ComConst_STypeInfoMissing 65192 350 #define ComConst_SBadTypeInfo 65193 351 #define ComConst_SDispIntfMissing 65194 352 #define ComConst_SNoMethod 65195 353 #define ComConst_SVarNotObject 65196 354 #define ComConst_STooManyParams 65197 355 #define ComConst_SDCOMNotInstalled 65198 356 #define ComConst_SDAXError 65199 357 #define ComStrs_sTabFailRetrieve 65200 358 #define ComStrs_sTabFailGetObject 65201 359 #define ComStrs_sTabFailSet 65202 360 #define ComStrs_sTabFailSetObject 65203 361 #define ComStrs_sTabMustBeMultiLine 65204 362 #define ComStrs_sInvalidIndex 65205 363 #define ComStrs_sInsertError 65206 364 #define ComStrs_sInvalidOwner 65207 365 #define ComStrs_sRichEditInsertError 65208 366 #define ComStrs_sRichEditLoadFail 65209 367 #define ComStrs_sRichEditSaveFail 65210 368 #define ComStrs_sUDAssociated 65211 369 #define ComStrs_sPageIndexError 65212 370 #define ComStrs_sInvalidComCtl32 65213 371 #define ComStrs_sDateTimeMax 65214 372 #define ComStrs_sDateTimeMin 65215 373 #define ExtCtrls_clNameInactiveBorder 65216 374 #define ExtCtrls_clNameInactiveCaption 65217 375 #define ExtCtrls_clNameInactiveCaptionText 65218 376 #define ExtCtrls_clNameInfoBk 65219 377 #define ExtCtrls_clNameInfoText 65220 378 #define ExtCtrls_clNameMenu 65221 379 #define ExtCtrls_clNameMenuText 65222 380 #define ExtCtrls_clNameNone 65223 381 #define ExtCtrls_clNameScrollBar 65224 382 #define ExtCtrls_clName3DDkShadow 65225 383 #define ExtCtrls_clName3DLight 65226 384 #define ExtCtrls_clNameWindow 65227 385 #define ExtCtrls_clNameWindowFrame 65228 386 #define ExtCtrls_clNameWindowText 65229 387 #define ComStrs_sTabFailClear 65230 388 #define ComStrs_sTabFailDelete 65231 389 #define ExtCtrls_clNameSkyBlue 65232 390 #define ExtCtrls_clNameCream 65233 391 #define ExtCtrls_clNameMedGray 65234 392 #define ExtCtrls_clNameActiveBorder 65235 393 #define ExtCtrls_clNameActiveCaption 65236 394 #define ExtCtrls_clNameAppWorkSpace 65237 395 #define ExtCtrls_clNameBackground 65238 396 #define ExtCtrls_clNameBtnFace 65239 397 #define ExtCtrls_clNameBtnHighlight 65240 398 #define ExtCtrls_clNameBtnShadow 65241 399 #define ExtCtrls_clNameBtnText 65242 400 #define ExtCtrls_clNameCaptionText 65243 401 #define ExtCtrls_clNameDefault 65244 402 #define ExtCtrls_clNameGrayText 65245 403 #define ExtCtrls_clNameHighlight 65246 404 #define ExtCtrls_clNameHighlightText 65247 405 #define ExtCtrls_clNameMaroon 65248 406 #define ExtCtrls_clNameGreen 65249 407 #define ExtCtrls_clNameOlive 65250 408 #define ExtCtrls_clNameNavy 65251 409 #define ExtCtrls_clNamePurple 65252 410 #define ExtCtrls_clNameTeal 65253 411 #define ExtCtrls_clNameGray 65254 412 #define ExtCtrls_clNameSilver 65255 413 #define ExtCtrls_clNameRed 65256 414 #define ExtCtrls_clNameLime 65257 415 #define ExtCtrls_clNameYellow 65258 416 #define ExtCtrls_clNameBlue 65259 417 #define ExtCtrls_clNameFuchsia 65260 418 #define ExtCtrls_clNameAqua 65261 419 #define ExtCtrls_clNameWhite 65262 420 #define ExtCtrls_clNameMoneyGreen 65263 421 #define Consts_SPreviewLabel 65264 422 #define Consts_SCannotOpenAVI 65265 423 #define Consts_SDockedCtlNeedsName 65266 424 #define Consts_SDockTreeRemoveError 65267 425 #define Consts_SDockZoneNotFound 65268 426 #define Consts_SDockZoneHasNoCtl 65269 427 #define Consts_SMultiSelectRequired 65270 428 #define Consts_SSeparator 65271 429 #define Consts_SErrorSettingCount 65272 430 #define Consts_SListBoxMustBeVirtual 65273 431 #define Consts_SNoGetItemEventHandler 65274 432 #define HelpIntfs_hNoTableOfContents 65275 433 #define HelpIntfs_hNothingFound 65276 434 #define HelpIntfs_hNoContext 65277 435 #define HelpIntfs_hNoTopics 65278 436 #define ExtCtrls_clNameBlack 65279 437 #define Consts_SmkcShift 65280 438 #define Consts_SmkcCtrl 65281 439 #define Consts_SmkcAlt 65282 440 #define Consts_srNone 65283 441 #define Consts_SOutOfRange 65284 442 #define Consts_sAllFilter 65285 443 #define Consts_SInsertLineError 65286 444 #define Consts_SInvalidClipFmt 65287 445 #define Consts_SIconToClipboard 65288 446 #define Consts_SCannotOpenClipboard 65289 447 #define Consts_SInvalidMemoSize 65290 448 #define Consts_SInvalidPrinterOp 65291 449 #define Consts_SNoDefaultPrinter 65292 450 #define Consts_SDuplicateMenus 65293 451 #define Consts_SPictureLabel 65294 452 #define Consts_SPictureDesc 65295 453 #define Consts_SMsgDlgYesToAll 65296 454 #define Consts_SmkcBkSp 65297 455 #define Consts_SmkcTab 65298 456 #define Consts_SmkcEsc 65299 457 #define Consts_SmkcEnter 65300 458 #define Consts_SmkcSpace 65301 459 #define Consts_SmkcPgUp 65302 460 #define Consts_SmkcPgDn 65303 461 #define Consts_SmkcEnd 65304 462 #define Consts_SmkcHome 65305 463 #define Consts_SmkcLeft 65306 464 #define Consts_SmkcUp 65307 465 #define Consts_SmkcRight 65308 466 #define Consts_SmkcDown 65309 467 #define Consts_SmkcIns 65310 468 #define Consts_SmkcDel 65311 469 #define Consts_SMaskErr 65312 470 #define Consts_SMaskEditErr 65313 471 #define Consts_SMsgDlgWarning 65314 472 #define Consts_SMsgDlgError 65315 473 #define Consts_SMsgDlgInformation 65316 474 #define Consts_SMsgDlgConfirm 65317 475 #define Consts_SMsgDlgYes 65318 476 #define Consts_SMsgDlgNo 65319 477 #define Consts_SMsgDlgOK 65320 478 #define Consts_SMsgDlgCancel 65321 479 #define Consts_SMsgDlgHelp 65322 480 #define Consts_SMsgDlgAbort 65323 481 #define Consts_SMsgDlgRetry 65324 482 #define Consts_SMsgDlgIgnore 65325 483 #define Consts_SMsgDlgAll 65326 484 #define Consts_SMsgDlgNoToAll 65327 485 #define Consts_SControlParentSetToSelf 65328 486 #define Consts_SOKButton 65329 487 #define Consts_SCancelButton 65330 488 #define Consts_SYesButton 65331 489 #define Consts_SNoButton 65332 490 #define Consts_SHelpButton 65333 491 #define Consts_SCloseButton 65334 492 #define Consts_SIgnoreButton 65335 493 #define Consts_SRetryButton 65336 494 #define Consts_SAbortButton 65337 495 #define Consts_SAllButton 65338 496 #define Consts_SCannotDragForm 65339 497 #define Consts_SVMetafiles 65340 498 #define Consts_SVEnhMetafiles 65341 499 #define Consts_SVIcons 65342 500 #define Consts_SVBitmaps 65343 501 #define Consts_SParentGivenNotAParent 65344 502 #define Consts_SMDIChildNotVisible 65345 503 #define Consts_SVisibleChanged 65346 504 #define Consts_SCannotShowModal 65347 505 #define Consts_SScrollBarRange 65348 506 #define Consts_SPropertyOutOfRange 65349 507 #define Consts_SMenuIndexError 65350 508 #define Consts_SMenuReinserted 65351 509 #define Consts_SMenuNotFound 65352 510 #define Consts_SNoTimers 65353 511 #define Consts_SNotPrinting 65354 512 #define Consts_SPrinting 65355 513 #define Consts_SInvalidPrinter 65356 514 #define Consts_SDeviceOnPort 65357 515 #define Consts_SGroupIndexTooLow 65358 516 #define Consts_SNoMDIForm 65359 517 #define Consts_SChangeIconSize 65360 518 #define Consts_SOleGraphic 65361 519 #define Consts_SUnknownExtension 65362 520 #define Consts_SUnknownClipboardFormat 65363 521 #define Consts_SOutOfResources 65364 522 #define Consts_SNoCanvasHandle 65365 523 #define Consts_SInvalidImageSize 65366 524 #define Consts_SInvalidImageList 65367 525 #define Consts_SReplaceImage 65368 526 #define Consts_SImageIndexError 65369 527 #define Consts_SImageReadFail 65370 528 #define Consts_SImageWriteFail 65371 529 #define Consts_SWindowDCError 65372 530 #define Consts_SWindowClass 65373 531 #define Consts_SCannotFocus 65374 532 #define Consts_SParentRequired 65375 533 #define RTLConsts_SSeekNotImplemented 65376 534 #define RTLConsts_SSortedListError 65377 535 #define RTLConsts_STooManyDeleted 65378 536 #define RTLConsts_SUnknownGroup 65379 537 #define RTLConsts_SUnknownProperty 65380 538 #define RTLConsts_SWriteError 65381 539 #define RTLConsts_SThreadCreateError 65382 540 #define RTLConsts_SThreadError 65383 541 #define Consts_SInvalidTabPosition 65384 542 #define Consts_SInvalidTabStyle 65385 543 #define Consts_SInvalidBitmap 65386 544 #define Consts_SInvalidIcon 65387 545 #define Consts_SInvalidMetafile 65388 546 #define Consts_SInvalidPixelFormat 65389 547 #define Consts_SInvalidImage 65390 548 #define Consts_SScanLine 65391 549 #define RTLConsts_SInvalidPropertyElement 65392 550 #define RTLConsts_SInvalidPropertyPath 65393 551 #define RTLConsts_SInvalidPropertyType 65394 552 #define RTLConsts_SInvalidPropertyValue 65395 553 #define RTLConsts_SInvalidRegType 65396 554 #define RTLConsts_SInvalidStringGridOp 65397 555 #define RTLConsts_SListCapacityError 65398 556 #define RTLConsts_SListCountError 65399 557 #define RTLConsts_SListIndexError 65400 558 #define RTLConsts_SMemoryStreamError 65401 559 #define RTLConsts_SPropertyException 65402 560 #define RTLConsts_SReadError 65403 561 #define RTLConsts_SReadOnlyProperty 65404 562 #define RTLConsts_SRegGetDataFailed 65405 563 #define RTLConsts_SRegSetDataFailed 65406 564 #define RTLConsts_SResNotFound 65407 565 #define RTLConsts_SClassNotFound 65408 566 #define RTLConsts_SDuplicateClass 65409 567 #define RTLConsts_SDuplicateItem 65410 568 #define RTLConsts_SDuplicateName 65411 569 #define RTLConsts_SDuplicateString 65412 570 #define RTLConsts_SFCreateErrorEx 65413 571 #define RTLConsts_SFixedColTooBig 65414 572 #define RTLConsts_SFixedRowTooBig 65415 573 #define RTLConsts_SFOpenErrorEx 65416 574 #define RTLConsts_SGridTooLarge 65417 575 #define RTLConsts_SIndexOutOfRange 65418 576 #define RTLConsts_SIniFileWriteError 65419 577 #define RTLConsts_SInvalidImage 65420 578 #define RTLConsts_SInvalidMask 65421 579 #define RTLConsts_SInvalidName 65422 580 #define RTLConsts_SInvalidProperty 65423 581 #define SysConst_SShortDayNameThu 65424 582 #define SysConst_SShortDayNameFri 65425 583 #define SysConst_SShortDayNameSat 65426 584 #define SysConst_SLongDayNameSun 65427 585 #define SysConst_SLongDayNameMon 65428 586 #define SysConst_SLongDayNameTue 65429 587 #define SysConst_SLongDayNameWed 65430 588 #define SysConst_SLongDayNameThu 65431 589 #define SysConst_SLongDayNameFri 65432 590 #define SysConst_SLongDayNameSat 65433 591 #define SysConst_SCannotCreateDir 65434 592 #define RTLConsts_SAncestorNotFound 65435 593 #define RTLConsts_SAssignError 65436 594 #define RTLConsts_SBitsIndexError 65437 595 #define RTLConsts_SCantWriteResourceStreamError 65438 596 #define RTLConsts_SCheckSynchronizeError 65439 597 #define SysConst_SLongMonthNameJan 65440 598 #define SysConst_SLongMonthNameFeb 65441 599 #define SysConst_SLongMonthNameMar 65442 600 #define SysConst_SLongMonthNameApr 65443 601 #define SysConst_SLongMonthNameMay 65444 602 #define SysConst_SLongMonthNameJun 65445 603 #define SysConst_SLongMonthNameJul 65446 604 #define SysConst_SLongMonthNameAug 65447 605 #define SysConst_SLongMonthNameSep 65448 606 #define SysConst_SLongMonthNameOct 65449 607 #define SysConst_SLongMonthNameNov 65450 608 #define SysConst_SLongMonthNameDec 65451 609 #define SysConst_SShortDayNameSun 65452 610 #define SysConst_SShortDayNameMon 65453 611 #define SysConst_SShortDayNameTue 65454 612 #define SysConst_SShortDayNameWed 65455 613 #define SysConst_SModuleAccessViolation 65456 614 #define SysConst_SOSError 65457 615 #define SysConst_SUnkOSError 65458 616 #define SysConst_SNL 65459 617 #define SysConst_SShortMonthNameJan 65460 618 #define SysConst_SShortMonthNameFeb 65461 619 #define SysConst_SShortMonthNameMar 65462 620 #define SysConst_SShortMonthNameApr 65463 621 #define SysConst_SShortMonthNameMay 65464 622 #define SysConst_SShortMonthNameJun 65465 623 #define SysConst_SShortMonthNameJul 65466 624 #define SysConst_SShortMonthNameAug 65467 625 #define SysConst_SShortMonthNameSep 65468 626 #define SysConst_SShortMonthNameOct 65469 627 #define SysConst_SShortMonthNameNov 65470 628 #define SysConst_SShortMonthNameDec 65471 629 #define SysConst_SVarTypeAlreadyUsedWithPrefix 65472 630 #define SysConst_SVarTypeNotUsableWithPrefix 65473 631 #define SysConst_SVarTypeTooManyCustom 65474 632 #define SysConst_SVarTypeCouldNotConvert 65475 633 #define SysConst_SVarTypeConvertOverflow 65476 634 #define SysConst_SVarOverflow 65477 635 #define SysConst_SVarInvalid 65478 636 #define SysConst_SVarBadType 65479 637 #define SysConst_SVarNotImplemented 65480 638 #define SysConst_SVarUnexpected 65481 639 #define SysConst_SExternalException 65482 640 #define SysConst_SAssertionFailed 65483 641 #define SysConst_SIntfCastError 65484 642 #define SysConst_SSafecallException 65485 643 #define SysConst_SAssertError 65486 644 #define SysConst_SAbstractError 65487 645 #define SysConst_SException 65488 646 #define SysConst_SExceptTitle 65489 647 #define SysConst_SInvalidFormat 65490 648 #define SysConst_SArgumentMissing 65491 649 #define SysConst_SDispatchError 65492 650 #define SysConst_SReadAccess 65493 651 #define SysConst_SWriteAccess 65494 652 #define SysConst_SFormatTooLong 65495 653 #define SysConst_SVarArrayCreate 65496 654 #define SysConst_SVarArrayBounds 65497 655 #define SysConst_SVarArrayLocked 65498 656 #define SysConst_SInvalidVarCast 65499 657 #define SysConst_SInvalidVarOp 65500 658 #define SysConst_SInvalidVarNullOp 65501 659 #define SysConst_SInvalidVarOpWithHResultWithPrefix 65502 660 #define SysConst_SVarTypeOutOfRangeWithPrefix 65503 661 #define SysConst_SInvalidInput 65504 662 #define SysConst_SDivByZero 65505 663 #define SysConst_SRangeError 65506 664 #define SysConst_SIntOverflow 65507 665 #define SysConst_SInvalidOp 65508 666 #define SysConst_SZeroDivide 65509 667 #define SysConst_SOverflow 65510 668 #define SysConst_SUnderflow 65511 669 #define SysConst_SInvalidPointer 65512 670 #define SysConst_SInvalidCast 65513 671 #define SysConst_SAccessViolationArg3 65514 672 #define SysConst_SAccessViolationNoArg 65515 673 #define SysConst_SStackOverflow 65516 674 #define SysConst_SControlC 65517 675 #define SysConst_SPrivilege 65518 676 #define SysConst_SOperationAborted 65519 600 677 #define SysConst_SInvalidInteger 65520 601 678 #define SysConst_SInvalidFloat 65521 … … 603 680 #define SysConst_SInvalidTime 65523 604 681 #define SysConst_SInvalidDateTime 65524 605 #define SysConst_S TimeEncodeError65525606 #define SysConst_S DateEncodeError 65526607 #define SysConst_S OutOfMemory65527608 #define SysConst_S InOutError65528609 #define SysConst_S FileNotFound65529610 #define SysConst_S InvalidFilename65530611 #define SysConst_S TooManyOpenFiles65531612 #define SysConst_S AccessDenied65532613 #define SysConst_S EndOfFile65533614 #define SysConst_S DiskFull65534615 #define SysConst_S InvalidInput65535682 #define SysConst_SInvalidTimeStamp 65525 683 #define SysConst_STimeEncodeError 65526 684 #define SysConst_SDateEncodeError 65527 685 #define SysConst_SOutOfMemory 65528 686 #define SysConst_SInOutError 65529 687 #define SysConst_SFileNotFound 65530 688 #define SysConst_SInvalidFilename 65531 689 #define SysConst_STooManyOpenFiles 65532 690 #define SysConst_SAccessDenied 65533 691 #define SysConst_SEndOfFile 65534 692 #define SysConst_SDiskFull 65535 616 693 STRINGTABLE 617 694 BEGIN … … 626 703 IdResourceStrings_RSStackENOTEMPTY, "Directory not empty" 627 704 IdResourceStrings_RSStackHOST_NOT_FOUND, "Host not found." 628 JConsts_sChangeJPGSize, "Cannot change the size of a JPEG image"629 JConsts_sJPEGError, "JPEG error #%d"630 JConsts_sJPEGImageFile, "JPEG Image File"631 705 IdResourceStrings_RSStackENOPROTOOPT, "Bad protocol option." 632 706 IdResourceStrings_RSStackEPROTONOSUPPORT, "Protocol not supported." … … 677 751 IdResourceStrings_RSSetSizeExceeded, "Set Size Exceeded." 678 752 IdResourceStrings_RSWS2CallError, "Error on call Winsock2 library function %s" 679 VDBConsts_SFirstRecord, "First record"680 VDBConsts_SPriorRecord, "Prior record"681 VDBConsts_SNextRecord, "Next record"682 VDBConsts_SLastRecord, "Last record"683 VDBConsts_SInsertRecord, "Insert record"684 VDBConsts_SDeleteRecord, "Delete record"685 VDBConsts_SEditRecord, "Edit record"686 VDBConsts_SPostEdit, "Post edit"687 VDBConsts_SCancelEdit, "Cancel edit"688 VDBConsts_SRefreshRecord, "Refresh data"689 VDBConsts_SRemoteLogin, "Remote Login"690 pnglang_EPngInvalidCRCText, "This \"Portable Network Graphics\" image is not valid because it contains invalid pieces of data (crc error)"691 pnglang_EPNGInvalidIHDRText, "The \"Portable Network Graphics\" image could not be loaded because one of its main piece of data (ihdr) might be corrupted"692 pnglang_EPNGMissingMultipleIDATText, "This \"Portable Network Graphics\" image is invalid because it has missing image parts."693 pnglang_EPNGZLIBErrorText, "Could not decompress the image because it contains invalid compressed data.\r\n Description: "694 pnglang_EPNGInvalidPaletteText, "The \"Portable Network Graphics\" image contains an invalid palette."695 QConsts_SUnknownImageFormat, "Image format not recognized"696 753 QConsts_SUnableToWrite, "Unable to write bitmap" 697 754 QConsts_SUndo, "Undo" … … 705 762 QConsts_SNoAppInLib, "Fatal error: Cannot create application object in a shared object or library." 706 763 QConsts_SDuplicateApp, "Fatal error: Cannot create more than one TApplication instance" 707 DBConsts_SBcdOverflow, "BCD overflow"708 DBConsts_SInvalidBcdValue, "%s is not a valid BCD value"709 DBConsts_SCouldNotParseTimeStamp, "Could not parse SQL TimeStamp string"710 DBConsts_SInvalidSqlTimeStamp, "Invalid SQL date/time values"711 QConsts_SMsgDlgInformation, "Information"764 pnglang_EPngInvalidCRCText, "This \"Portable Network Graphics\" image is not valid because it contains invalid pieces of data (crc error)" 765 pnglang_EPNGInvalidIHDRText, "The \"Portable Network Graphics\" image could not be loaded because one of its main piece of data (ihdr) might be corrupted" 766 pnglang_EPNGMissingMultipleIDATText, "This \"Portable Network Graphics\" image is invalid because it has missing image parts." 767 pnglang_EPNGZLIBErrorText, "Could not decompress the image because it contains invalid compressed data.\r\n Description: " 768 pnglang_EPNGInvalidPaletteText, "The \"Portable Network Graphics\" image contains an invalid palette." 712 769 QConsts_SMsgDlgConfirm, "Confirm" 713 770 QConsts_SUnnamed, "Unnamed" … … 725 782 QConsts_SOpen, "Open" 726 783 QConsts_SSave, "Save" 727 QConsts_S NotAnMDIForm, "Invalid MDIParent for class %s"784 QConsts_SUnknownImageFormat, "Image format not recognized" 728 785 QConsts_SMDIChildNotVisible, "Cannot hide an MDI Child Form" 729 786 QConsts_SControlParentSetToSelf, "A control cannot have itself as its parent" … … 741 798 QConsts_SMsgDlgWarning, "Warning" 742 799 QConsts_SMsgDlgError, "Error" 743 QConsts_S mkcAlt, "Alt+"800 QConsts_SMsgDlgInformation, "Information" 744 801 QConsts_SInvalidPixelFormat, "Invalid pixel format" 745 802 QConsts_SNoCanvasHandle, "Canvas does not allow drawing" … … 757 814 QConsts_SGroupIndexTooLow, "GroupIndex cannot be less than a previous menu item's GroupIndex" 758 815 QConsts_SNoMDIForm, "Cannot create form. No MDI forms are currently active" 759 QConsts_S mkcEsc, "Esc"816 QConsts_SNotAnMDIForm, "Invalid MDIParent for class %s" 760 817 QConsts_SmkcReturn, "Return" 761 818 QConsts_SmkcEnter, "Enter" … … 773 830 QConsts_SmkcShift, "Shift+" 774 831 QConsts_SmkcCtrl, "Ctrl+" 832 QConsts_SmkcAlt, "Alt+" 833 VDBConsts_SNextRecord, "Next record" 834 VDBConsts_SLastRecord, "Last record" 835 VDBConsts_SInsertRecord, "Insert record" 836 VDBConsts_SDeleteRecord, "Delete record" 837 VDBConsts_SEditRecord, "Edit record" 838 VDBConsts_SPostEdit, "Post edit" 839 VDBConsts_SCancelEdit, "Cancel edit" 840 VDBConsts_SRefreshRecord, "Refresh data" 841 VDBConsts_SNotReplicatable, "Control cannot be used in a DBCtrlGrid" 842 VDBConsts_SRemoteLogin, "Remote Login" 843 QConsts_SInvalidCreateWidget, "Class %s could not create QT widget" 844 QConsts_STooManyMessageBoxButtons, "Too many buttons specified for message box" 845 QConsts_SmkcBkSp, "Backspace" 846 QConsts_SmkcTab, "Tab" 847 QConsts_SmkcBackTab, "BackTab" 848 QConsts_SmkcEsc, "Esc" 849 DBConsts_SDataSetReadOnly, "Cannot modify a read-only dataset" 850 DBConsts_SNestedDataSetClass, "Nested dataset must inherit from %s" 851 DBConsts_STextFalse, "False" 852 DBConsts_STextTrue, "True" 853 DBConsts_SProviderSQLNotSupported, "SQL not supported: %s" 854 DBConsts_SProviderExecuteNotSupported, "Execute not supported: %s" 855 DBConsts_SDataSetUnidirectional, "Operation not allowed on a unidirectional dataset" 856 DBConsts_SUnassignedVar, "Unassigned variant value" 857 DBConsts_SRecordNotFound, "Record not found" 858 DBConsts_SBcdOverflow, "BCD overflow" 859 DBConsts_SInvalidBcdValue, "%s is not a valid BCD value" 860 DBConsts_SInvalidFormatType, "Invalid format type for BCD" 861 DBConsts_SCouldNotParseTimeStamp, "Could not parse SQL TimeStamp string" 862 DBConsts_SInvalidSqlTimeStamp, "Invalid SQL date/time values" 863 VDBConsts_SFirstRecord, "First record" 864 VDBConsts_SPriorRecord, "Prior record" 865 DBConsts_SBcdFieldRangeError, "%s is not a valid value for field '%s'. The allowed range is %s to %s" 866 DBConsts_SInvalidIntegerValue, "'%s' is not a valid integer value for field '%s'" 867 DBConsts_SInvalidBoolValue, "'%s' is not a valid boolean value for field '%s'" 868 DBConsts_SInvalidFloatValue, "'%s' is not a valid floating point value for field '%s'" 869 DBConsts_SFieldTypeMismatch, "Type mismatch for field '%s', expecting: %s actual: %s" 870 DBConsts_SFieldSizeMismatch, "Size mismatch for field '%s', expecting: %d actual: %d" 871 DBConsts_SInvalidVarByteArray, "Invalid variant type or size for field '%s'" 872 DBConsts_SFieldOutOfRange, "Value of field '%s' is out of range" 873 DBConsts_SFieldRequired, "Field '%s' must have a value" 874 DBConsts_SDataSetMissing, "Field '%s' has no dataset" 875 DBConsts_SCircularDataLink, "Circular datalinks are not allowed" 876 DBConsts_SLookupInfoError, "Lookup information for field '%s' is incomplete" 877 DBConsts_SDataSourceChange, "DataSource cannot be changed" 878 DBConsts_SDataSetOpen, "Cannot perform this operation on an open dataset" 879 DBConsts_SNotEditing, "Dataset not in edit or insert mode" 880 DBConsts_SDataSetClosed, "Cannot perform this operation on a closed dataset" 881 ipGIF_sGIFImageFile, "GIF Image" 882 ipGIF_sProgressLoading, "Loading..." 883 ipGIF_sProgressSaving, "Saving..." 884 ipGIF_sProgressConverting, "Converting..." 885 ipGIF_sProgressRendering, "Rendering..." 886 ipGIF_sProgressCopying, "Copying..." 887 ipGIF_sProgressOptimizing, "Optimizing..." 888 DBConsts_SInvalidFieldSize, "Invalid field size" 889 DBConsts_SInvalidFieldKind, "Invalid FieldKind" 890 DBConsts_SUnknownFieldType, "Field '%s' is of an unknown type" 891 DBConsts_SFieldNameMissing, "Field name missing" 892 DBConsts_SDuplicateFieldName, "Duplicate field name '%s'" 893 DBConsts_SFieldNotFound, "Field '%s' not found" 894 DBConsts_SFieldAccessError, "Cannot access field '%s' as type %s" 895 DBConsts_SFieldValueError, "Invalid value for field '%s'" 896 DBConsts_SFieldRangeError, "%g is not a valid value for field '%s'. The allowed range is %g to %g" 897 ipGIF_sUnsupportedClass, "Object type not supported for operation" 898 ipGIF_sInvalidData, "Invalid GIF data" 899 ipGIF_sBadHeight, "Image height too small for contained frames" 900 ipGIF_sBadWidth, "Image width too small for contained frames" 901 ipGIF_sFailedPaste, "Failed to store GIF on clipboard" 902 ipGIF_sScreenSizeExceeded, "Image exceeds Logical Screen size" 903 ipGIF_sNoColorTable, "No global or local color table defined" 904 ipGIF_sBadPixelCoordinates, "Invalid pixel coordinates" 905 ipGIF_sInvalidPixelFormat, "Unsupported PixelFormat" 906 ipGIF_sBadDimension, "Invalid image dimensions" 907 ipGIF_sNoDIB, "Image has no DIB" 908 ipGIF_sInvalidStream, "Invalid stream operation" 909 ipGIF_sInvalidColor, "Color not in color table" 910 ipGIF_sEmptyColorMap, "Color table is empty" 911 ipGIF_sEmptyImage, "Image is empty" 912 ipGIF_sInvalidReduction, "Invalid reduction method" 913 ipGIF_sOutOfData, "Premature end of data" 914 ipGIF_sTooManyColors, "Color table overflow" 915 ipGIF_sBadColorIndex, "Invalid color index" 916 ipGIF_sBadVersion, "Unsupported GIF version" 917 ipGIF_sBadSignature, "Invalid GIF signature" 918 ipGIF_sScreenBadColorSize, "Invalid number of colors specified in Screen Descriptor" 919 ipGIF_sImageBadColorSize, "Invalid number of colors specified in Image Descriptor" 920 ipGIF_sUnknownExtension, "Unknown extension type" 921 ipGIF_sBadExtensionLabel, "Invalid extension introducer" 922 ipGIF_sOutOfMemDIB, "Failed to allocate memory for GIF DIB" 923 ipGIF_sDecodeTooFewBits, "Decoder bit buffer under-run" 924 ipGIF_sDecodeCircular, "Circular decoder table entry" 925 ipGIF_sBadTrailer, "Invalid Image trailer" 926 ipGIF_sBadExtensionInstance, "Internal error: Extension Instance does not match Extension Label" 927 ipGIF_sBadBlockSize, "Unsupported Application Extension block size" 928 ipGIF_sBadBlock, "Unknown GIF block type" 929 TntSystem_SInvalidUTF7, "Invalid UTF7" 930 DKLang_SDKLangErrMsg_DuplicatePropValueID, "Duplicate property value translation ID (%d)" 775 931 DKLang_SDKLangErrMsg_ErrorLoadingTran, "Loading translations failed.\r\nLine %d: %s" 776 932 DKLang_SDKLangErrMsg_InvalidConstName, "Invalid constant name (\"%s\")" … … 784 940 OleConst_SNotLicensed, "License information for %s not found. You cannot use this control in design mode" 785 941 OleConst_sNoRunningObject, "Unable to retrieve a pointer to a running object registered with OLE for %s/%s" 786 QConsts_SInvalidCreateWidget, "Class %s could not create QT widget"787 QConsts_STooManyMessageBoxButtons, "Too many buttons specified for message box"788 QConsts_SmkcBkSp, "Backspace"789 QConsts_SmkcTab, "Tab"790 QConsts_SmkcBackTab, "BackTab"942 JConsts_sChangeJPGSize, "Cannot change the size of a JPEG image" 943 JConsts_sJPEGError, "JPEG error #%d" 944 JConsts_sJPEGImageFile, "JPEG Image File" 945 TeeConst_TeeMsg_FunctionAverage, "Average" 946 TeeConst_TeeMsg_DefaultFontName, "Arial" 791 947 TeeConst_TeeMsg_CheckPointerSize, "Pointer size must be greater than zero" 792 948 TeeConst_TeeMsg_FunctionPeriod, "Function Period should be >= 0" … … 803 959 TeeConst_TeeMsg_ValuesArrowEndY, "EndY" 804 960 TntSystem_SBufferOverflow, "Buffer overflow" 805 T ntSystem_SInvalidUTF7, "Invalid UTF7"806 DKLang_SDKLangErrMsg_DuplicatePropValueID, "Duplicate property value translation ID (%d)"961 TeeConst_TeeMsg_GanttSample2, "Prototyping" 962 TeeConst_TeeMsg_GanttSample3, "Development" 807 963 TeeConst_TeeMsg_GanttSample4, "Sales" 808 964 TeeConst_TeeMsg_GanttSample5, "Marketing" … … 819 975 TeeConst_TeeMsg_FunctionHigh, "High" 820 976 TeeConst_TeeMsg_FunctionLow, "Low" 821 TeeConst_TeeMsg_ FunctionAverage, "Average"822 TeeConst_TeeMsg_ DefaultFontName, "Arial"977 TeeConst_TeeMsg_GalleryPie, "Pie" 978 TeeConst_TeeMsg_GalleryFastLine, "Fast Line" 823 979 TeeConst_TeeMsg_Rotation, "Rotation" 824 980 TeeConst_TeeMsg_PieSample1, "Cars" … … 835 991 TeeConst_TeeMsg_GalleryGantt, "Gantt" 836 992 TeeConst_TeeMsg_GanttSample1, "Design" 837 TeeConst_TeeMsg_ GanttSample2, "Prototyping"838 TeeConst_TeeMsg_ GanttSample3, "Development"993 TeeConst_TeeMsg_AxisLogBase, "Axis Logarithmic Base should be >= 2" 994 TeeConst_TeeMsg_MaxPointsPerPage, "MaxPointsPerPage must be >= 0" 839 995 TeeConst_TeeMsg_3dPercent, "3D effect percent must be between %d and %d" 840 996 TeeConst_TeeMsg_CircularSeries, "Circular Series dependences are not allowed" … … 851 1007 TeeConst_TeeMsg_GalleryBar, "Bar" 852 1008 TeeConst_TeeMsg_GalleryHorizBar, "Horiz. Bar" 853 TeeConst_TeeMsg_GalleryPie, "Pie"854 TeeConst_TeeMsg_GalleryFastLine, "Fast Line"1009 ComConst_SAutomationWarning, "COM Server Warning" 1010 ComConst_SNoCloseActiveServer1, "There are still active COM objects in this application. One or more clients may have references to these objects, so manually closing " 855 1011 ComConst_SNoCloseActiveServer2, "this application may cause those client application(s) to fail.\r\n\r\nAre you sure you want to close this application?" 856 1012 TeeConst_TeeMsg_LegendTopPos, "Top Legend Position must be between 0 and 100 %" … … 867 1023 TeeConst_TeeMsg_AxisMinMax, "Axis Minimum Value must be <= Maximum" 868 1024 TeeConst_TeeMsg_AxisMaxMin, "Axis Maximum Value must be >= Minimum" 869 TeeConst_TeeMsg_AxisLogBase, "Axis Logarithmic Base should be >= 2"870 TeeConst_TeeMsg_MaxPointsPerPage, "MaxPointsPerPage must be >= 0"1025 ComStrs_sFailSetCalDateTime, "Failed to set calendar date or time" 1026 ComStrs_sFailSetCalMaxSelRange, "Failed to set maximum selection range" 871 1027 ComStrs_sFailSetCalMinMaxRange, "Failed to set calendar min/max range" 872 1028 ComStrs_sFailsetCalSelRange, "Failed to set calendar selected range" … … 883 1039 ComConst_SDCOMNotInstalled, "DCOM not installed" 884 1040 ComConst_SDAXError, "DAX Error" 885 Com Const_SAutomationWarning, "COM Server Warning"886 Com Const_SNoCloseActiveServer1, "There are still active COM objects in this application. One or more clients may have references to these objects, so manually closing"1041 ComStrs_sTabFailRetrieve, "Failed to retrieve tab at index %d" 1042 ComStrs_sTabFailGetObject, "Failed to get object at index %d" 887 1043 ComStrs_sTabFailSet, "Failed to set tab \"%s\" at index %d" 888 1044 ComStrs_sTabFailSetObject, "Failed to set object at index %d" … … 899 1055 ComStrs_sDateTimeMax, "Date exceeds maximum of %s" 900 1056 ComStrs_sDateTimeMin, "Date is less than minimum of %s" 901 ComStrs_sFailSetCalDateTime, "Failed to set calendar date or time"902 ComStrs_sFailSetCalMaxSelRange, "Failed to set maximum selection range"1057 ExtCtrls_clNameInactiveBorder, "Inactive Border" 1058 ExtCtrls_clNameInactiveCaption, "Inactive Caption" 903 1059 ExtCtrls_clNameInactiveCaptionText, "Inactive Caption Text" 904 1060 ExtCtrls_clNameInfoBk, "Info Background" … … 915 1071 ComStrs_sTabFailClear, "Failed to clear tab control" 916 1072 ComStrs_sTabFailDelete, "Failed to delete tab at index %d" 917 ComStrs_sTabFailRetrieve, "Failed to retrieve tab at index %d"918 ComStrs_sTabFailGetObject, "Failed to get object at index %d"1073 ExtCtrls_clNameSkyBlue, "Sky Blue" 1074 ExtCtrls_clNameCream, "Cream" 919 1075 ExtCtrls_clNameMedGray, "Medium Gray" 920 1076 ExtCtrls_clNameActiveBorder, "Active Border" … … 931 1087 ExtCtrls_clNameHighlight, "Highlight Background" 932 1088 ExtCtrls_clNameHighlightText, "Highlight Text" 933 ExtCtrls_clName InactiveBorder, "Inactive Border"934 ExtCtrls_clName InactiveCaption, "Inactive Caption"1089 ExtCtrls_clNameMaroon, "Maroon" 1090 ExtCtrls_clNameGreen, "Green" 935 1091 ExtCtrls_clNameOlive, "Olive" 936 1092 ExtCtrls_clNameNavy, "Navy" … … 947 1103 ExtCtrls_clNameWhite, "White" 948 1104 ExtCtrls_clNameMoneyGreen, "Money Green" 949 ExtCtrls_clNameSkyBlue, "Sky Blue"950 ExtCtrls_clNameCream, "Cream"1105 Consts_SPreviewLabel, "Preview" 1106 Consts_SCannotOpenAVI, "Cannot open AVI" 951 1107 Consts_SDockedCtlNeedsName, "Docked control must have a name" 952 1108 Consts_SDockTreeRemoveError, "Error removing control from dock tree" … … 963 1119 HelpIntfs_hNoTopics, "No topic-based help system installed" 964 1120 ExtCtrls_clNameBlack, "Black" 965 ExtCtrls_clNameMaroon, "Maroon"966 ExtCtrls_clNameGreen, "Green"1121 Consts_SmkcShift, "Shift+" 1122 Consts_SmkcCtrl, "Ctrl+" 967 1123 Consts_SmkcAlt, "Alt+" 968 1124 Consts_srNone, "(None)" … … 979 1135 Consts_SPictureLabel, "Picture:" 980 1136 Consts_SPictureDesc, " (%dx%d)" 981 Consts_S PreviewLabel, "Preview"982 Consts_S CannotOpenAVI, "Cannot open AVI"1137 Consts_SMsgDlgYesToAll, "Yes to &All" 1138 Consts_SmkcBkSp, "BkSp" 983 1139 Consts_SmkcTab, "Tab" 984 1140 Consts_SmkcEsc, "Esc" … … 995 1151 Consts_SmkcIns, "Ins" 996 1152 Consts_SmkcDel, "Del" 997 Consts_S mkcShift, "Shift+"998 Consts_S mkcCtrl, "Ctrl+"1153 Consts_SMaskErr, "Invalid input value" 1154 Consts_SMaskEditErr, "Invalid input value. Use escape key to abandon changes" 999 1155 Consts_SMsgDlgWarning, "Warning" 1000 1156 Consts_SMsgDlgError, "Error" … … 1011 1167 Consts_SMsgDlgAll, "&All" 1012 1168 Consts_SMsgDlgNoToAll, "N&o to All" 1013 Consts_S MsgDlgYesToAll, "Yes to &All"1014 Consts_S mkcBkSp, "BkSp"1169 Consts_SControlParentSetToSelf, "A control cannot have itself as its parent" 1170 Consts_SOKButton, "OK" 1015 1171 Consts_SCancelButton, "Cancel" 1016 1172 Consts_SYesButton, "&Yes" … … 1027 1183 Consts_SVIcons, "Icons" 1028 1184 Consts_SVBitmaps, "Bitmaps" 1029 Consts_S MaskErr, "Invalid input value"1030 Consts_SM askEditErr, "Invalid input value. Use escape key to abandon changes"1185 Consts_SParentGivenNotAParent, "Parent given is not a parent of '%s'" 1186 Consts_SMDIChildNotVisible, "Cannot hide an MDI Child Form" 1031 1187 Consts_SVisibleChanged, "Cannot change Visible in OnShow or OnHide" 1032 1188 Consts_SCannotShowModal, "Cannot make a visible window modal" … … 1043 1199 Consts_SGroupIndexTooLow, "GroupIndex cannot be less than a previous menu item's GroupIndex" 1044 1200 Consts_SNoMDIForm, "Cannot create form. No MDI forms are currently active" 1045 Consts_SC ontrolParentSetToSelf, "A control cannot have itself as its parent"1046 Consts_SO KButton, "OK"1201 Consts_SChangeIconSize, "Cannot change the size of an icon" 1202 Consts_SOleGraphic, "Invalid operation on TOleGraphic" 1047 1203 Consts_SUnknownExtension, "Unknown picture file extension (.%s)" 1048 1204 Consts_SUnknownClipboardFormat, "Unsupported clipboard format" … … 1059 1215 Consts_SCannotFocus, "Cannot focus a disabled or invisible window" 1060 1216 Consts_SParentRequired, "Control '%s' has no parent window" 1061 Consts_SParentGivenNotAParent, "Parent given is not a parent of '%s'"1062 Consts_SMDIChildNotVisible, "Cannot hide an MDI Child Form"1217 RTLConsts_SSeekNotImplemented, "%s.Seek not implemented" 1218 RTLConsts_SSortedListError, "Operation not allowed on sorted list" 1063 1219 RTLConsts_STooManyDeleted, "Too many rows or columns deleted" 1064 1220 RTLConsts_SUnknownGroup, "%s not in a class registration group" … … 1075 1231 Consts_SInvalidImage, "Invalid image" 1076 1232 Consts_SScanLine, "Scan line index out of range" 1077 Consts_SChangeIconSize, "Cannot change the size of an icon"1078 Consts_SOleGraphic, "Invalid operation on TOleGraphic"1233 RTLConsts_SInvalidPropertyElement, "Invalid property element: %s" 1234 RTLConsts_SInvalidPropertyPath, "Invalid property path" 1079 1235 RTLConsts_SInvalidPropertyType, "Invalid property type: %s" 1080 1236 RTLConsts_SInvalidPropertyValue, "Invalid property value" … … 1091 1247 RTLConsts_SRegSetDataFailed, "Failed to set data for '%s'" 1092 1248 RTLConsts_SResNotFound, "Resource %s not found" 1093 RTLConsts_S SeekNotImplemented, "%s.Seek not implemented"1094 RTLConsts_S SortedListError, "Operation not allowed on sorted list"1249 RTLConsts_SClassNotFound, "Class %s not found" 1250 RTLConsts_SDuplicateClass, "A class named %s already exists" 1095 1251 RTLConsts_SDuplicateItem, "List does not allow duplicates ($0%x)" 1096 1252 RTLConsts_SDuplicateName, "A component named %s already exists" … … 1107 1263 RTLConsts_SInvalidName, "''%s'' is not a valid component name" 1108 1264 RTLConsts_SInvalidProperty, "Invalid property value" 1109 RTLConsts_SInvalidPropertyElement, "Invalid property element: %s"1110 RTLConsts_SInvalidPropertyPath, "Invalid property path"1265 SysConst_SShortDayNameThu, "Thu" 1266 SysConst_SShortDayNameFri, "Fri" 1111 1267 SysConst_SShortDayNameSat, "Sat" 1112 1268 SysConst_SLongDayNameSun, "Sunday" … … 1123 1279 RTLConsts_SCantWriteResourceStreamError, "Can't write to a read-only resource stream" 1124 1280 RTLConsts_SCheckSynchronizeError, "CheckSynchronize called from thread $%x, which is NOT the main thread" 1125 RTLConsts_SClassNotFound, "Class %s not found"1126 RTLConsts_SDuplicateClass, "A class named %s already exists"1281 SysConst_SLongMonthNameJan, "January" 1282 SysConst_SLongMonthNameFeb, "February" 1127 1283 SysConst_SLongMonthNameMar, "March" 1128 1284 SysConst_SLongMonthNameApr, "April" … … 1139 1295 SysConst_SShortDayNameTue, "Tue" 1140 1296 SysConst_SShortDayNameWed, "Wed" 1141 SysConst_SShortDayNameThu, "Thu" 1142 SysConst_SShortDayNameFri, "Fri" 1297 SysConst_SModuleAccessViolation, "Access violation at address %p in module '%s'. %s of address %p" 1143 1298 SysConst_SOSError, "System Error. Code: %d.\r\n%s" 1144 1299 SysConst_SUnkOSError, "A call to an OS function failed" 1300 SysConst_SNL, "Application is not licensed to use this feature" 1145 1301 SysConst_SShortMonthNameJan, "Jan" 1146 1302 SysConst_SShortMonthNameFeb, "Feb" … … 1155 1311 SysConst_SShortMonthNameNov, "Nov" 1156 1312 SysConst_SShortMonthNameDec, "Dec" 1157 SysConst_SLongMonthNameJan, "January" 1158 SysConst_SLongMonthNameFeb, "February" 1313 SysConst_SVarTypeAlreadyUsedWithPrefix, "Custom variant type (%s%.4x) already used by %s" 1159 1314 SysConst_SVarTypeNotUsableWithPrefix, "Custom variant type (%s%.4x) is not usable" 1160 1315 SysConst_SVarTypeTooManyCustom, "Too many custom variant types have been registered" … … 1172 1327 SysConst_SAssertError, "%s (%s, line %d)" 1173 1328 SysConst_SAbstractError, "Abstract Error" 1174 SysConst_S ModuleAccessViolation, "Access violation at address %p in module '%s'. %s of address %p"1329 SysConst_SException, "Exception %s in module %s at %p.\r\n%s%s\r\n" 1175 1330 SysConst_SExceptTitle, "Application Error" 1176 1331 SysConst_SInvalidFormat, "Format '%s' invalid or incompatible with argument" … … 1188 1343 SysConst_SInvalidVarOpWithHResultWithPrefix, "Invalid variant operation (%s%.8x)\n%s" 1189 1344 SysConst_SVarTypeOutOfRangeWithPrefix, "Custom variant type (%s%.4x) is out of range" 1190 SysConst_S VarTypeAlreadyUsedWithPrefix, "Custom variant type (%s%.4x) already used by %s"1345 SysConst_SInvalidInput, "Invalid numeric input" 1191 1346 SysConst_SDivByZero, "Division by zero" 1192 1347 SysConst_SRangeError, "Range check error" … … 1204 1359 SysConst_SPrivilege, "Privileged instruction" 1205 1360 SysConst_SOperationAborted, "Operation aborted" 1206 SysConst_SException, "Exception %s in module %s at %p.\r\n%s%s\r\n"1207 1361 SysConst_SInvalidInteger, "'%s' is not a valid integer value" 1208 1362 SysConst_SInvalidFloat, "'%s' is not a valid floating point value" … … 1210 1364 SysConst_SInvalidTime, "'%s' is not a valid time" 1211 1365 SysConst_SInvalidDateTime, "'%s' is not a valid date and time" 1366 SysConst_SInvalidTimeStamp, "'%d.%d' is not a valid timestamp" 1212 1367 SysConst_STimeEncodeError, "Invalid argument to time encode" 1213 1368 SysConst_SDateEncodeError, "Invalid argument to date encode" … … 1220 1375 SysConst_SEndOfFile, "Read beyond end of file" 1221 1376 SysConst_SDiskFull, "Disk full" 1222 SysConst_SInvalidInput, "Invalid numeric input"1223 1377 END 1224 1378 -
cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dsk
r485 r487 1 1 [Closed Files] 2 File_0=SourceModule,'P:\ Vista\CPRS-1.0.26.69\CPRS-Lib\ORNet.pas',0,1,348,1,359,0,03 File_1=SourceModule,'P:\ Vista\CPRS-1.0.26.69\CPRS-Chart\UploadImages.pas',0,1,219,36,232,0,04 File_2=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS- Chart\uConst.pas',0,1,47,10,52,0,05 File_3=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\ fPtDemo.pas',0,1,1,52,82,0,06 File_4=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS- Lib\ORCtrls.pas',0,1,2170,1,2178,0,07 File_5=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fPt Sel.pas',0,1,500,34,503,1,08 File_6=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS- Chart\CPRSChart.dpr',0,1,285,1,351,0,09 File_7=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\ TMG_Extra\fWebTab.pas',0,1,1,1,88,0,010 File_8=SourceModule,' c:\program files\borland\delphi7\source\rtl\Sys\system.pas',0,1,12601,1,12613,0,011 File_9=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\ Orders\uODBase.pas',0,1,37,1,52,0,02 File_0=SourceModule,'P:\vista\GUI-config\SkinFormU.pas',0,1,66,1,76,0,0 3 File_1=SourceModule,'P:\vista\GUI-config\MainU.pas',0,1,1958,20,1985,0,0 4 File_2=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Lib\ORNet.pas',0,1,348,1,359,0,0 5 File_3=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\UploadImages.pas',0,1,219,36,232,0,0 6 File_4=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\uConst.pas',0,1,47,10,52,0,0 7 File_5=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fPtDemo.pas',0,1,1,52,82,0,0 8 File_6=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Lib\ORCtrls.pas',0,1,2170,1,2178,0,0 9 File_7=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fPtSel.pas',0,1,500,34,503,1,0 10 File_8=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\CPRSChart.dpr',0,1,285,1,351,0,0 11 File_9=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\TMG_Extra\fWebTab.pas',0,1,1,1,88,0,0 12 12 13 13 [Modules] 14 Module0=P:\Vista\tmg-cprs\CPRS-Chart\ fFrame.pas15 Module1=P:\Vista\tmg-cprs\CPRS-Chart\ Options\fOptionsOther.pas16 Module2= c:\program files\borland\delphi7\source\rtl\common\classes.pas17 Module3=c:\program files\borland\delphi7\source\ vcl\Controls.pas18 Module4=c:\program files\borland\delphi7\source\vcl\Co mCtrls.pas19 Module5= P:\Vista\killthis.txt14 Module0=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas 15 Module1=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas 16 Module2=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas 17 Module3=c:\program files\borland\delphi7\source\rtl\common\classes.pas 18 Module4=c:\program files\borland\delphi7\source\vcl\Controls.pas 19 Module5=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas 20 20 Module6=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas 21 Module7=P:\ Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr21 Module7=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr 22 22 Count=8 23 23 EditWindowCount=1 24 24 TypeLibWindowCount=1 25 25 26 [P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas] 27 ModuleType=SourceModule 28 FormState=1 29 FormOnTop=0 30 26 31 [P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas] 27 32 ModuleType=SourceModule … … 29 34 FormOnTop=0 30 35 31 [P:\ Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]32 ModuleType=SourceModule 33 FormState= 136 [P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas] 37 ModuleType=SourceModule 38 FormState=0 34 39 FormOnTop=0 35 40 … … 49 54 FormOnTop=0 50 55 51 [P:\Vista\killthis.txt]52 ModuleType=SourceModule53 FormState=054 FormOnTop=055 56 56 [c:\program files\borland\delphi7\source\vcl\StdCtrls.pas] 57 57 ModuleType=SourceModule … … 59 59 FormOnTop=0 60 60 61 [P:\ Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]61 [P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr] 62 62 ModuleType=SourceModule 63 63 FormState=0 … … 68 68 FormOnTop=0 69 69 70 [P:\ Vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb]70 [P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb] 71 71 FormState=0 72 72 FormOnTop=0 … … 74 74 [EditWindow0] 75 75 ViewCount=8 76 CurrentView= 176 CurrentView=3 77 77 View0=0 78 78 View1=1 … … 102 102 BottomPanelSize=0 103 103 BottomPanelClients=MessageView@EditWindow0 104 BottomPanelData=00000400010000000B0000004D6573736167655669657701030000000000000255000000000000000100000000000000000000000001000000000103000000000000 FFFFFFFF104 BottomPanelData=00000400010000000B0000004D65737361676556696577010300000000000002550000000000000001000000000000000000000000010000000001030000000000000100000000010300000B0000004D65737361676556696577FFFFFFFF 105 105 106 106 [View0] 107 Module=P:\ Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr107 Module=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr 108 108 CursorX=1 109 109 CursorY=1 … … 113 113 [View1] 114 114 Module=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas 115 CursorX= 13116 CursorY= 3755117 TopLine= 3745115 CursorX=35 116 CursorY=830 117 TopLine=818 118 118 LeftCol=1 119 119 120 120 [View2] 121 Module=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas 122 CursorX=26 123 CursorY=213 124 TopLine=199 125 LeftCol=1 126 127 [View3] 121 128 Module=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas 122 129 CursorX=1 … … 125 132 LeftCol=1 126 133 127 [View 3]134 [View4] 128 135 Module=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas 129 136 CursorX=1 130 137 CursorY=2785 131 138 TopLine=2771 132 LeftCol=1133 134 [View4]135 Module=P:\Vista\killthis.txt136 CursorX=1137 CursorY=157138 TopLine=135139 139 LeftCol=1 140 140 … … 172 172 ClientWidth=631 173 173 ClientHeight=419 174 Module=P:\ Vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb174 Module=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb 175 175 176 176 [Watches] … … 299 299 SplitPos=128 300 300 ArrangeBy=Name 301 SelectedItem= Caption301 SelectedItem=OnKeyPress 302 302 ExpandedItems=Anchors 303 303 HiddenCategories=Legacy -
cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.~dsk
r485 r487 12 12 13 13 [Modules] 14 Module0=P:\Vista\tmg-cprs\CPRS-Chart\ Options\fOptionsOther.pas15 Module1= c:\program files\borland\delphi7\source\vcl\StdCtrls.pas16 Module2=c:\program files\borland\delphi7\source\ vcl\ComCtrls.pas14 Module0=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas 15 Module1=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas 16 Module2=c:\program files\borland\delphi7\source\rtl\common\classes.pas 17 17 Module3=c:\program files\borland\delphi7\source\vcl\Controls.pas 18 Module4= P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas18 Module4=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas 19 19 Module5=P:\Vista\killthis.txt 20 Module6=c:\program files\borland\delphi7\source\ rtl\common\classes.pas20 Module6=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas 21 21 Module7=P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr 22 22 Count=8 … … 24 24 TypeLibWindowCount=1 25 25 26 [P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas] 27 ModuleType=SourceModule 28 FormState=1 29 FormOnTop=0 30 26 31 [P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas] 27 32 ModuleType=SourceModule … … 29 34 FormOnTop=0 30 35 36 [c:\program files\borland\delphi7\source\rtl\common\classes.pas] 37 ModuleType=SourceModule 38 FormState=0 39 FormOnTop=0 40 41 [c:\program files\borland\delphi7\source\vcl\Controls.pas] 42 ModuleType=SourceModule 43 FormState=0 44 FormOnTop=0 45 46 [c:\program files\borland\delphi7\source\vcl\ComCtrls.pas] 47 ModuleType=SourceModule 48 FormState=0 49 FormOnTop=0 50 51 [P:\Vista\killthis.txt] 52 ModuleType=SourceModule 53 FormState=0 54 FormOnTop=0 55 31 56 [c:\program files\borland\delphi7\source\vcl\StdCtrls.pas] 32 ModuleType=SourceModule33 FormState=034 FormOnTop=035 36 [c:\program files\borland\delphi7\source\vcl\ComCtrls.pas]37 ModuleType=SourceModule38 FormState=039 FormOnTop=040 41 [c:\program files\borland\delphi7\source\vcl\Controls.pas]42 ModuleType=SourceModule43 FormState=044 FormOnTop=045 46 [P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas]47 ModuleType=SourceModule48 FormState=149 FormOnTop=050 51 [P:\Vista\killthis.txt]52 ModuleType=SourceModule53 FormState=054 FormOnTop=055 56 [c:\program files\borland\delphi7\source\rtl\common\classes.pas]57 57 ModuleType=SourceModule 58 58 FormState=0 … … 74 74 [EditWindow0] 75 75 ViewCount=8 76 CurrentView= 276 CurrentView=1 77 77 View0=0 78 78 View1=1 … … 102 102 BottomPanelSize=0 103 103 BottomPanelClients=MessageView@EditWindow0 104 BottomPanelData=00000400010000000B0000004D657373616765566965770103000000000000025500000000000000010000000000000000000000000100000000010300000 B0000004D65737361676556696577FFFFFFFF104 BottomPanelData=00000400010000000B0000004D6573736167655669657701030000000000000255000000000000000100000000000000000000000001000000000103000000000000FFFFFFFF 105 105 106 106 [View0] … … 299 299 SplitPos=128 300 300 ArrangeBy=Name 301 SelectedItem= OnChange301 SelectedItem=Caption 302 302 ExpandedItems=Anchors 303 303 HiddenCategories=Legacy -
cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart_TLB.pas
r472 r487 13 13 14 14 // PASTLWTR : 1.2 15 // File generated on 7/19/2008 3:07:40PM from Type Library described below.15 // File generated on 9/7/2008 8:16:48 PM from Type Library described below. 16 16 17 17 // ************************************************************************ // 18 // Type Lib: P:\ Vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb (1)18 // Type Lib: P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb (1) 19 19 // LIBID: {0A4A6086-6504-11D5-82DE-00C04F72C274} 20 20 // LCID: 0 -
cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.dfm
r473 r487 16 16 OnCreate = FormCreate 17 17 OnDestroy = FormDestroy 18 OnShow = FormShow 18 19 PixelsPerInch = 96 19 20 TextHeight = 13 … … 86 87 Height = 323 87 88 HelpContext = 9999 88 ActivePage = ts CoverSheet89 ActivePage = tsAppearance 89 90 Align = alClient 90 91 TabOrder = 0 … … 1750 1751 end 1751 1752 end 1753 object tsAppearance: TTabSheet 1754 Caption = 'Appearance' 1755 ImageIndex = 8 1756 DesignSize = ( 1757 409 1758 295) 1759 object Label12: TLabel 1760 Left = 8 1761 Top = 5 1762 Width = 45 1763 Height = 13 1764 Caption = 'Skin files:' 1765 Transparent = True 1766 end 1767 object lbSkins: TListBox 1768 Left = 8 1769 Top = 24 1770 Width = 281 1771 Height = 241 1772 Font.Charset = DEFAULT_CHARSET 1773 Font.Color = clWindowText 1774 Font.Height = -11 1775 Font.Name = 'MS Sans Serif' 1776 Font.Style = [] 1777 ItemHeight = 13 1778 ParentFont = False 1779 TabOrder = 0 1780 OnDblClick = btnApplyClick 1781 OnKeyPress = lbSkinsKeyPress 1782 end 1783 object cbSkinAtStartup: TCheckBox 1784 Left = 8 1785 Top = 272 1786 Width = 265 1787 Height = 17 1788 Anchors = [akLeft, akBottom] 1789 Caption = 'Load last selected skin when starting program' 1790 Checked = True 1791 State = cbChecked 1792 TabOrder = 1 1793 end 1794 object btnMoreSkins: TButton 1795 Left = 304 1796 Top = 96 1797 Width = 97 1798 Height = 25 1799 Caption = '&More skins...' 1800 TabOrder = 2 1801 OnClick = btnMoreSkinsClick 1802 end 1803 object btnDisableSkin: TButton 1804 Left = 304 1805 Top = 64 1806 Width = 97 1807 Height = 25 1808 Caption = '&Disable skin' 1809 ModalResult = 7 1810 TabOrder = 3 1811 OnClick = btnDisableSkinClick 1812 end 1813 object btnApplySkin: TButton 1814 Left = 304 1815 Top = 32 1816 Width = 97 1817 Height = 25 1818 Caption = '&Apply skin' 1819 TabOrder = 4 1820 OnClick = btnApplySkinClick 1821 end 1822 end 1752 1823 end 1753 1824 end 1754 1825 object DKLanguageController1: TDKLanguageController 1755 Left = 801756 Top = 2801826 Left = 328 1827 Top = 192 1757 1828 LangData = { 1758 1829 0A0066726D4F7074696F6E73010200000001000000070043617074696F6E0200 1759 0000080048656C7046696C65016 40000000900706E6C426F74746F6D000005001830 0000080048656C7046696C65016B0000000900706E6C426F74746F6D00000500 1760 1831 62746E4F4B010100000003000000070043617074696F6E00090062746E43616E 1761 1832 63656C010100000004000000070043617074696F6E00080062746E4170706C79 … … 1852 1923 676501020000004C000000040048696E744D000000040054657874000600496D 1853 1924 61676531000005004D656D6F3101010000004F00000005004C696E6573000700 1854 427574746F6E31010100000050000000070043617074696F6E00} 1925 427574746F6E31010100000050000000070043617074696F6E000C0074734170 1926 70656172616E6365010100000051000000070043617074696F6E0007004C6162 1927 656C3132010100000052000000070043617074696F6E0007006C62536B696E73 1928 00000F006362536B696E41745374617274757001010000005300000007004361 1929 7074696F6E000C0062746E4D6F7265536B696E73010100000054000000070043 1930 617074696F6E000E0062746E44697361626C65536B696E010100000055000000 1931 070043617074696F6E000C0062746E4170706C79536B696E0101000000560000 1932 00070043617074696F6E00} 1855 1933 end 1856 1934 end -
cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.pas
r453 r487 4 4 interface 5 5 6 uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 6 uses 7 Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 7 8 Buttons, ComCtrls, ExtCtrls, ORCtrls, OrFn, Dialogs, ORDtTmRng, fBAOptionsDiagnoses, 8 9 uBAGlobals, TntStdCtrls, DKLang, jpeg, inifiles; … … 20 21 21 22 Note: Cancel for language change is not currently supported 23 //kt 9/8/08 ---------------------------- 24 Also, a tab was added to the form: Appearance, for selecting skins. 22 25 } 23 26 … … 125 128 Memo1: TMemo; 126 129 Button1: TButton; 130 tsAppearance: TTabSheet; 131 Label12: TLabel; 132 lbSkins: TListBox; 133 cbSkinAtStartup: TCheckBox; 134 btnMoreSkins: TButton; 135 btnDisableSkin: TButton; 136 btnApplySkin: TButton; 127 137 procedure FormCreate(Sender: TObject); 128 138 procedure FormDestroy(Sender: TObject); … … 157 167 procedure rdoRDVClick(Sender: TObject); 158 168 procedure cbLanguageChange(Sender: TObject); 159 procedure Button1Click(Sender: TObject); //kt added 6/29/07 169 procedure Button1Click(Sender: TObject); 170 procedure btnApplySkinClick(Sender: TObject); 171 procedure btnMoreSkinsClick(Sender: TObject); 172 procedure FormShow(Sender: TObject); 173 procedure lbSkinsKeyPress(Sender: TObject; var Key: Char); 174 procedure btnDisableSkinClick(Sender: TObject); //kt added 6/29/07 160 175 private 161 176 { Private declarations } … … 167 182 FsortAscending: boolean; 168 183 FLastClickedItem: TListItem; 184 procedure FillSkinList; //kt 169 185 procedure Offset(var topnum: integer; topoffset: integer; var leftnum: integer; leftoffset: integer); 170 186 procedure LoadNotifications; … … 187 203 implementation 188 204 189 uses fOptionsDays, fOptionsReminders, fOptionsSurrogate,190 fOptionsPatientSelection, fOptionsLists, fOptionsTeams, fOptionsCombinations,191 fOptionsOther, fOptionsNotes, fOptionsTitles, fOptionsReportsCustom, fOptionsReportsDefault,192 fGraphs, fGraphSettings, fGraphProfiles, rGraphs, uGraphs,193 rOptions, rCore, uCore, uOptions, UBACore, fFrame,194 //fTestDialog;205 uses fOptionsDays, fOptionsReminders, fOptionsSurrogate, 206 fOptionsPatientSelection, fOptionsLists, fOptionsTeams, fOptionsCombinations, 207 fOptionsOther, fOptionsNotes, fOptionsTitles, fOptionsReportsCustom, fOptionsReportsDefault, 208 fGraphs, fGraphSettings, fGraphProfiles, rGraphs, uGraphs, 209 rOptions, rCore, uCore, uOptions, UBACore, fFrame, 210 //fTestDialog; 195 211 196 212 //kt mod 6/29/07 ----- 213 ShellAPI, //kt 9/8/08 197 214 ORNet, //allows access to RPCBrokerV 198 215 TntForms, TntSystem, TntSysUtils; … … 202 219 {$R *.DFM} 203 220 204 type 205 TRule = class 206 public 207 IEN: string; 208 OriginalValue: string; 209 ItemText: string; 210 end; 211 212 procedure DialogOptions(var actiontype: Integer); 213 // create the form and make in modal, return an action 214 const 215 PixelGapBetweenButtons = 5; 216 var 217 frmOptions: TfrmOptions; 218 begin 219 frmOptions := TfrmOptions.Create(Application); 220 try 221 with frmOptions do 221 type 222 TRule = class 223 public 224 IEN: string; 225 OriginalValue: string; 226 ItemText: string; 227 end; 228 229 procedure DialogOptions(var actiontype: Integer); 230 // create the form and make in modal, return an action 231 const 232 PixelGapBetweenButtons = 5; 233 var 234 frmOptions: TfrmOptions; 235 begin 236 frmOptions := TfrmOptions.Create(Application); 237 try 238 with frmOptions do 239 begin 240 with pagOptions do 241 begin 242 tsCoverSheet.TabVisible := false; 243 tsNotifications.TabVisible := false; 244 tsOrderChecks.TabVisible := false; 245 tsListsTeams.TabVisible := false; 246 case actiontype of 247 1: begin 248 tsCoverSheet.TabVisible := true; 249 end; 250 2: begin 251 tsNotifications.TabVisible := true; 252 end; 253 3: begin 254 tsOrderChecks.TabVisible := true; 255 end; 256 4: begin 257 tsListsTeams.TabVisible := true; 258 end; 259 else 260 begin 261 tsCoverSheet.TabVisible := true; 262 tsNotifications.TabVisible := true; 263 tsOrderChecks.TabVisible := true; 264 tsListsTeams.TabVisible := true; 265 ActivePage := tsCoverSheet; 266 // memReports.Text := 'Change the default date range and occurrence limits for all reports on ' + <-- original line. //kt 8/8/2007 267 memReports.Text := DKLangConstW('fOptions_Change_the_default_date_range_and_occurrence_limits_for_all_reports_on') + //kt added 8/8/2007 268 // 'the CPRS Reports tab (excluding health summary reports) .'; <-- original line. //kt 8/8/2007 269 DKLangConstW('fOptions_the_CPRS_Reports_tab_xexcluding_health_summary_reportsx_x'); //kt added 8/8/2007 270 // memReport1.Text := 'Change the individual date range and occurrence limits for each report on ' + <-- original line. //kt 8/8/2007 271 memReport1.Text := DKLangConstW('fOptions_Change_the_individual_date_range_and_occurrence_limits_for_each_report_on') + //kt added 8/8/2007 272 // 'the CPRS Reports tab (excluding health summary reports) .'; <-- original line. //kt 8/8/2007 273 DKLangConstW('fOptions_the_CPRS_Reports_tab_xexcluding_health_summary_reportsx_x'); //kt added 8/8/2007 274 // btnReports.caption := 'Set All Reports...'; <-- original line. //kt 8/8/2007 275 btnReports.caption := DKLangConstW('fOptions_Set_All_Reportsxxx'); //kt added 8/8/2007 276 // btnReport1.caption := 'Set Individual Reports...'; <-- original line. //kt 8/8/2007 277 btnReport1.caption := DKLangConstW('fOptions_Set_Individual_Reportsxxx'); //kt added 8/8/2007 278 if User.IsReportsOnly then // For "Reports Only" users. 279 begin 280 tsCoverSheet.TabVisible := false; 281 tsNotifications.TabVisible := false; 282 tsOrderChecks.TabVisible := false; 283 tsListsTeams.TabVisible := false; 284 tsNotes.TabVisible := false; 285 if (not User.ToolsRptEdit) then 286 begin 287 btnOK.visible := false; 288 btnApply.visible := false; 289 // btnCancel.caption := 'Close'; <-- original line. //kt 8/8/2007 290 btnCancel.caption := DKLangConstW('fOptions_Close'); //kt added 8/8/2007 291 end; 292 end; 293 if (not User.ToolsRptEdit) then // For users with Reports settings edit parameter not set. 294 begin 295 // memReports.Text := 'View the default date range and occurrence limits for all reports on ' + <-- original line. //kt 8/8/2007 296 memReports.Text := DKLangConstW('fOptions_View_the_default_date_range_and_occurrence_limits_for_all_reports_on') + //kt added 8/8/2007 297 // 'the CPRS Reports tab (excluding health summary reports) .'; <-- original line. //kt 8/8/2007 298 DKLangConstW('fOptions_the_CPRS_Reports_tab_xexcluding_health_summary_reportsx_x'); //kt added 8/8/2007 299 // memReport1.Text := 'View the individual date range and occurrence limits for each report on ' + <-- original line. //kt 8/8/2007 300 memReport1.Text := DKLangConstW('fOptions_View_the_individual_date_range_and_occurrence_limits_for_each_report_on') + //kt added 8/8/2007 301 // 'the CPRS Reports tab (excluding health summary reports) .'; <-- original line. //kt 8/8/2007 302 DKLangConstW('fOptions_the_CPRS_Reports_tab_xexcluding_health_summary_reportsx_x'); //kt added 8/8/2007 303 // btnReports.caption := 'View All Report Settings...'; <-- original line. //kt 8/8/2007 304 btnReports.caption := DKLangConstW('fOptions_View_All_Report_Settingsxxx'); //kt added 8/8/2007 305 // btnReport1.caption := 'View Individual Report Settings...'; <-- original line. //kt 8/8/2007 306 btnReport1.caption := DKLangConstW('fOptions_View_Individual_Report_Settingsxxx'); //kt added 8/8/2007 307 end; 308 end; 309 end; 310 end; 311 actiontype := 0; 312 ResizeAnchoredFormToFont(frmOptions); 313 btnApply.Left := pagOptions.Left + pagOptions.Width - btnApply.Width; 314 btnCancel.Left := btnApply.Left - btnCancel.Width - PixelGapBetweenButtons; 315 btnOK.Left := btnCancel.Left - btnOK.Width - PixelGapBetweenButtons; 316 ShowModal; 317 actiontype := btnOK.Tag; 318 end; 319 finally 320 frmOptions.Release; 321 end; 322 end; 323 324 procedure TfrmOptions.FormCreate(Sender: TObject); 325 // initialize form 326 var i : integer; //kt added 6/29/07 327 begin 328 LoadNotifications; 329 LoadOrderChecks; 330 FdirtyNotifications := false; 331 FdirtyOrderChecks := false; 332 FdirtyOtherStuff := false; 333 CheckApply; 334 335 if (Encounter.Provider = 0) and not IsCIDCProvider(User.DUZ) then 336 btnDiagnoses.Enabled := False; 337 if UseVistaWeb then rdoRDV.ItemIndex := 1; 338 339 //kt begin modification 6/29/07 --------------- 340 341 // Fill cbLanguage with available languages 342 // Note: LangManager was populated at form creation of fFrame 343 for i := 0 to LangManager.LanguageCount-1 do cbLanguage.Items.Add(LangManager.LanguageNames[i]); 344 //Index=0 always means the default language 345 cbLanguage.ItemIndex := LangManager.LanguageIndex; 346 //kt end modification 6/29/07 --------------- 347 348 cbSkinAtStartup.Checked := frmFrame.SkinAtStartup; //kt 9/8/08 349 350 end; 351 352 procedure TfrmOptions.FormDestroy(Sender: TObject); 353 // cleanup creation of objects 354 var 355 i: integer; 356 begin 357 for i := 0 to lvwOrderChecks.Items.Count - 1 do 358 lvwOrderChecks.Items.Item[i].SubItems.Objects[2].free; 359 for i := 0 to lvwNotifications.Items.Count - 1 do 360 lvwNotifications.Items.Item[i].SubItems.Objects[2].free; 361 end; 362 363 procedure TfrmOptions.btnCoverDaysClick(Sender: TObject); 364 // display Date Range Defaults on Cover Sheet 365 var 366 topsize, leftsize, value: integer; 367 begin 368 value := 0; 369 Offset(topsize, -60, leftsize, -60); 370 DialogOptionsDays(topsize, leftsize, Font.Size, value); 371 end; 372 373 procedure TfrmOptions.btnCoverRemindersClick(Sender: TObject); 374 // display Clinical Reminder Options 375 var 376 topsize, leftsize, value: integer; 377 begin 378 value := 0; 379 Offset(topsize, -60, leftsize, -60); 380 DialogOptionsReminders(topsize, leftsize, Font.Size, value); 381 end; 382 383 procedure TfrmOptions.btnOtherParametersClick(Sender: TObject); 384 // display Other Parameters Options 385 var 386 topsize, leftsize, value: integer; 387 begin 388 value := 0; 389 Offset(topsize, 40, leftsize, 40); 390 DialogOptionsOther(topsize, leftsize, Font.Size, value); 391 end; 392 393 procedure TfrmOptions.btnPatientSelectionClick(Sender: TObject); 394 // display Patient Selection Options 395 var 396 topsize, leftsize, value: integer; 397 begin 398 value := 0; 399 Offset(topsize, -60, leftsize, -60); 400 DialogOptionsPatientSelection(topsize, leftsize, Font.Size, value); 401 end; 402 403 procedure TfrmOptions.btnPersonalListsClick(Sender: TObject); 404 // display Personal Lists Options 405 var 406 topsize, leftsize, value: integer; 407 begin 408 value := 0; 409 Offset(topsize, -60, leftsize, -60); 410 DialogOptionsLists(topsize, leftsize, Font.Size, value); 411 end; 412 413 procedure TfrmOptions.btnTeamsClick(Sender: TObject); 414 // display Team Options 415 var 416 topsize, leftsize, value: integer; 417 begin 418 value := 0; 419 Offset(topsize, -60, leftsize, -60); 420 DialogOptionsTeams(topsize, leftsize, Font.Size, value); 421 end; 422 423 procedure TfrmOptions.btnNotificationsRemoveClick(Sender: TObject); 424 // confirm before clearing notifications 425 begin 426 //if InfoBox('CAUTION: This will clear all the current notifications you have pending.' <-- original line. //kt 8/8/2007 427 if InfoBox(DKLangConstW('fOptions_CAUTIONx_This_will_clear_all_the_current_notifications_you_have_pendingx') //kt added 8/8/2007 428 // + #13 + 'If you say YES, these changes will take place immediately.' <-- original line. //kt 8/8/2007 429 + #13 + DKLangConstW('fOptions_If_you_say_YESx_these_changes_will_take_place_immediatelyx') //kt added 8/8/2007 430 // + #13 + 'Are you sure you want to erase all of your notifications?', <-- original line. //kt 8/8/2007 431 + #13 + DKLangConstW('fOptions_Are_you_sure_you_want_to_erase_all_of_your_notificationsx'), //kt added 8/8/2007 432 // 'Warning', MB_YESNO or MB_ICONWARNING) = IDYES then <-- original line. //kt 8/8/2007 433 DKLangConstW('fOptions_Warning'), MB_YESNO or MB_ICONWARNING) = IDYES then //kt added 8/8/2007 434 begin 435 rpcClearNotifications; 436 end; 437 end; 438 439 procedure TfrmOptions.Offset(var topnum: integer; topoffset: integer; var leftnum: integer; leftoffset: integer); 440 // get positions to display dialog 441 begin 442 // use these top and left values to display dialog 443 topnum := Top; 444 leftnum := Left; 445 topnum := topnum + topoffset; 446 if topnum < 0 then topnum := 0; 447 leftnum := leftnum + leftoffset; 448 if leftnum < 0 then leftnum := 0; 449 end; 450 451 procedure TfrmOptions.btnApplyClick(Sender: TObject); 452 // save actions without exiting 453 begin 454 if FdirtyNotifications then 455 ApplyNotifications; 456 if FdirtyOrderChecks then 457 ApplyOrderChecks; 458 if FdirtyOtherStuff then 459 ApplyOtherStuff; 460 CheckApply; 461 if Sender = btnOK then 462 Close; 463 end; 464 465 procedure TfrmOptions.LoadNotifications; 466 // load Notification tab 467 var 468 notifydefaults, surrogateinfo, flag, enableerase: string; 469 begin 470 LoadListView(lvwNotifications, rpcGetNotifications); 471 lvwNotificationsColumnClick(lvwNotifications, lvwNotifications.Column[0]); // make sure sorted 472 notifydefaults := rpcGetNotificationDefaults; 473 flag := Piece(notifydefaults, '^', 2); 474 enableerase := Piece(notifydefaults, '^', 3); 475 chkNotificationsFlagged.Checked := flag = '1'; 476 btnNotificationsRemove.Enabled := enableerase = '1'; 477 surrogateinfo := rpcGetSurrogateInfo; 478 btnSurrogate.Hint := surrogateinfo; 479 LabelSurrogate(surrogateinfo, lblNotificationsSurrogateText); 480 end; 481 482 procedure TfrmOptions.LoadOrderChecks; 483 // load Order Check tab 484 begin 485 LoadListView(lvwOrderChecks, rpcGetOrderChecks); 486 lvwOrderChecks.Checkboxes := true; 487 end; 488 489 procedure TfrmOptions.ApplyNotifications; 490 // save Notification changes 491 var 492 i: integer; 493 newonoff: string; 494 aRule: TRule; 495 aList: TStringList; 496 begin 497 aList := TStringList.Create; 498 for i := 0 to lvwNotifications.Items.Count - 1 do 222 499 begin 223 with pagOptions do 500 aRule := TRule(lvwNotifications.Items.Item[i].SubItems.Objects[2]); 501 // if lvwNotifications.Items.Item[i].SubItems[1] <> 'Mandatory' then <-- original line. //kt 8/8/2007 502 if lvwNotifications.Items.Item[i].SubItems[1] <> DKLangConstW('fOptions_Mandatory') then //kt added 8/8/2007 224 503 begin 225 tsCoverSheet.TabVisible := false; 226 tsNotifications.TabVisible := false; 227 tsOrderChecks.TabVisible := false; 228 tsListsTeams.TabVisible := false; 229 case actiontype of 230 1: begin 231 tsCoverSheet.TabVisible := true; 232 end; 233 2: begin 234 tsNotifications.TabVisible := true; 235 end; 236 3: begin 237 tsOrderChecks.TabVisible := true; 238 end; 239 4: begin 240 tsListsTeams.TabVisible := true; 241 end; 242 else 243 begin 244 tsCoverSheet.TabVisible := true; 245 tsNotifications.TabVisible := true; 246 tsOrderChecks.TabVisible := true; 247 tsListsTeams.TabVisible := true; 248 ActivePage := tsCoverSheet; 249 // memReports.Text := 'Change the default date range and occurrence limits for all reports on ' + <-- original line. //kt 8/8/2007 250 memReports.Text := DKLangConstW('fOptions_Change_the_default_date_range_and_occurrence_limits_for_all_reports_on') + //kt added 8/8/2007 251 // 'the CPRS Reports tab (excluding health summary reports) .'; <-- original line. //kt 8/8/2007 252 DKLangConstW('fOptions_the_CPRS_Reports_tab_xexcluding_health_summary_reportsx_x'); //kt added 8/8/2007 253 // memReport1.Text := 'Change the individual date range and occurrence limits for each report on ' + <-- original line. //kt 8/8/2007 254 memReport1.Text := DKLangConstW('fOptions_Change_the_individual_date_range_and_occurrence_limits_for_each_report_on') + //kt added 8/8/2007 255 // 'the CPRS Reports tab (excluding health summary reports) .'; <-- original line. //kt 8/8/2007 256 DKLangConstW('fOptions_the_CPRS_Reports_tab_xexcluding_health_summary_reportsx_x'); //kt added 8/8/2007 257 // btnReports.caption := 'Set All Reports...'; <-- original line. //kt 8/8/2007 258 btnReports.caption := DKLangConstW('fOptions_Set_All_Reportsxxx'); //kt added 8/8/2007 259 // btnReport1.caption := 'Set Individual Reports...'; <-- original line. //kt 8/8/2007 260 btnReport1.caption := DKLangConstW('fOptions_Set_Individual_Reportsxxx'); //kt added 8/8/2007 261 if User.IsReportsOnly then // For "Reports Only" users. 262 begin 263 tsCoverSheet.TabVisible := false; 264 tsNotifications.TabVisible := false; 265 tsOrderChecks.TabVisible := false; 266 tsListsTeams.TabVisible := false; 267 tsNotes.TabVisible := false; 268 if (not User.ToolsRptEdit) then 269 begin 270 btnOK.visible := false; 271 btnApply.visible := false; 272 // btnCancel.caption := 'Close'; <-- original line. //kt 8/8/2007 273 btnCancel.caption := DKLangConstW('fOptions_Close'); //kt added 8/8/2007 274 end; 275 end; 276 if (not User.ToolsRptEdit) then // For users with Reports settings edit parameter not set. 277 begin 278 // memReports.Text := 'View the default date range and occurrence limits for all reports on ' + <-- original line. //kt 8/8/2007 279 memReports.Text := DKLangConstW('fOptions_View_the_default_date_range_and_occurrence_limits_for_all_reports_on') + //kt added 8/8/2007 280 // 'the CPRS Reports tab (excluding health summary reports) .'; <-- original line. //kt 8/8/2007 281 DKLangConstW('fOptions_the_CPRS_Reports_tab_xexcluding_health_summary_reportsx_x'); //kt added 8/8/2007 282 // memReport1.Text := 'View the individual date range and occurrence limits for each report on ' + <-- original line. //kt 8/8/2007 283 memReport1.Text := DKLangConstW('fOptions_View_the_individual_date_range_and_occurrence_limits_for_each_report_on') + //kt added 8/8/2007 284 // 'the CPRS Reports tab (excluding health summary reports) .'; <-- original line. //kt 8/8/2007 285 DKLangConstW('fOptions_the_CPRS_Reports_tab_xexcluding_health_summary_reportsx_x'); //kt added 8/8/2007 286 // btnReports.caption := 'View All Report Settings...'; <-- original line. //kt 8/8/2007 287 btnReports.caption := DKLangConstW('fOptions_View_All_Report_Settingsxxx'); //kt added 8/8/2007 288 // btnReport1.caption := 'View Individual Report Settings...'; <-- original line. //kt 8/8/2007 289 btnReport1.caption := DKLangConstW('fOptions_View_Individual_Report_Settingsxxx'); //kt added 8/8/2007 290 end; 291 end; 504 newonoff := Uppercase(lvwNotifications.Items.Item[i].SubItems[0]); 505 if aRule.OriginalValue <> newonoff then 506 begin 507 //***showmessage(aRule.IEN + ' ' + aRule.OriginalValue + ' ' + newonoff); 508 aList.Add(aRule.IEN + '^' + newonoff); 509 aRule.OriginalValue := lvwNotifications.Items.Item[i].SubItems[0]; 292 510 end; 293 511 end; 294 actiontype := 0; 295 ResizeAnchoredFormToFont(frmOptions); 296 btnApply.Left := pagOptions.Left + pagOptions.Width - btnApply.Width; 297 btnCancel.Left := btnApply.Left - btnCancel.Width - PixelGapBetweenButtons; 298 btnOK.Left := btnCancel.Left - btnOK.Width - PixelGapBetweenButtons; 299 ShowModal; 300 actiontype := btnOK.Tag; 301 end; 302 finally 303 frmOptions.Release; 304 end; 305 end; 306 307 procedure TfrmOptions.FormCreate(Sender: TObject); 308 // initialize form 309 var i : integer; //kt added 6/29/07 310 begin 311 LoadNotifications; 312 LoadOrderChecks; 313 FdirtyNotifications := false; 314 FdirtyOrderChecks := false; 315 FdirtyOtherStuff := false; 316 CheckApply; 317 318 if (Encounter.Provider = 0) and not IsCIDCProvider(User.DUZ) then 319 btnDiagnoses.Enabled := False; 320 if UseVistaWeb then rdoRDV.ItemIndex := 1; 321 322 //kt begin modification 6/29/07 --------------- 323 324 // Fill cbLanguage with available languages 325 // Note: LangManager was populated at form creation of fFrame 326 for i := 0 to LangManager.LanguageCount-1 do cbLanguage.Items.Add(LangManager.LanguageNames[i]); 327 //Index=0 always means the default language 328 cbLanguage.ItemIndex := LangManager.LanguageIndex; 329 330 //kt end modification 6/29/07 --------------- 331 332 333 end; 334 335 procedure TfrmOptions.FormDestroy(Sender: TObject); 336 // cleanup creation of objects 337 var 338 i: integer; 339 begin 340 for i := 0 to lvwOrderChecks.Items.Count - 1 do 341 lvwOrderChecks.Items.Item[i].SubItems.Objects[2].free; 342 for i := 0 to lvwNotifications.Items.Count - 1 do 343 lvwNotifications.Items.Item[i].SubItems.Objects[2].free; 344 end; 345 346 procedure TfrmOptions.btnCoverDaysClick(Sender: TObject); 347 // display Date Range Defaults on Cover Sheet 348 var 349 topsize, leftsize, value: integer; 350 begin 351 value := 0; 352 Offset(topsize, -60, leftsize, -60); 353 DialogOptionsDays(topsize, leftsize, Font.Size, value); 354 end; 355 356 procedure TfrmOptions.btnCoverRemindersClick(Sender: TObject); 357 // display Clinical Reminder Options 358 var 359 topsize, leftsize, value: integer; 360 begin 361 value := 0; 362 Offset(topsize, -60, leftsize, -60); 363 DialogOptionsReminders(topsize, leftsize, Font.Size, value); 364 end; 365 366 procedure TfrmOptions.btnOtherParametersClick(Sender: TObject); 367 // display Other Parameters Options 368 var 369 topsize, leftsize, value: integer; 370 begin 371 value := 0; 372 Offset(topsize, 40, leftsize, 40); 373 DialogOptionsOther(topsize, leftsize, Font.Size, value); 374 end; 375 376 procedure TfrmOptions.btnPatientSelectionClick(Sender: TObject); 377 // display Patient Selection Options 378 var 379 topsize, leftsize, value: integer; 380 begin 381 value := 0; 382 Offset(topsize, -60, leftsize, -60); 383 DialogOptionsPatientSelection(topsize, leftsize, Font.Size, value); 384 end; 385 386 procedure TfrmOptions.btnPersonalListsClick(Sender: TObject); 387 // display Personal Lists Options 388 var 389 topsize, leftsize, value: integer; 390 begin 391 value := 0; 392 Offset(topsize, -60, leftsize, -60); 393 DialogOptionsLists(topsize, leftsize, Font.Size, value); 394 end; 395 396 procedure TfrmOptions.btnTeamsClick(Sender: TObject); 397 // display Team Options 398 var 399 topsize, leftsize, value: integer; 400 begin 401 value := 0; 402 Offset(topsize, -60, leftsize, -60); 403 DialogOptionsTeams(topsize, leftsize, Font.Size, value); 404 end; 405 406 procedure TfrmOptions.btnNotificationsRemoveClick(Sender: TObject); 407 // confirm before clearing notifications 408 begin 409 //if InfoBox('CAUTION: This will clear all the current notifications you have pending.' <-- original line. //kt 8/8/2007 410 if InfoBox(DKLangConstW('fOptions_CAUTIONx_This_will_clear_all_the_current_notifications_you_have_pendingx') //kt added 8/8/2007 411 // + #13 + 'If you say YES, these changes will take place immediately.' <-- original line. //kt 8/8/2007 412 + #13 + DKLangConstW('fOptions_If_you_say_YESx_these_changes_will_take_place_immediatelyx') //kt added 8/8/2007 413 // + #13 + 'Are you sure you want to erase all of your notifications?', <-- original line. //kt 8/8/2007 414 + #13 + DKLangConstW('fOptions_Are_you_sure_you_want_to_erase_all_of_your_notificationsx'), //kt added 8/8/2007 415 // 'Warning', MB_YESNO or MB_ICONWARNING) = IDYES then <-- original line. //kt 8/8/2007 416 DKLangConstW('fOptions_Warning'), MB_YESNO or MB_ICONWARNING) = IDYES then //kt added 8/8/2007 512 end; 513 rpcSetNotifications(aList); 514 aList.free; 515 FdirtyNotifications := false; 516 end; 517 518 procedure TfrmOptions.ApplyOrderChecks; 519 // save Order Check changes 520 var 521 i: integer; 522 newonoff: string; 523 aRule: TRule; 524 aList: TStringList; 525 begin 526 aList := TStringList.Create; 527 for i := 0 to lvwOrderChecks.Items.Count - 1 do 417 528 begin 418 rpcClearNotifications; 419 end; 420 end; 421 422 procedure TfrmOptions.Offset(var topnum: integer; topoffset: integer; var leftnum: integer; leftoffset: integer); 423 // get positions to display dialog 424 begin 425 // use these top and left values to display dialog 426 topnum := Top; 427 leftnum := Left; 428 topnum := topnum + topoffset; 429 if topnum < 0 then topnum := 0; 430 leftnum := leftnum + leftoffset; 431 if leftnum < 0 then leftnum := 0; 432 end; 433 434 procedure TfrmOptions.btnApplyClick(Sender: TObject); 435 // save actions without exiting 436 begin 437 if FdirtyNotifications then 438 ApplyNotifications; 439 if FdirtyOrderChecks then 440 ApplyOrderChecks; 441 if FdirtyOtherStuff then 442 ApplyOtherStuff; 443 CheckApply; 444 if Sender = btnOK then 445 Close; 446 end; 447 448 procedure TfrmOptions.LoadNotifications; 449 // load Notification tab 450 var 451 notifydefaults, surrogateinfo, flag, enableerase: string; 452 begin 453 LoadListView(lvwNotifications, rpcGetNotifications); 454 lvwNotificationsColumnClick(lvwNotifications, lvwNotifications.Column[0]); // make sure sorted 455 notifydefaults := rpcGetNotificationDefaults; 456 flag := Piece(notifydefaults, '^', 2); 457 enableerase := Piece(notifydefaults, '^', 3); 458 chkNotificationsFlagged.Checked := flag = '1'; 459 btnNotificationsRemove.Enabled := enableerase = '1'; 460 surrogateinfo := rpcGetSurrogateInfo; 461 btnSurrogate.Hint := surrogateinfo; 462 LabelSurrogate(surrogateinfo, lblNotificationsSurrogateText); 463 end; 464 465 procedure TfrmOptions.LoadOrderChecks; 466 // load Order Check tab 467 begin 468 LoadListView(lvwOrderChecks, rpcGetOrderChecks); 469 lvwOrderChecks.Checkboxes := true; 470 end; 471 472 procedure TfrmOptions.ApplyNotifications; 473 // save Notification changes 474 var 475 i: integer; 476 newonoff: string; 477 aRule: TRule; 478 aList: TStringList; 479 begin 480 aList := TStringList.Create; 481 for i := 0 to lvwNotifications.Items.Count - 1 do 482 begin 483 aRule := TRule(lvwNotifications.Items.Item[i].SubItems.Objects[2]); 484 // if lvwNotifications.Items.Item[i].SubItems[1] <> 'Mandatory' then <-- original line. //kt 8/8/2007 485 if lvwNotifications.Items.Item[i].SubItems[1] <> DKLangConstW('fOptions_Mandatory') then //kt added 8/8/2007 486 begin 487 newonoff := Uppercase(lvwNotifications.Items.Item[i].SubItems[0]); 529 aRule := TRule(lvwOrderChecks.Items.Item[i].SubItems.Objects[2]); 530 newonoff := Uppercase(lvwOrderChecks.Items.Item[i].SubItems[0]); 488 531 if aRule.OriginalValue <> newonoff then 489 532 begin 490 //***showmessage(aRule.IEN + ' ' + aRule.OriginalValue + ' ' + newonoff);491 533 aList.Add(aRule.IEN + '^' + newonoff); 492 aRule.OriginalValue := lvw Notifications.Items.Item[i].SubItems[0];534 aRule.OriginalValue := lvwOrderChecks.Items.Item[i].SubItems[0]; 493 535 end; 494 536 end; 495 end; 496 rpcSetNotifications(aList); 497 aList.free; 498 FdirtyNotifications := false; 499 end; 500 501 procedure TfrmOptions.ApplyOrderChecks; 502 // save Order Check changes 503 var 504 i: integer; 505 newonoff: string; 506 aRule: TRule; 507 aList: TStringList; 508 begin 509 aList := TStringList.Create; 510 for i := 0 to lvwOrderChecks.Items.Count - 1 do 511 begin 512 aRule := TRule(lvwOrderChecks.Items.Item[i].SubItems.Objects[2]); 513 newonoff := Uppercase(lvwOrderChecks.Items.Item[i].SubItems[0]); 514 if aRule.OriginalValue <> newonoff then 537 rpcSetOrderChecks(aList); 538 aList.free; 539 FdirtyOrderChecks := false; 540 end; 541 542 procedure TfrmOptions.ApplyOtherStuff; 543 // save other changes 544 var 545 aString: string; 546 begin 547 aString := ''; 548 if chkNotificationsFlagged.Checked then 549 aString := aString + '^1' 550 else 551 aString := aString + '^0'; 552 rpcSetOtherStuff(aString); 553 FdirtyOtherStuff := false; 554 end; 555 556 procedure TfrmOptions.CheckApply; 557 // determine if Apply button is enabled 558 begin 559 btnApply.Enabled := FdirtyOrderChecks or FdirtyNotifications or FdirtyOtherStuff; 560 end; 561 562 procedure TfrmOptions.chkNotificationsFlaggedClick(Sender: TObject); 563 // set notification flagged status 564 begin 565 FdirtyOtherStuff := true; 566 CheckApply; 567 end; 568 569 procedure TfrmOptions.LoadListView(aListView: TListView; aList: TStrings); 570 // load a list view with: name, on/off, comment 571 var 572 i: integer; 573 aListItem: TListItem; 574 aRule: TRule; 575 rulenum, ruletext, ruleonoff, rulecomment: string; 576 begin 577 FuseCheckBoxes := false; 578 aListView.Items.Clear; 579 aListView.SortType := stNone; // if Sorting during load then potential error 580 with aList do 515 581 begin 516 aList.Add(aRule.IEN + '^' + newonoff); 517 aRule.OriginalValue := lvwOrderChecks.Items.Item[i].SubItems[0]; 518 end; 519 end; 520 rpcSetOrderChecks(aList); 521 aList.free; 522 FdirtyOrderChecks := false; 523 end; 524 525 procedure TfrmOptions.ApplyOtherStuff; 526 // save other changes 527 var 528 aString: string; 529 begin 530 aString := ''; 531 if chkNotificationsFlagged.Checked then 532 aString := aString + '^1' 533 else 534 aString := aString + '^0'; 535 rpcSetOtherStuff(aString); 536 FdirtyOtherStuff := false; 537 end; 538 539 procedure TfrmOptions.CheckApply; 540 // determine if Apply button is enabled 541 begin 542 btnApply.Enabled := FdirtyOrderChecks or FdirtyNotifications or FdirtyOtherStuff; 543 end; 544 545 procedure TfrmOptions.chkNotificationsFlaggedClick(Sender: TObject); 546 // set notification flagged status 547 begin 548 FdirtyOtherStuff := true; 549 CheckApply; 550 end; 551 552 procedure TfrmOptions.LoadListView(aListView: TListView; aList: TStrings); 553 // load a list view with: name, on/off, comment 554 var 555 i: integer; 556 aListItem: TListItem; 557 aRule: TRule; 558 rulenum, ruletext, ruleonoff, rulecomment: string; 559 begin 560 FuseCheckBoxes := false; 561 aListView.Items.Clear; 562 aListView.SortType := stNone; // if Sorting during load then potential error 563 with aList do 564 begin 565 for i := 0 to aList.Count - 1 do 582 for i := 0 to aList.Count - 1 do 583 begin 584 rulenum := Piece(aList[i], '^', 1); 585 ruletext := Piece(aList[i], '^', 2); 586 ruleonoff := Piece(aList[i], '^', 3); 587 rulecomment := Piece(aList[i], '^', 4); 588 aListItem := aListView.Items.Add; 589 with aListItem do 590 begin 591 Caption := ruletext; 592 SubItems.Add(ruleonoff); 593 if ruleonoff = 'On' then Checked := true; 594 SubItems.Add(rulecomment); 595 end; 596 aRule := TRule.Create; 597 with aRule do 598 begin 599 IEN := rulenum; 600 OriginalValue := ruleonoff; 601 ItemText := ruletext; 602 end; 603 // aListItem.SubItems.AddObject('rule object', aRule); <-- original line. //kt 8/8/2007 604 aListItem.SubItems.AddObject(DKLangConstW('fOptions_rule_object'), aRule); //kt added 8/8/2007 605 end; 606 end; 607 aListView.SortType := stBoth; 608 FuseCheckBoxes := true; 609 end; 610 611 procedure TfrmOptions.lvwNotificationsChange(Sender: TObject; 612 Item: TListItem; Change: TItemChange); 613 // change on/off on checkmark 614 begin 615 if (Sender as TListView).ItemIndex = -1 then exit; 616 if not FuseCheckBoxes then exit; 617 if (Sender as TListView).Checkboxes = false then exit; 618 //if (Item.SubItems[1] = 'Mandatory') and not Item.Checked then begin <-- original line. //kt 8/8/2007 619 if (Item.SubItems[1] = DKLangConstW('fOptions_Mandatory')) and not Item.Checked then begin //kt added 8/8/2007 620 Item.Checked := True; 621 exit; 622 end; 623 if Item.Checked then 566 624 begin 567 rulenum := Piece(aList[i], '^', 1); 568 ruletext := Piece(aList[i], '^', 2); 569 ruleonoff := Piece(aList[i], '^', 3); 570 rulecomment := Piece(aList[i], '^', 4); 571 aListItem := aListView.Items.Add; 572 with aListItem do 625 if Item.SubItems[0] <> 'On' then 626 ChangeOnOff(Sender as TListView, Item); 627 Item.SubItems[0] := 'On'; 628 end 629 else 630 begin 631 // if Item.SubItems[0] <> 'Off' then <-- original line. //kt 8/8/2007 632 if Item.SubItems[0] <> DKLangConstW('fOptions_Off') then //kt added 8/8/2007 633 ChangeOnOff(Sender as TListView, Item); 634 // Item.SubItems[0] := 'Off'; <-- original line. //kt 8/8/2007 635 Item.SubItems[0] := DKLangConstW('fOptions_Off'); //kt added 8/8/2007 636 end; 637 end; 638 639 procedure TfrmOptions.lvwNotificationsColumnClick(Sender: TObject; 640 Column: TListColumn); 641 // toggle sort 642 begin 643 if FsortCol = Column.Index then 644 FsortAscending := not FsortAscending 645 else 646 FsortAscending := true; 647 FsortCol := Column.Index; 648 (Sender as TListView).AlphaSort; 649 end; 650 651 procedure TfrmOptions.lvwNotificationsCompare(Sender: TObject; Item1, 652 Item2: TListItem; Data: Integer; var Compare: Integer); 653 // sort columns 654 begin 655 if not(Sender is TListView) then exit; 656 if FsortAscending then 657 begin 658 if FsortCol = 0 then 659 Compare := CompareStr(Item1.Caption, Item2.Caption) 660 else 661 Compare := CompareStr(Item1.SubItems[FsortCol - 1], 662 Item2.SubItems[FsortCol - 1]); 663 end 664 else 665 begin 666 if FsortCol = 0 then 667 Compare := CompareStr(Item2.Caption, Item1.Caption) 668 else 669 Compare := CompareStr(Item2.SubItems[FsortCol - 1], 670 Item1.SubItems[FsortCol - 1]); 671 end; 672 end; 673 674 procedure TfrmOptions.lvwNotificationsDblClick(Sender: TObject); 675 // toggle check marks with double click 676 var 677 aListItem: TListItem; 678 begin 679 with (Sender as TListView) do 680 begin 681 if Checkboxes = false then exit; 682 if Selected = nil then exit; 683 // if Selected.SubItems[1] = 'Mandatory' then exit; <-- original line. //kt 8/8/2007 684 if Selected.SubItems[1] = DKLangConstW('fOptions_Mandatory') then exit; //kt added 8/8/2007 685 if Selected <> FLastClickedItem then exit; 686 aListItem := Selected; 687 aListItem.Checked := not aListItem.Checked; 688 ChangeOnOff(Sender as TListView, aListItem); 689 690 if aListItem.Checked then 691 aListItem.SubItems[0] := 'On' 692 else 693 // aListItem.SubItems[0] := 'Off'; <-- original line. //kt 8/8/2007 694 aListItem.SubItems[0] := DKLangConstW('fOptions_Off'); //kt added 8/8/2007 695 end; 696 end; 697 698 procedure TfrmOptions.ChangeOnOff(aListView: TListView; aListItem: TListItem); 699 // check if list items were edited 700 begin 701 if aListView = lvwNotifications then FdirtyNotifications := true; 702 if aListView = lvwOrderChecks then FdirtyOrderChecks := true; 703 CheckApply; 704 end; 705 706 procedure TfrmOptions.btnSurrogateClick(Sender: TObject); 707 // display Surrogate Options 708 var 709 topsize, leftsize: integer; 710 surrogateinfo: string; 711 begin 712 surrogateinfo := btnSurrogate.Hint; 713 Offset(topsize, -30, leftsize, -30); 714 DialogOptionsSurrogate(topsize, leftsize, Font.Size, surrogateinfo); 715 LabelSurrogate(surrogateinfo, lblNotificationsSurrogateText); 716 btnSurrogate.Hint := surrogateinfo; 717 end; 718 719 procedure TfrmOptions.btnCombinationsClick(Sender: TObject); 720 // display Combination List Options 721 var 722 topsize, leftsize, value: integer; 723 begin 724 value := 0; 725 Offset(topsize, -60, leftsize, -60); 726 DialogOptionsCombinations(topsize, leftsize, Font.Size, value); 727 end; 728 729 procedure TfrmOptions.btnNotesNotesClick(Sender: TObject); 730 // display Notes Options 731 var 732 topsize, leftsize, value: integer; 733 begin 734 value := 0; 735 Offset(topsize, -60, leftsize, -60); 736 DialogOptionsNotes(topsize, leftsize, Font.Size, value); 737 end; 738 739 procedure TfrmOptions.btnNotesTitlesClick(Sender: TObject); 740 // display Titles Options 741 var 742 topsize, leftsize, value: integer; 743 begin 744 value := 0; 745 Offset(topsize, -60, leftsize, -60); 746 DialogOptionsTitles(topsize, leftsize, Font.Size, value); 747 end; 748 749 procedure TfrmOptions.btnReportsClick(Sender: TObject); 750 var 751 topsize, leftsize, value: integer; 752 begin 753 value := 0; 754 Offset(topsize, 90, leftsize, 23); 755 DialogOptionsHSDefault(topsize, leftsize, Font.Size, value); 756 end; 757 758 procedure TfrmOptions.btnReport1Click(Sender: TObject); 759 var 760 topsize, leftsize, value: integer; 761 begin 762 value := 0; 763 Offset(topsize, -18, leftsize, -15); 764 DialogOptionsHSCustom(topsize, leftsize, Font.Size, value); 765 end; 766 767 procedure TfrmOptions.lvwNotificationsEnter(Sender: TObject); 768 begin 769 with Sender as TListView do begin 770 if (Selected = nil) and (Items.Count > 0) then 771 Selected := Items[0]; 772 end; 773 end; 774 775 procedure TfrmOptions.lvwNotificationsMouseDown(Sender: TObject; 776 Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 777 begin 778 FLastClickedItem := (Sender as TListView).GetItemAt(X,Y); 779 end; 780 781 procedure TfrmOptions.btnDiagnosesClick(Sender: TObject); 782 // display Personal Diagnoses List 783 var 784 topsize, leftsize, value: integer; 785 begin 786 if IsCIDCProvider(User.DUZ) then //(hds7564) 787 begin 788 value := 0; 789 Offset(topsize, -60, leftsize, -60); 790 DialogOptionsDiagnoses(topsize, leftsize, Font.Size, value); 791 end; 792 end; 793 794 procedure TfrmOptions.btnGraphSettingsClick(Sender: TObject); 795 // display GraphSettings 796 var 797 actiontype: boolean; 798 topsize, leftsize: integer; 799 begin 800 actiontype := false; 801 Offset(topsize, -60, leftsize, -60); 802 DialogOptionsGraphSettings(topsize, leftsize, Font.Size, actiontype); 803 end; 804 805 procedure TfrmOptions.btnGraphViewsClick(Sender: TObject); 806 // display Graph Views 807 var 808 actiontype: boolean; 809 topsize, leftsize: integer; 810 begin 811 actiontype := false; 812 Offset(topsize, -60, leftsize, -60); 813 DialogOptionsGraphProfiles(topsize, leftsize, Font.Size, actiontype); 814 end; 815 816 procedure TfrmOptions.rdoRDVClick(Sender: TObject); 817 var 818 iIndex: integer; 819 begin 820 iIndex := rdoRDV.ItemIndex; 821 with frmFrame do 822 if iIndex = 0 then 573 823 begin 574 Caption := ruletext; 575 SubItems.Add(ruleonoff); 576 if ruleonoff = 'On' then Checked := true; 577 SubItems.Add(rulecomment); 824 ChangeVistaWebParam('0'); 825 lblCIRN.Caption := ' Remote'; 826 lblCIRNData.Caption := 'Data'; 827 lblCIRNAvail.Caption := ''; 828 lblCIRN.Width := 43; 829 lblCIRNData.Width := 43; 830 lblCIRNData.Alignment := taCenter; 831 lblCIRN.Alignment := taCenter; 832 lstCIRNLocations.Clear; 833 SetUpCIRN; 834 end 835 else 836 begin 837 ChangeVistaWebParam('1'); 838 lblCIRN.Caption := 'Remote'; 839 lblCIRNData.Caption := 'Data*'; //VistaWeb On 840 lblCIRN.Width := 43; 841 lblCIRNData.Width := 43; 842 lblCIRNData.Alignment := taCenter; 843 lblCIRN.Alignment := taCenter; 844 lblCIRN.Enabled := True; 845 lblCIRNData.Enabled := True; 846 pnlCIRN.TabStop := True; 847 if ColorToRGB(clWindowText) = ColorToRGB(clBlack) then 848 begin 849 lblCIRN.Font.Color := clBlue; 850 lblCIRNData.Font.Color := clBlue; 851 lblCIRNAvail.Font.Color := clBlue; 852 lstCIRNLocations.Font.Color := clBlue; 853 end 854 else 855 begin 856 lblCIRN.Font.Color := clWindowText; 857 lblCIRNData.Font.Color := clWindowText; 858 lblCIRNAvail.Font.Color := clWindowText; 859 lstCIRNLocations.Font.Color := clWindowText; 860 end; 578 861 end; 579 aRule := TRule.Create; 580 with aRule do 581 begin 582 IEN := rulenum; 583 OriginalValue := ruleonoff; 584 ItemText := ruletext; 585 end; 586 // aListItem.SubItems.AddObject('rule object', aRule); <-- original line. //kt 8/8/2007 587 aListItem.SubItems.AddObject(DKLangConstW('fOptions_rule_object'), aRule); //kt added 8/8/2007 588 end; 589 end; 590 aListView.SortType := stBoth; 591 FuseCheckBoxes := true; 592 end; 593 594 procedure TfrmOptions.lvwNotificationsChange(Sender: TObject; 595 Item: TListItem; Change: TItemChange); 596 // change on/off on checkmark 597 begin 598 if (Sender as TListView).ItemIndex = -1 then exit; 599 if not FuseCheckBoxes then exit; 600 if (Sender as TListView).Checkboxes = false then exit; 601 //if (Item.SubItems[1] = 'Mandatory') and not Item.Checked then begin <-- original line. //kt 8/8/2007 602 if (Item.SubItems[1] = DKLangConstW('fOptions_Mandatory')) and not Item.Checked then begin //kt added 8/8/2007 603 Item.Checked := True; 604 exit; 605 end; 606 if Item.Checked then 607 begin 608 if Item.SubItems[0] <> 'On' then 609 ChangeOnOff(Sender as TListView, Item); 610 Item.SubItems[0] := 'On'; 611 end 612 else 613 begin 614 // if Item.SubItems[0] <> 'Off' then <-- original line. //kt 8/8/2007 615 if Item.SubItems[0] <> DKLangConstW('fOptions_Off') then //kt added 8/8/2007 616 ChangeOnOff(Sender as TListView, Item); 617 // Item.SubItems[0] := 'Off'; <-- original line. //kt 8/8/2007 618 Item.SubItems[0] := DKLangConstW('fOptions_Off'); //kt added 8/8/2007 619 end; 620 end; 621 622 procedure TfrmOptions.lvwNotificationsColumnClick(Sender: TObject; 623 Column: TListColumn); 624 // toggle sort 625 begin 626 if FsortCol = Column.Index then 627 FsortAscending := not FsortAscending 628 else 629 FsortAscending := true; 630 FsortCol := Column.Index; 631 (Sender as TListView).AlphaSort; 632 end; 633 634 procedure TfrmOptions.lvwNotificationsCompare(Sender: TObject; Item1, 635 Item2: TListItem; Data: Integer; var Compare: Integer); 636 // sort columns 637 begin 638 if not(Sender is TListView) then exit; 639 if FsortAscending then 640 begin 641 if FsortCol = 0 then 642 Compare := CompareStr(Item1.Caption, Item2.Caption) 643 else 644 Compare := CompareStr(Item1.SubItems[FsortCol - 1], 645 Item2.SubItems[FsortCol - 1]); 646 end 647 else 648 begin 649 if FsortCol = 0 then 650 Compare := CompareStr(Item2.Caption, Item1.Caption) 651 else 652 Compare := CompareStr(Item2.SubItems[FsortCol - 1], 653 Item1.SubItems[FsortCol - 1]); 654 end; 655 end; 656 657 procedure TfrmOptions.lvwNotificationsDblClick(Sender: TObject); 658 // toggle check marks with double click 659 var 660 aListItem: TListItem; 661 begin 662 with (Sender as TListView) do 663 begin 664 if Checkboxes = false then exit; 665 if Selected = nil then exit; 666 // if Selected.SubItems[1] = 'Mandatory' then exit; <-- original line. //kt 8/8/2007 667 if Selected.SubItems[1] = DKLangConstW('fOptions_Mandatory') then exit; //kt added 8/8/2007 668 if Selected <> FLastClickedItem then exit; 669 aListItem := Selected; 670 aListItem.Checked := not aListItem.Checked; 671 ChangeOnOff(Sender as TListView, aListItem); 672 673 if aListItem.Checked then 674 aListItem.SubItems[0] := 'On' 675 else 676 // aListItem.SubItems[0] := 'Off'; <-- original line. //kt 8/8/2007 677 aListItem.SubItems[0] := DKLangConstW('fOptions_Off'); //kt added 8/8/2007 678 end; 679 end; 680 681 procedure TfrmOptions.ChangeOnOff(aListView: TListView; aListItem: TListItem); 682 // check if list items were edited 683 begin 684 if aListView = lvwNotifications then FdirtyNotifications := true; 685 if aListView = lvwOrderChecks then FdirtyOrderChecks := true; 686 CheckApply; 687 end; 688 689 procedure TfrmOptions.btnSurrogateClick(Sender: TObject); 690 // display Surrogate Options 691 var 692 topsize, leftsize: integer; 693 surrogateinfo: string; 694 begin 695 surrogateinfo := btnSurrogate.Hint; 696 Offset(topsize, -30, leftsize, -30); 697 DialogOptionsSurrogate(topsize, leftsize, Font.Size, surrogateinfo); 698 LabelSurrogate(surrogateinfo, lblNotificationsSurrogateText); 699 btnSurrogate.Hint := surrogateinfo; 700 end; 701 702 procedure TfrmOptions.btnCombinationsClick(Sender: TObject); 703 // display Combination List Options 704 var 705 topsize, leftsize, value: integer; 706 begin 707 value := 0; 708 Offset(topsize, -60, leftsize, -60); 709 DialogOptionsCombinations(topsize, leftsize, Font.Size, value); 710 end; 711 712 procedure TfrmOptions.btnNotesNotesClick(Sender: TObject); 713 // display Notes Options 714 var 715 topsize, leftsize, value: integer; 716 begin 717 value := 0; 718 Offset(topsize, -60, leftsize, -60); 719 DialogOptionsNotes(topsize, leftsize, Font.Size, value); 720 end; 721 722 procedure TfrmOptions.btnNotesTitlesClick(Sender: TObject); 723 // display Titles Options 724 var 725 topsize, leftsize, value: integer; 726 begin 727 value := 0; 728 Offset(topsize, -60, leftsize, -60); 729 DialogOptionsTitles(topsize, leftsize, Font.Size, value); 730 end; 731 732 procedure TfrmOptions.btnReportsClick(Sender: TObject); 733 var 734 topsize, leftsize, value: integer; 735 begin 736 value := 0; 737 Offset(topsize, 90, leftsize, 23); 738 DialogOptionsHSDefault(topsize, leftsize, Font.Size, value); 739 end; 740 741 procedure TfrmOptions.btnReport1Click(Sender: TObject); 742 var 743 topsize, leftsize, value: integer; 744 begin 745 value := 0; 746 Offset(topsize, -18, leftsize, -15); 747 DialogOptionsHSCustom(topsize, leftsize, Font.Size, value); 748 end; 749 750 procedure TfrmOptions.lvwNotificationsEnter(Sender: TObject); 751 begin 752 with Sender as TListView do begin 753 if (Selected = nil) and (Items.Count > 0) then 754 Selected := Items[0]; 755 end; 756 end; 757 758 procedure TfrmOptions.lvwNotificationsMouseDown(Sender: TObject; 759 Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 760 begin 761 FLastClickedItem := (Sender as TListView).GetItemAt(X,Y); 762 end; 763 764 procedure TfrmOptions.btnDiagnosesClick(Sender: TObject); 765 // display Personal Diagnoses List 766 var 767 topsize, leftsize, value: integer; 768 begin 769 if IsCIDCProvider(User.DUZ) then //(hds7564) 770 begin 771 value := 0; 772 Offset(topsize, -60, leftsize, -60); 773 DialogOptionsDiagnoses(topsize, leftsize, Font.Size, value); 774 end; 775 end; 776 777 procedure TfrmOptions.btnGraphSettingsClick(Sender: TObject); 778 // display GraphSettings 779 var 780 actiontype: boolean; 781 topsize, leftsize: integer; 782 begin 783 actiontype := false; 784 Offset(topsize, -60, leftsize, -60); 785 DialogOptionsGraphSettings(topsize, leftsize, Font.Size, actiontype); 786 end; 787 788 procedure TfrmOptions.btnGraphViewsClick(Sender: TObject); 789 // display Graph Views 790 var 791 actiontype: boolean; 792 topsize, leftsize: integer; 793 begin 794 actiontype := false; 795 Offset(topsize, -60, leftsize, -60); 796 DialogOptionsGraphProfiles(topsize, leftsize, Font.Size, actiontype); 797 end; 798 799 procedure TfrmOptions.rdoRDVClick(Sender: TObject); 800 var 801 iIndex: integer; 802 begin 803 iIndex := rdoRDV.ItemIndex; 804 with frmFrame do 805 if iIndex = 0 then 862 863 end; 864 865 procedure TfrmOptions.cbLanguageChange(Sender: TObject); //kt added 6/29/07 866 var iIndex: Integer; 867 CPRSChartINI: TINIFile; 868 begin 869 iIndex := cbLanguage.ItemIndex; 870 if iIndex<0 then iIndex := 0; // When there's no valid selection in cbLanguage we use the default language (Index=0) 871 try 872 LangManager.LanguageID := LangManager.LanguageIDs[iIndex]; 873 except 874 on EReadError do begin 875 //do nothing. Ignore error. 876 end 877 end; 878 frmFrame.Caption := TX_IN_USE + MixedCase(User.Name) + ' (' + RPCBrokerV.Server + ')'; //kt added 879 frmFrame.RenameTabs; //Resets names of tabs to correct translation //kt 880 frmFrame.mnuFileRefreshClick(self); //elh 6/23/08 881 CPRSChartINI := TINIFile.Create(ExtractFilePath(ParamStr(0)) + 'CPRSChart.ini'); // Write to INI elh 6/23/08 882 CPRSChartINI.WriteInteger('Options','Language',LangManager.LanguageID); 883 CPRSChartINI.Free; 884 end; 885 886 procedure TfrmOptions.Button1Click(Sender: TObject); 887 begin 888 MessageDlg('For a given language to be available, a *.lng (e.g. spanish.lng) '+ 889 'must be in the same directory as CPRSchart.exe. This *.lng file '+ 890 'may be created at any time by users by working with the CPRSchart.dklng '+ 891 'file with the free language editor found at: '+ 892 'http://www.dk-soft.org/products/dklang/',mtInformation,[mbOK],0); 893 end; 894 895 procedure TfrmOptions.btnApplySkinClick(Sender: TObject); //kt added 896 var fileS : String; 897 begin 898 {$IFDEF USE_SKINS} 899 fileS := ''; 900 if lbSkins.ItemIndex > -1 then fileS := lbSkins.Items [lbSkins.ItemIndex]; 901 frmFrame.CurrentSkinFile := 'TMG_Extra\Skins\' +fileS; 902 frmFrame.ActivateCurrentSkin; 903 {$ELSE} 904 MessageDlg('Use of skins has been disabled at compile time.',mtInformation,[mbOK],0); 905 {$ENDIF} 906 end; 907 908 procedure TfrmOptions.btnMoreSkinsClick(Sender: TObject); //kt added 909 begin 910 ShellExecute (Handle, 'open', 'http://www2.wincustomize.com/Skins.aspx?LibID=12&view=1&sortby=9&sortdir=DESC&p=1&advanced=0&mode=1&u=0', nil, nil, SW_SHOWNORMAL); 911 end; 912 913 procedure TfrmOptions.FillSkinList; //kt added 914 var 915 SRec : TSearchRec; 916 R : Integer; 917 begin 918 lbSkins.Items.Clear; 919 R := FindFirst (ExtractFilePath (Application.ExeName) + 'TMG_Extra\Skins\*.ipz', faAnyFile, SRec); 920 while R = 0 do 806 921 begin 807 ChangeVistaWebParam('0'); 808 lblCIRN.Caption := ' Remote'; 809 lblCIRNData.Caption := 'Data'; 810 lblCIRNAvail.Caption := ''; 811 lblCIRN.Width := 43; 812 lblCIRNData.Width := 43; 813 lblCIRNData.Alignment := taCenter; 814 lblCIRN.Alignment := taCenter; 815 lstCIRNLocations.Clear; 816 SetUpCIRN; 817 end 818 else 819 begin 820 ChangeVistaWebParam('1'); 821 lblCIRN.Caption := 'Remote'; 822 lblCIRNData.Caption := 'Data*'; //VistaWeb On 823 lblCIRN.Width := 43; 824 lblCIRNData.Width := 43; 825 lblCIRNData.Alignment := taCenter; 826 lblCIRN.Alignment := taCenter; 827 lblCIRN.Enabled := True; 828 lblCIRNData.Enabled := True; 829 pnlCIRN.TabStop := True; 830 if ColorToRGB(clWindowText) = ColorToRGB(clBlack) then 831 begin 832 lblCIRN.Font.Color := clBlue; 833 lblCIRNData.Font.Color := clBlue; 834 lblCIRNAvail.Font.Color := clBlue; 835 lstCIRNLocations.Font.Color := clBlue; 836 end 837 else 838 begin 839 lblCIRN.Font.Color := clWindowText; 840 lblCIRNData.Font.Color := clWindowText; 841 lblCIRNAvail.Font.Color := clWindowText; 842 lstCIRNLocations.Font.Color := clWindowText; 843 end; 844 end; 845 846 end; 847 848 procedure TfrmOptions.cbLanguageChange(Sender: TObject); //kt added 6/29/07 849 var iIndex: Integer; 850 CPRSChartINI: TINIFile; 851 begin 852 iIndex := cbLanguage.ItemIndex; 853 if iIndex<0 then iIndex := 0; // When there's no valid selection in cbLanguage we use the default language (Index=0) 854 try 855 LangManager.LanguageID := LangManager.LanguageIDs[iIndex]; 856 except 857 on EReadError do begin 858 //do nothing. Ignore error. 859 end 860 end; 861 frmFrame.Caption := TX_IN_USE + MixedCase(User.Name) + ' (' + RPCBrokerV.Server + ')'; //kt added 862 frmFrame.RenameTabs; //Resets names of tabs to correct translation //kt 863 frmFrame.mnuFileRefreshClick(self); //elh 6/23/08 864 CPRSChartINI := TINIFile.Create(ExtractFilePath(ParamStr(0)) + 'CPRSChart.ini'); // Write to INI elh 6/23/08 865 CPRSChartINI.WriteInteger('Options','Language',LangManager.LanguageID); 866 CPRSChartINI.Free; 867 868 end; 869 870 procedure TfrmOptions.Button1Click(Sender: TObject); 871 begin 872 MessageDlg('For a given language to be available, a *.lng (e.g. spanish.lng) '+ 873 'must be in the same directory as CPRSchart.exe. This *.lng file '+ 874 'may be created at any time by users by working with the CPRSchart.dklng '+ 875 'file with the free language editor found at: '+ 876 'http://www.dk-soft.org/products/dklang/',mtInformation,[mbOK],0); 877 end; 922 lbSkins.Items.Add (SRec.Name); 923 R := FindNext (SRec); 924 end; 925 lbSkins.Sorted := true; 926 lbSkins.ItemIndex := 0; 927 end; 928 929 procedure TfrmOptions.FormShow(Sender: TObject); //kt added 930 begin 931 FillSkinList; 932 end; 933 934 procedure TfrmOptions.lbSkinsKeyPress(Sender: TObject; var Key: Char); //kt added 935 begin 936 if Key = #13 then btnApplySkinClick (Self); 937 end; 938 939 procedure TfrmOptions.btnDisableSkinClick(Sender: TObject); //kt added 940 begin 941 frmFrame.InactivateSkin; 942 end; 878 943 879 944 end. -
cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas
r473 r487 17 17 OleCtrls, VERGENCECONTEXTORLib_TLB, ComObj, AppEvnts, inifiles, 18 18 //kt mod 6/29/07 ----- 19 {$IFDEF USE_SKINS} 20 ipSkinManager,//kt 9/7/08 21 {$ENDIF} 19 22 fWebTab, 20 23 DKLang, TntForms, TntStdCtrls, TntSystem, TntSysUtils; … … 369 372 public 370 373 EnduringPtSelSplitterPos: integer; 374 SkinAtStartup : boolean; //kt 9/8/08 375 CurrentSkinFile : string; //kt 9/8/08 376 {$IFDEF USE_SKINS} 377 SkinManager : TipSkinManager; 378 {$ENDIF} 379 procedure ActivateCurrentSkin; //kt 9/8/08 380 procedure InactivateSkin; //kt 9/8/08 371 381 procedure SetBADxList; 372 373 382 function PageIDToTab(PageID: Integer): Integer; 374 383 procedure ShowHideChartTabMenus(AMenuItem: TMenuItem); … … 815 824 if tempPosition > tpRight then tempPosition := tpBottom; 816 825 fOptionsOther.SetTabPosition(tempPosition); 826 {$IFDEF USE_SKINS} 827 SkinManager := TipSkinManager.Create(self); 828 {$ENDIF} 829 SkinAtStartup := CPRSChartINI.ReadBool('Skin','Load At Startup',false); 830 CurrentSkinFile := CPRSChartINI.ReadString('Skin','Default Skin','TMG_Extra\Skins\ICQ_Longhorn_v.1.2.ipz'); 831 if SkinAtStartup then ActivateCurrentSkin; 817 832 //kt -- end mod -- 818 833 … … 986 1001 CPRSChartINI.Free; //kt added 8/8/08 987 1002 end; 1003 1004 procedure TfrmFrame.ActivateCurrentSkin; 1005 begin 1006 {$IFDEF USE_SKINS} 1007 SkinManager.SkinFile := ExtractFilePath (Application.ExeName) + CurrentSkinFile; 1008 if FileExists(SkinManager.SkinFile)=false then begin 1009 SkinManager.SkinFile := ''; 1010 end; 1011 if SkinManager.SkinFile <>'' then begin 1012 try 1013 SkinManager.Active := true; 1014 except 1015 on EInvalidOperation do begin 1016 MessageDlg('Error Applying Skin. Please try another.',mtInformation,[mbOK],0); 1017 end; 1018 else begin 1019 MessageDlg('Error Applying Skin. Please try another.',mtInformation,[mbOK],0); 1020 end; 1021 end; 1022 end else begin 1023 SkinManager.Active := false; 1024 end; 1025 {$ENDIF} 1026 end; 1027 1028 procedure TfrmFrame.InactivateSkin; 1029 begin 1030 {$IFDEF USE_SKINS} 1031 SkinManager.Active := false; 1032 {$ENDIF} 1033 end; 1034 988 1035 989 1036 procedure TfrmFrame.RenameTabs; //kt added entire function;
Note:
See TracChangeset
for help on using the changeset viewer.