Ignore:
Timestamp:
Sep 7, 2008, 8:34:08 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

adding skin support (incomplete)

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  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 7/19/2008 3:07:40 PM from Type Library described below.
     15// File generated on 9/7/2008 8:16:48 PM from Type Library described below.
    1616
    1717// ************************************************************************  //
     
    2424//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
    2525// 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)
    2727// Errors:
    2828//   Hint: Parameter 'var' of IAccPropServices.SetPropValue changed to 'var_'
  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.cfg

    r469 r487  
    3737-LE"c:\program files\borland\delphi7\Projects\Bpl"
    3838-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
    4444-w-UNSAFE_TYPE
    4545-w-UNSAFE_CODE
  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dof

    r472 r487  
    9595PackageDLLOutputDir=
    9696PackageDCPOutputDir=
    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
     97SearchPath=$(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
    9898Packages=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
     99Conditionals=MSWINDOWS;USE_SKINS
    100100DebugSourceDirs=P:\Vista\tmg-cprs\dklang-package-3.01\
    101101UsePackages=0
     
    135135ProductVersion=1.0.0.0
    136136Comments=1.0.26.76
     137[HistoryLists\hlDebugSourcePath]
     138Count=1
     139Item0=P:\Vista\tmg-cprs\dklang-package-3.01\
    137140[HistoryLists\hlConditionals]
    138 Count=1
    139 Item0=MSWINDOWS
     141Count=2
     142Item0=MSWINDOWS;USE_SKINS
     143Item1=MSWINDOWS
    140144[HistoryLists\hlUnitAliases]
    141145Count=1
    142146Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
    143147[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
     148Count=15
     149Item0=$(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
     150Item1=$(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
     151Item2=$(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
     152Item3=$(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
     153Item4=$(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
     154Item5=$(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
     155Item6=$(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
     156Item7=$(DELPHI)\Lib\Debug;$(DELPHI)\Source\ToolsAPI;P:\Vista\tmg-cprs\CPRS-Chart;P:\Vista\tmg-cprs\CPRS-Chart\dcu
     157Item8=$(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
     158Item9=$(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
     159Item10=$(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
     160Item11=$(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
     161Item12=$(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
     162Item13=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib
     163Item14=C:\Vista\cprs\OR_3_215V26_69\CPRS-Lib
    159164[HistoryLists\hlUnitOutputDirectory]
    160165Count=3
  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.drc

    r472 r487  
    99*/
    1010
    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
    600677#define SysConst_SInvalidInteger 65520
    601678#define SysConst_SInvalidFloat 65521
     
    603680#define SysConst_SInvalidTime 65523
    604681#define SysConst_SInvalidDateTime 65524
    605 #define SysConst_STimeEncodeError 65525
    606 #define SysConst_SDateEncodeError 65526
    607 #define SysConst_SOutOfMemory 65527
    608 #define SysConst_SInOutError 65528
    609 #define SysConst_SFileNotFound 65529
    610 #define SysConst_SInvalidFilename 65530
    611 #define SysConst_STooManyOpenFiles 65531
    612 #define SysConst_SAccessDenied 65532
    613 #define SysConst_SEndOfFile 65533
    614 #define SysConst_SDiskFull 65534
    615 #define SysConst_SInvalidInput 65535
     682#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
    616693STRINGTABLE
    617694BEGIN
     
    626703        IdResourceStrings_RSStackENOTEMPTY,     "Directory not empty"
    627704        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"
    631705        IdResourceStrings_RSStackENOPROTOOPT,   "Bad protocol option."
    632706        IdResourceStrings_RSStackEPROTONOSUPPORT,       "Protocol not supported."
     
    677751        IdResourceStrings_RSSetSizeExceeded,    "Set Size Exceeded."
    678752        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"
    696753        QConsts_SUnableToWrite, "Unable to write bitmap"
    697754        QConsts_SUndo,  "Undo"
     
    705762        QConsts_SNoAppInLib,    "Fatal error: Cannot create application object in a shared object or library."
    706763        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."
    712769        QConsts_SMsgDlgConfirm, "Confirm"
    713770        QConsts_SUnnamed,       "Unnamed"
     
    725782        QConsts_SOpen,  "Open"
    726783        QConsts_SSave,  "Save"
    727         QConsts_SNotAnMDIForm,  "Invalid MDIParent for class %s"
     784        QConsts_SUnknownImageFormat,    "Image format not recognized"
    728785        QConsts_SMDIChildNotVisible,    "Cannot hide an MDI Child Form"
    729786        QConsts_SControlParentSetToSelf,        "A control cannot have itself as its parent"
     
    741798        QConsts_SMsgDlgWarning, "Warning"
    742799        QConsts_SMsgDlgError,   "Error"
    743         QConsts_SmkcAlt,        "Alt+"
     800        QConsts_SMsgDlgInformation,     "Information"
    744801        QConsts_SInvalidPixelFormat,    "Invalid pixel format"
    745802        QConsts_SNoCanvasHandle,        "Canvas does not allow drawing"
     
    757814        QConsts_SGroupIndexTooLow,      "GroupIndex cannot be less than a previous menu item's GroupIndex"
    758815        QConsts_SNoMDIForm,     "Cannot create form. No MDI forms are currently active"
    759         QConsts_SmkcEsc,        "Esc"
     816        QConsts_SNotAnMDIForm,  "Invalid MDIParent for class %s"
    760817        QConsts_SmkcReturn,     "Return"
    761818        QConsts_SmkcEnter,      "Enter"
     
    773830        QConsts_SmkcShift,      "Shift+"
    774831        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)"
    775931        DKLang_SDKLangErrMsg_ErrorLoadingTran,  "Loading translations failed.\r\nLine %d: %s"
    776932        DKLang_SDKLangErrMsg_InvalidConstName,  "Invalid constant name (\"%s\")"
     
    784940        OleConst_SNotLicensed,  "License information for %s not found. You cannot use this control in design mode"
    785941        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"
    791947        TeeConst_TeeMsg_CheckPointerSize,       "Pointer size must be greater than zero"
    792948        TeeConst_TeeMsg_FunctionPeriod, "Function Period should be >= 0"
     
    803959        TeeConst_TeeMsg_ValuesArrowEndY,        "EndY"
    804960        TntSystem_SBufferOverflow,      "Buffer overflow"
    805         TntSystem_SInvalidUTF7, "Invalid UTF7"
    806         DKLang_SDKLangErrMsg_DuplicatePropValueID,      "Duplicate property value translation ID (%d)"
     961        TeeConst_TeeMsg_GanttSample2,   "Prototyping"
     962        TeeConst_TeeMsg_GanttSample3,   "Development"
    807963        TeeConst_TeeMsg_GanttSample4,   "Sales"
    808964        TeeConst_TeeMsg_GanttSample5,   "Marketing"
     
    819975        TeeConst_TeeMsg_FunctionHigh,   "High"
    820976        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"
    823979        TeeConst_TeeMsg_Rotation,       "Rotation"
    824980        TeeConst_TeeMsg_PieSample1,     "Cars"
     
    835991        TeeConst_TeeMsg_GalleryGantt,   "Gantt"
    836992        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"
    839995        TeeConst_TeeMsg_3dPercent,      "3D effect percent must be between %d and %d"
    840996        TeeConst_TeeMsg_CircularSeries, "Circular Series dependences are not allowed"
     
    8511007        TeeConst_TeeMsg_GalleryBar,     "Bar"
    8521008        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 "
    8551011        ComConst_SNoCloseActiveServer2, "this application may cause those client application(s) to fail.\r\n\r\nAre you sure you want to close this application?"
    8561012        TeeConst_TeeMsg_LegendTopPos,   "Top Legend Position must be between 0 and 100 %"
     
    8671023        TeeConst_TeeMsg_AxisMinMax,     "Axis Minimum Value must be <= Maximum"
    8681024        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"
    8711027        ComStrs_sFailSetCalMinMaxRange, "Failed to set calendar min/max range"
    8721028        ComStrs_sFailsetCalSelRange,    "Failed to set calendar selected range"
     
    8831039        ComConst_SDCOMNotInstalled,     "DCOM not installed"
    8841040        ComConst_SDAXError,     "DAX Error"
    885         ComConst_SAutomationWarning,    "COM Server Warning"
    886         ComConst_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"
    8871043        ComStrs_sTabFailSet,    "Failed to set tab \"%s\" at index %d"
    8881044        ComStrs_sTabFailSetObject,      "Failed to set object at index %d"
     
    8991055        ComStrs_sDateTimeMax,   "Date exceeds maximum of %s"
    9001056        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"
    9031059        ExtCtrls_clNameInactiveCaptionText,     "Inactive Caption Text"
    9041060        ExtCtrls_clNameInfoBk,  "Info Background"
     
    9151071        ComStrs_sTabFailClear,  "Failed to clear tab control"
    9161072        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"
    9191075        ExtCtrls_clNameMedGray, "Medium Gray"
    9201076        ExtCtrls_clNameActiveBorder,    "Active Border"
     
    9311087        ExtCtrls_clNameHighlight,       "Highlight Background"
    9321088        ExtCtrls_clNameHighlightText,   "Highlight Text"
    933         ExtCtrls_clNameInactiveBorder,  "Inactive Border"
    934         ExtCtrls_clNameInactiveCaption, "Inactive Caption"
     1089        ExtCtrls_clNameMaroon,  "Maroon"
     1090        ExtCtrls_clNameGreen,   "Green"
    9351091        ExtCtrls_clNameOlive,   "Olive"
    9361092        ExtCtrls_clNameNavy,    "Navy"
     
    9471103        ExtCtrls_clNameWhite,   "White"
    9481104        ExtCtrls_clNameMoneyGreen,      "Money Green"
    949         ExtCtrls_clNameSkyBlue, "Sky Blue"
    950         ExtCtrls_clNameCream,   "Cream"
     1105        Consts_SPreviewLabel,   "Preview"
     1106        Consts_SCannotOpenAVI,  "Cannot open AVI"
    9511107        Consts_SDockedCtlNeedsName,     "Docked control must have a name"
    9521108        Consts_SDockTreeRemoveError,    "Error removing control from dock tree"
     
    9631119        HelpIntfs_hNoTopics,    "No topic-based help system installed"
    9641120        ExtCtrls_clNameBlack,   "Black"
    965         ExtCtrls_clNameMaroon,  "Maroon"
    966         ExtCtrls_clNameGreen,   "Green"
     1121        Consts_SmkcShift,       "Shift+"
     1122        Consts_SmkcCtrl,        "Ctrl+"
    9671123        Consts_SmkcAlt, "Alt+"
    9681124        Consts_srNone,  "(None)"
     
    9791135        Consts_SPictureLabel,   "Picture:"
    9801136        Consts_SPictureDesc,    " (%dx%d)"
    981         Consts_SPreviewLabel,   "Preview"
    982         Consts_SCannotOpenAVI,  "Cannot open AVI"
     1137        Consts_SMsgDlgYesToAll, "Yes to &All"
     1138        Consts_SmkcBkSp,        "BkSp"
    9831139        Consts_SmkcTab, "Tab"
    9841140        Consts_SmkcEsc, "Esc"
     
    9951151        Consts_SmkcIns, "Ins"
    9961152        Consts_SmkcDel, "Del"
    997         Consts_SmkcShift,       "Shift+"
    998         Consts_SmkcCtrl,        "Ctrl+"
     1153        Consts_SMaskErr,        "Invalid input value"
     1154        Consts_SMaskEditErr,    "Invalid input value.  Use escape key to abandon changes"
    9991155        Consts_SMsgDlgWarning,  "Warning"
    10001156        Consts_SMsgDlgError,    "Error"
     
    10111167        Consts_SMsgDlgAll,      "&All"
    10121168        Consts_SMsgDlgNoToAll,  "N&o to All"
    1013         Consts_SMsgDlgYesToAll, "Yes to &All"
    1014         Consts_SmkcBkSp,        "BkSp"
     1169        Consts_SControlParentSetToSelf, "A control cannot have itself as its parent"
     1170        Consts_SOKButton,       "OK"
    10151171        Consts_SCancelButton,   "Cancel"
    10161172        Consts_SYesButton,      "&Yes"
     
    10271183        Consts_SVIcons, "Icons"
    10281184        Consts_SVBitmaps,       "Bitmaps"
    1029         Consts_SMaskErr,        "Invalid input value"
    1030         Consts_SMaskEditErr,    "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"
    10311187        Consts_SVisibleChanged, "Cannot change Visible in OnShow or OnHide"
    10321188        Consts_SCannotShowModal,        "Cannot make a visible window modal"
     
    10431199        Consts_SGroupIndexTooLow,       "GroupIndex cannot be less than a previous menu item's GroupIndex"
    10441200        Consts_SNoMDIForm,      "Cannot create form. No MDI forms are currently active"
    1045         Consts_SControlParentSetToSelf, "A control cannot have itself as its parent"
    1046         Consts_SOKButton,       "OK"
     1201        Consts_SChangeIconSize, "Cannot change the size of an icon"
     1202        Consts_SOleGraphic,     "Invalid operation on TOleGraphic"
    10471203        Consts_SUnknownExtension,       "Unknown picture file extension (.%s)"
    10481204        Consts_SUnknownClipboardFormat, "Unsupported clipboard format"
     
    10591215        Consts_SCannotFocus,    "Cannot focus a disabled or invisible window"
    10601216        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"
    10631219        RTLConsts_STooManyDeleted,      "Too many rows or columns deleted"
    10641220        RTLConsts_SUnknownGroup,        "%s not in a class registration group"
     
    10751231        Consts_SInvalidImage,   "Invalid image"
    10761232        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"
    10791235        RTLConsts_SInvalidPropertyType, "Invalid property type: %s"
    10801236        RTLConsts_SInvalidPropertyValue,        "Invalid property value"
     
    10911247        RTLConsts_SRegSetDataFailed,    "Failed to set data for '%s'"
    10921248        RTLConsts_SResNotFound, "Resource %s not found"
    1093         RTLConsts_SSeekNotImplemented,  "%s.Seek not implemented"
    1094         RTLConsts_SSortedListError,     "Operation not allowed on sorted list"
     1249        RTLConsts_SClassNotFound,       "Class %s not found"
     1250        RTLConsts_SDuplicateClass,      "A class named %s already exists"
    10951251        RTLConsts_SDuplicateItem,       "List does not allow duplicates ($0%x)"
    10961252        RTLConsts_SDuplicateName,       "A component named %s already exists"
     
    11071263        RTLConsts_SInvalidName, "''%s'' is not a valid component name"
    11081264        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"
    11111267        SysConst_SShortDayNameSat,      "Sat"
    11121268        SysConst_SLongDayNameSun,       "Sunday"
     
    11231279        RTLConsts_SCantWriteResourceStreamError,        "Can't write to a read-only resource stream"
    11241280        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"
    11271283        SysConst_SLongMonthNameMar,     "March"
    11281284        SysConst_SLongMonthNameApr,     "April"
     
    11391295        SysConst_SShortDayNameTue,      "Tue"
    11401296        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"
    11431298        SysConst_SOSError,      "System Error.  Code: %d.\r\n%s"
    11441299        SysConst_SUnkOSError,   "A call to an OS function failed"
     1300        SysConst_SNL,   "Application is not licensed to use this feature"
    11451301        SysConst_SShortMonthNameJan,    "Jan"
    11461302        SysConst_SShortMonthNameFeb,    "Feb"
     
    11551311        SysConst_SShortMonthNameNov,    "Nov"
    11561312        SysConst_SShortMonthNameDec,    "Dec"
    1157         SysConst_SLongMonthNameJan,     "January"
    1158         SysConst_SLongMonthNameFeb,     "February"
     1313        SysConst_SVarTypeAlreadyUsedWithPrefix, "Custom variant type (%s%.4x) already used by %s"
    11591314        SysConst_SVarTypeNotUsableWithPrefix,   "Custom variant type (%s%.4x) is not usable"
    11601315        SysConst_SVarTypeTooManyCustom, "Too many custom variant types have been registered"
     
    11721327        SysConst_SAssertError,  "%s (%s, line %d)"
    11731328        SysConst_SAbstractError,        "Abstract Error"
    1174         SysConst_SModuleAccessViolation,        "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"
    11751330        SysConst_SExceptTitle,  "Application Error"
    11761331        SysConst_SInvalidFormat,        "Format '%s' invalid or incompatible with argument"
     
    11881343        SysConst_SInvalidVarOpWithHResultWithPrefix,    "Invalid variant operation (%s%.8x)\n%s"
    11891344        SysConst_SVarTypeOutOfRangeWithPrefix,  "Custom variant type (%s%.4x) is out of range"
    1190         SysConst_SVarTypeAlreadyUsedWithPrefix, "Custom variant type (%s%.4x) already used by %s"
     1345        SysConst_SInvalidInput, "Invalid numeric input"
    11911346        SysConst_SDivByZero,    "Division by zero"
    11921347        SysConst_SRangeError,   "Range check error"
     
    12041359        SysConst_SPrivilege,    "Privileged instruction"
    12051360        SysConst_SOperationAborted,     "Operation aborted"
    1206         SysConst_SException,    "Exception %s in module %s at %p.\r\n%s%s\r\n"
    12071361        SysConst_SInvalidInteger,       "'%s' is not a valid integer value"
    12081362        SysConst_SInvalidFloat, "'%s' is not a valid floating point value"
     
    12101364        SysConst_SInvalidTime,  "'%s' is not a valid time"
    12111365        SysConst_SInvalidDateTime,      "'%s' is not a valid date and time"
     1366        SysConst_SInvalidTimeStamp,     "'%d.%d' is not a valid timestamp"
    12121367        SysConst_STimeEncodeError,      "Invalid argument to time encode"
    12131368        SysConst_SDateEncodeError,      "Invalid argument to date encode"
     
    12201375        SysConst_SEndOfFile,    "Read beyond end of file"
    12211376        SysConst_SDiskFull,     "Disk full"
    1222         SysConst_SInvalidInput, "Invalid numeric input"
    12231377END
    12241378
  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dsk

    r485 r487  
    11[Closed Files]
    2 File_0=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Lib\ORNet.pas',0,1,348,1,359,0,0
    3 File_1=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\UploadImages.pas',0,1,219,36,232,0,0
    4 File_2=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\uConst.pas',0,1,47,10,52,0,0
    5 File_3=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fPtDemo.pas',0,1,1,52,82,0,0
    6 File_4=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Lib\ORCtrls.pas',0,1,2170,1,2178,0,0
    7 File_5=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fPtSel.pas',0,1,500,34,503,1,0
    8 File_6=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\CPRSChart.dpr',0,1,285,1,351,0,0
    9 File_7=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\TMG_Extra\fWebTab.pas',0,1,1,1,88,0,0
    10 File_8=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\system.pas',0,1,12601,1,12613,0,0
    11 File_9=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\Orders\uODBase.pas',0,1,37,1,52,0,0
     2File_0=SourceModule,'P:\vista\GUI-config\SkinFormU.pas',0,1,66,1,76,0,0
     3File_1=SourceModule,'P:\vista\GUI-config\MainU.pas',0,1,1958,20,1985,0,0
     4File_2=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Lib\ORNet.pas',0,1,348,1,359,0,0
     5File_3=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\UploadImages.pas',0,1,219,36,232,0,0
     6File_4=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\uConst.pas',0,1,47,10,52,0,0
     7File_5=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fPtDemo.pas',0,1,1,52,82,0,0
     8File_6=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Lib\ORCtrls.pas',0,1,2170,1,2178,0,0
     9File_7=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\fPtSel.pas',0,1,500,34,503,1,0
     10File_8=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\CPRSChart.dpr',0,1,285,1,351,0,0
     11File_9=SourceModule,'P:\Vista\CPRS-1.0.26.69\CPRS-Chart\TMG_Extra\fWebTab.pas',0,1,1,1,88,0,0
    1212
    1313[Modules]
    14 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 Module3=c:\program files\borland\delphi7\source\vcl\Controls.pas
    18 Module4=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
    19 Module5=P:\Vista\killthis.txt
     14Module0=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
     15Module1=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
     16Module2=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
     17Module3=c:\program files\borland\delphi7\source\rtl\common\classes.pas
     18Module4=c:\program files\borland\delphi7\source\vcl\Controls.pas
     19Module5=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
    2020Module6=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
    21 Module7=P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     21Module7=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    2222Count=8
    2323EditWindowCount=1
    2424TypeLibWindowCount=1
    2525
     26[P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]
     27ModuleType=SourceModule
     28FormState=1
     29FormOnTop=0
     30
    2631[P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas]
    2732ModuleType=SourceModule
     
    2934FormOnTop=0
    3035
    31 [P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]
    32 ModuleType=SourceModule
    33 FormState=1
     36[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas]
     37ModuleType=SourceModule
     38FormState=0
    3439FormOnTop=0
    3540
     
    4954FormOnTop=0
    5055
    51 [P:\Vista\killthis.txt]
    52 ModuleType=SourceModule
    53 FormState=0
    54 FormOnTop=0
    55 
    5656[c:\program files\borland\delphi7\source\vcl\StdCtrls.pas]
    5757ModuleType=SourceModule
     
    5959FormOnTop=0
    6060
    61 [P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
     61[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
    6262ModuleType=SourceModule
    6363FormState=0
     
    6868FormOnTop=0
    6969
    70 [P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb]
     70[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb]
    7171FormState=0
    7272FormOnTop=0
     
    7474[EditWindow0]
    7575ViewCount=8
    76 CurrentView=1
     76CurrentView=3
    7777View0=0
    7878View1=1
     
    102102BottomPanelSize=0
    103103BottomPanelClients=MessageView@EditWindow0
    104 BottomPanelData=00000400010000000B0000004D6573736167655669657701030000000000000255000000000000000100000000000000000000000001000000000103000000000000FFFFFFFF
     104BottomPanelData=00000400010000000B0000004D65737361676556696577010300000000000002550000000000000001000000000000000000000000010000000001030000000000000100000000010300000B0000004D65737361676556696577FFFFFFFF
    105105
    106106[View0]
    107 Module=P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     107Module=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    108108CursorX=1
    109109CursorY=1
     
    113113[View1]
    114114Module=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
    115 CursorX=13
    116 CursorY=3755
    117 TopLine=3745
     115CursorX=35
     116CursorY=830
     117TopLine=818
    118118LeftCol=1
    119119
    120120[View2]
     121Module=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
     122CursorX=26
     123CursorY=213
     124TopLine=199
     125LeftCol=1
     126
     127[View3]
    121128Module=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
    122129CursorX=1
     
    125132LeftCol=1
    126133
    127 [View3]
     134[View4]
    128135Module=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
    129136CursorX=1
    130137CursorY=2785
    131138TopLine=2771
    132 LeftCol=1
    133 
    134 [View4]
    135 Module=P:\Vista\killthis.txt
    136 CursorX=1
    137 CursorY=157
    138 TopLine=135
    139139LeftCol=1
    140140
     
    172172ClientWidth=631
    173173ClientHeight=419
    174 Module=P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb
     174Module=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb
    175175
    176176[Watches]
     
    299299SplitPos=128
    300300ArrangeBy=Name
    301 SelectedItem=Caption
     301SelectedItem=OnKeyPress
    302302ExpandedItems=Anchors
    303303HiddenCategories=Legacy
  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.~dsk

    r485 r487  
    1212
    1313[Modules]
    14 Module0=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
    15 Module1=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
    16 Module2=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
     14Module0=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
     15Module1=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
     16Module2=c:\program files\borland\delphi7\source\rtl\common\classes.pas
    1717Module3=c:\program files\borland\delphi7\source\vcl\Controls.pas
    18 Module4=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
     18Module4=c:\program files\borland\delphi7\source\vcl\ComCtrls.pas
    1919Module5=P:\Vista\killthis.txt
    20 Module6=c:\program files\borland\delphi7\source\rtl\common\classes.pas
     20Module6=c:\program files\borland\delphi7\source\vcl\StdCtrls.pas
    2121Module7=P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    2222Count=8
     
    2424TypeLibWindowCount=1
    2525
     26[P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas]
     27ModuleType=SourceModule
     28FormState=1
     29FormOnTop=0
     30
    2631[P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]
    2732ModuleType=SourceModule
     
    2934FormOnTop=0
    3035
     36[c:\program files\borland\delphi7\source\rtl\common\classes.pas]
     37ModuleType=SourceModule
     38FormState=0
     39FormOnTop=0
     40
     41[c:\program files\borland\delphi7\source\vcl\Controls.pas]
     42ModuleType=SourceModule
     43FormState=0
     44FormOnTop=0
     45
     46[c:\program files\borland\delphi7\source\vcl\ComCtrls.pas]
     47ModuleType=SourceModule
     48FormState=0
     49FormOnTop=0
     50
     51[P:\Vista\killthis.txt]
     52ModuleType=SourceModule
     53FormState=0
     54FormOnTop=0
     55
    3156[c:\program files\borland\delphi7\source\vcl\StdCtrls.pas]
    32 ModuleType=SourceModule
    33 FormState=0
    34 FormOnTop=0
    35 
    36 [c:\program files\borland\delphi7\source\vcl\ComCtrls.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 [P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas]
    47 ModuleType=SourceModule
    48 FormState=1
    49 FormOnTop=0
    50 
    51 [P:\Vista\killthis.txt]
    52 ModuleType=SourceModule
    53 FormState=0
    54 FormOnTop=0
    55 
    56 [c:\program files\borland\delphi7\source\rtl\common\classes.pas]
    5757ModuleType=SourceModule
    5858FormState=0
     
    7474[EditWindow0]
    7575ViewCount=8
    76 CurrentView=2
     76CurrentView=1
    7777View0=0
    7878View1=1
     
    102102BottomPanelSize=0
    103103BottomPanelClients=MessageView@EditWindow0
    104 BottomPanelData=00000400010000000B0000004D657373616765566965770103000000000000025500000000000000010000000000000000000000000100000000010300000B0000004D65737361676556696577FFFFFFFF
     104BottomPanelData=00000400010000000B0000004D6573736167655669657701030000000000000255000000000000000100000000000000000000000001000000000103000000000000FFFFFFFF
    105105
    106106[View0]
     
    299299SplitPos=128
    300300ArrangeBy=Name
    301 SelectedItem=OnChange
     301SelectedItem=Caption
    302302ExpandedItems=Anchors
    303303HiddenCategories=Legacy
  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart_TLB.pas

    r472 r487  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 7/19/2008 3:07:40 PM from Type Library described below.
     15// File generated on 9/7/2008 8:16:48 PM from Type Library described below.
    1616
    1717// ************************************************************************  //
    18 // Type Lib: P:\Vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb (1)
     18// Type Lib: P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb (1)
    1919// LIBID: {0A4A6086-6504-11D5-82DE-00C04F72C274}
    2020// LCID: 0
  • cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.dfm

    r473 r487  
    1616  OnCreate = FormCreate
    1717  OnDestroy = FormDestroy
     18  OnShow = FormShow
    1819  PixelsPerInch = 96
    1920  TextHeight = 13
     
    8687      Height = 323
    8788      HelpContext = 9999
    88       ActivePage = tsCoverSheet
     89      ActivePage = tsAppearance
    8990      Align = alClient
    9091      TabOrder = 0
     
    17501751        end
    17511752      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
    17521823    end
    17531824  end
    17541825  object DKLanguageController1: TDKLanguageController
    1755     Left = 80
    1756     Top = 280
     1826    Left = 328
     1827    Top = 192
    17571828    LangData = {
    17581829      0A0066726D4F7074696F6E73010200000001000000070043617074696F6E0200
    1759       0000080048656C7046696C6501640000000900706E6C426F74746F6D00000500
     1830      0000080048656C7046696C65016B0000000900706E6C426F74746F6D00000500
    17601831      62746E4F4B010100000003000000070043617074696F6E00090062746E43616E
    17611832      63656C010100000004000000070043617074696F6E00080062746E4170706C79
     
    18521923      676501020000004C000000040048696E744D000000040054657874000600496D
    18531924      61676531000005004D656D6F3101010000004F00000005004C696E6573000700
    1854       427574746F6E31010100000050000000070043617074696F6E00}
     1925      427574746F6E31010100000050000000070043617074696F6E000C0074734170
     1926      70656172616E6365010100000051000000070043617074696F6E0007004C6162
     1927      656C3132010100000052000000070043617074696F6E0007006C62536B696E73
     1928      00000F006362536B696E41745374617274757001010000005300000007004361
     1929      7074696F6E000C0062746E4D6F7265536B696E73010100000054000000070043
     1930      617074696F6E000E0062746E44697361626C65536B696E010100000055000000
     1931      070043617074696F6E000C0062746E4170706C79536B696E0101000000560000
     1932      00070043617074696F6E00}
    18551933  end
    18561934end
  • cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptions.pas

    r453 r487  
    44interface
    55
    6 uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
     6uses
     7  Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
    78  Buttons, ComCtrls, ExtCtrls, ORCtrls, OrFn, Dialogs, ORDtTmRng, fBAOptionsDiagnoses,
    89  uBAGlobals, TntStdCtrls, DKLang, jpeg, inifiles;
     
    2021
    2122 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.
    2225 }
    2326
     
    125128    Memo1: TMemo;
    126129    Button1: TButton;
     130    tsAppearance: TTabSheet;
     131    Label12: TLabel;
     132    lbSkins: TListBox;
     133    cbSkinAtStartup: TCheckBox;
     134    btnMoreSkins: TButton;
     135    btnDisableSkin: TButton;
     136    btnApplySkin: TButton;
    127137    procedure FormCreate(Sender: TObject);
    128138    procedure FormDestroy(Sender: TObject);
     
    157167    procedure rdoRDVClick(Sender: TObject);
    158168    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
    160175  private
    161176    { Private declarations }
     
    167182    FsortAscending: boolean;
    168183    FLastClickedItem: TListItem;
     184    procedure FillSkinList;  //kt
    169185    procedure Offset(var topnum: integer; topoffset: integer; var leftnum: integer; leftoffset: integer);
    170186    procedure LoadNotifications;
     
    187203implementation
    188204
    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;
    195211
    196212    //kt mod 6/29/07 -----
     213    ShellAPI, //kt 9/8/08
    197214    ORNet, //allows access to RPCBrokerV
    198215    TntForms, TntSystem, TntSysUtils;
     
    202219{$R *.DFM}
    203220
    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
    222499    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
    224503      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];
    292510        end;
    293511      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
    417528    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]);
    488531      if aRule.OriginalValue <> newonoff then
    489532      begin
    490         //***showmessage(aRule.IEN + ' ' + aRule.OriginalValue + ' ' + newonoff);
    491533        aList.Add(aRule.IEN + '^' + newonoff);
    492         aRule.OriginalValue := lvwNotifications.Items.Item[i].SubItems[0];
     534        aRule.OriginalValue := lvwOrderChecks.Items.Item[i].SubItems[0];
    493535      end;
    494536    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
    515581    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
    566624    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
    573823      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;
    578861      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
    806921    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;
    878943
    879944end.
  • cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas

    r473 r487  
    1717  OleCtrls, VERGENCECONTEXTORLib_TLB, ComObj, AppEvnts, inifiles,
    1818  //kt mod 6/29/07 -----
     19  {$IFDEF USE_SKINS}
     20  ipSkinManager,//kt 9/7/08
     21  {$ENDIF}
    1922  fWebTab,
    2023  DKLang, TntForms, TntStdCtrls, TntSystem, TntSysUtils;
     
    369372  public
    370373    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
    371381    procedure SetBADxList;
    372 
    373382    function PageIDToTab(PageID: Integer): Integer;
    374383    procedure ShowHideChartTabMenus(AMenuItem: TMenuItem);
     
    815824  if tempPosition > tpRight then tempPosition := tpBottom;
    816825  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;
    817832  //kt -- end mod --
    818833
     
    9861001  CPRSChartINI.Free;  //kt added 8/8/08
    9871002end;
     1003
     1004procedure TfrmFrame.ActivateCurrentSkin;
     1005begin
     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}
     1026end;
     1027
     1028procedure TfrmFrame.InactivateSkin;
     1029begin
     1030  {$IFDEF USE_SKINS}
     1031  SkinManager.Active := false;
     1032  {$ENDIF}
     1033end;
     1034
    9881035
    9891036procedure TfrmFrame.RenameTabs;    //kt added entire function;
Note: See TracChangeset for help on using the changeset viewer.