Changeset 492


Ignore:
Timestamp:
Sep 17, 2008, 5:34:43 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Resync

Location:
cprs/branches/GUI-config/CPRS-Lib
Files:
14 added
3 deleted
20 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/GUI-config/CPRS-Lib/Borland.dof

    r476 r492  
    11[FileVersion]
    2 Version=6.0
     2Version=7.0
    33[Compiler]
    44A=8
    … …  
    3131ShowWarnings=1
    3232UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
     33NamespacePrefix=
     34SymbolDeprecated=1
     35SymbolLibrary=1
     36SymbolPlatform=1
     37UnitLibrary=1
     38UnitPlatform=1
     39UnitDeprecated=1
     40HResultCompat=1
     41HidingMember=1
     42HiddenVirtual=1
     43Garbage=1
     44BoundsError=1
     45ZeroNilCompat=1
     46StringConstTruncated=1
     47ForLoopVarVarPar=1
     48TypedConstVarPar=1
     49AsgToTypedConst=1
     50CaseLabelRange=1
     51ForVariable=1
     52ConstructingAbstract=1
     53ComparisonFalse=1
     54ComparisonTrue=1
     55ComparingSignedUnsigned=1
     56CombiningSignedUnsigned=1
     57UnsupportedConstruct=1
     58FileOpen=1
     59FileOpenUnitSrc=1
     60BadGlobalSymbol=1
     61DuplicateConstructorDestructor=1
     62InvalidDirective=1
     63PackageNoLink=1
     64PackageThreadVar=1
     65ImplicitImport=1
     66HPPEMITIgnored=1
     67NoRetVal=1
     68UseBeforeDef=1
     69ForLoopVarUndef=1
     70UnitNameMismatch=1
     71NoCFGFileFound=1
     72MessageDirective=1
     73ImplicitVariants=1
     74UnicodeToLocale=1
     75LocaleToUnicode=1
     76ImagebaseMultiple=1
     77SuspiciousTypecast=1
     78PrivatePropAccessor=1
     79UnsafeType=1
     80UnsafeCode=1
     81UnsafeCast=1
    3382[Linker]
    3483MapFile=3

  • cprs/branches/GUI-config/CPRS-Lib/ORCtrlLib60.cfg

    r476 r492  
    3333-$M16384,1048576
    3434-K$00400000
    35 -E"c:\program files\borland\delphi7\dev\exesave"
    36 -N"..\cprs-lib\dcu"
     35-E"c:\program files\borland\delphi6\dev\exesave"
     36-N"..\Packages"
    3737-LE"..\Packages"
    3838-LN"..\Packages"

  • cprs/branches/GUI-config/CPRS-Lib/ORCtrlLib60.dof

    r476 r492  
    11[FileVersion]
    2 Version=7.0
     2Version=6.0
    33[Compiler]
    44A=8
    … …  
    3131ShowWarnings=1
    3232UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
    33 NamespacePrefix=
    34 SymbolDeprecated=1
    35 SymbolLibrary=1
    36 SymbolPlatform=1
    37 UnitLibrary=1
    38 UnitPlatform=1
    39 UnitDeprecated=1
    40 HResultCompat=1
    41 HidingMember=1
    42 HiddenVirtual=1
    43 Garbage=1
    44 BoundsError=1
    45 ZeroNilCompat=1
    46 StringConstTruncated=1
    47 ForLoopVarVarPar=1
    48 TypedConstVarPar=1
    49 AsgToTypedConst=1
    50 CaseLabelRange=1
    51 ForVariable=1
    52 ConstructingAbstract=1
    53 ComparisonFalse=1
    54 ComparisonTrue=1
    55 ComparingSignedUnsigned=1
    56 CombiningSignedUnsigned=1
    57 UnsupportedConstruct=1
    58 FileOpen=1
    59 FileOpenUnitSrc=1
    60 BadGlobalSymbol=1
    61 DuplicateConstructorDestructor=1
    62 InvalidDirective=1
    63 PackageNoLink=1
    64 PackageThreadVar=1
    65 ImplicitImport=1
    66 HPPEMITIgnored=1
    67 NoRetVal=1
    68 UseBeforeDef=1
    69 ForLoopVarUndef=1
    70 UnitNameMismatch=1
    71 NoCFGFileFound=1
    72 MessageDirective=1
    73 ImplicitVariants=1
    74 UnicodeToLocale=1
    75 LocaleToUnicode=1
    76 ImagebaseMultiple=1
    77 SuspiciousTypecast=1
    78 PrivatePropAccessor=1
    79 UnsafeType=1
    80 UnsafeCode=1
    81 UnsafeCast=1
    8233[Linker]
    8334MapFile=3
    … …  
    9243[Directories]
    9344OutputDir=$(DELPHI)\dev\exesave
    94 UnitOutputDir=..\cprs-lib\dcu
     45UnitOutputDir=..\Packages
    9546PackageDLLOutputDir=..\Packages
    9647PackageDCPOutputDir=..\Packages
    … …  
    9849Packages=Vcl40;Vclx40;Vcldb40;vcldbx40;VclSmp40;Qrpt40;TeeUI40;teedb40;tee40;ibevnt40;nmfast40;VistABroker
    9950Conditionals=
    100 DebugSourceDirs=
     51DebugSourceDirs=..\Packages
    10152UsePackages=0
    10253[Parameters]
    … …  
    13586ProductVersion=1.0.0.0
    13687Comments=
     88[Excluded Packages]
     89C:\Program Files\Borland\Delphi6\Projects\Bpl\SharedRPCBroker_D60.bpl=VistA SharedBroker Components
     90[HistoryLists\hlDebugSourcePath]
     91Count=1
     92Item0=..\Packages
    13793[HistoryLists\hlUnitAliases]
    13894Count=1
    … …  
    151107Item9=$(DELPHI)\Projects\Current\CPRS-Lib
    152108[HistoryLists\hlUnitOutputDirectory]
    153 Count=9
    154 Item0=..\cprs-lib\dcu
    155 Item1=..\cprs-lib
    156 Item2=d:\vista\main\cprs-lib\DCU
    157 Item3=d:\vista\main\cprs-lib\DCUSave
    158 Item4=d:\vista\main\cprs-chart\dcu
    159 Item5=\Dev\DCUSave
    160 Item6=C:\Dev\DCUSave
    161 Item7=\Projects\DCUSave
    162 Item8=$(DELPHI)\Projects\DCUSave
     109Count=10
     110Item0=..\Packages
     111Item1=..\cprs-lib\dcu
     112Item2=..\cprs-lib
     113Item3=d:\vista\main\cprs-lib\DCU
     114Item4=d:\vista\main\cprs-lib\DCUSave
     115Item5=d:\vista\main\cprs-chart\dcu
     116Item6=\Dev\DCUSave
     117Item7=C:\Dev\DCUSave
     118Item8=\Projects\DCUSave
     119Item9=$(DELPHI)\Projects\DCUSave
    163120[HistoryLists\hlOutputDirectorry]
    164121Count=2

  • cprs/branches/GUI-config/CPRS-Lib/ORCtrlLib60.dpk

    r476 r492  
    22
    33{$R *.res}
     4{$R '..\CPRS-Chart\Accessibility_TLB.dcr'}
    45{$R 'ORCtrlsDsgn.dcr'}
    5 {$R '..\CPRS-Chart\Accessibility_TLB.dcr'}
    66{$ALIGN 8}
    77{$ASSERTIONS ON}
    … …  
    3232  vcl,
    3333  vclx,
    34   designide,
    35   rtl;
     34  designide;
    3635
    3736contains
     37  uAccessAPI in 'uAccessAPI.pas',
     38  Accessibility_TLB in '..\CPRS-Chart\Accessibility_TLB.pas',
    3839  ORCtrls in 'ORCtrls.pas',
    39   ORCtrlsDsgn in 'ORCtrlsDsgn.pas',
    40   uAccessAPI in 'uAccessAPI.pas',
    41   Accessibility_TLB in '..\CPRS-Chart\Accessibility_TLB.pas';
     40  ORCtrlsDsgn in 'ORCtrlsDsgn.pas';
    4241
    4342end.

  • cprs/branches/GUI-config/CPRS-Lib/ORCtrlLib60.dsk

    r476 r492  
    11[Closed Files]
    2 File_0=SourceModule,'C:\Vista\CPRS\OR_3_187V23\CPRS-Chart\rReminders.pas',0,1,305,1,305,0,0
    3 File_1=SourceModule,'C:\Vista\CPRS\OR_3_187V23\CPRS-Chart\Options\fOptionsPatientSelection.pas',0,1,169,28,172,1,0
    4 File_2=SourceModule,'C:\Vista\CPRS\OR_3_187V23\CPRS-Chart\rCore.pas',0,1,333,1,335,0,0
    5 File_3=SourceModule,'C:\Vista\CPRS\OR_3_187V23\CPRS-Chart\fNoteProps.pas',0,1,1,1,1,1,1
    6 File_4=SourceModule,'C:\Vista\CPRS\OR_3_187V23\CPRS-Chart\fDCSummProps.pas',0,1,1,1,1,1,1
    7 File_5=SourceModule,'C:\Vista\CPRS\OR_3_187V23\CPRS-Chart\fAddlSigners.pas',0,1,1,1,1,1,1
    8 File_6=SourceModule,'C:\Vista\CPRS\OR_3_187V23\CPRS-Lib\ORClasses.pas',0,1,1,1,1,0,0
    9 File_7=SourceModule,'C:\Vista\CPRS\OR_3_187V23\CPRS-Lib\ORCtrlsDsgn.pas',0,1,1,1,1,0,0
    10 File_8=SourceModule,'C:\Vista\CPRS\OR_3_187V23\CPRS-Lib\ORSystem.pas',0,1,1,1,1,0,0
    11 File_9=SourceModule,'C:\Vista\CPRS\OR_3_187V23\CPRS-Lib\ORFn.pas',0,1,1,1,1,0,0
     2File_0=SourceModule,'D:\vista\cprs\OR_3_195V25\CPRS-Lib\uStaticText.pas',0,1,1,1,1,0,0
     3File_1=SourceModule,'D:\vista\cprs\OR_3_195V25\CPRS-Chart\unit2.pas',0,1,1,1,11,0,0
     4File_2=SourceModule,'D:\vista\cprs\main\CPRS-Chart\uSignItems.pas',0,1,1044,54,1060,0,0
     5File_3=SourceModule,'D:\vista\cprs\OR_3_215V26\CPRS-Chart\uSignItems.pas',0,1,1044,54,1060,0,0
     6File_4=SourceModule,'D:\vista\cprs\OR_3_215V26\CPRS-Chart\fReview.pas',0,1,1833,42,1841,1,0
     7File_5=SourceModule,'D:\vista\cprs\main\CPRS-Chart\fReview.pas',0,1,1830,44,1857,1,0
     8File_6=SourceModule,'D:\vista\cprs\OR_3_195V25\CPRS-Lib\ORCtrls.pas',0,1,1,63,30,0,0
     9File_7=SourceModule,'C:\PROGRA~1\Vista\BDK32_~1\Source\wsockc.pas',0,1,1455,1,1477,0,0
     10File_8=SourceModule,'D:\vista\cprs\OR_3_195V25\CPRS-Chart\VERGENCECONTEXTORLib_TLB.pas',0,1,564,1,586,0,0
    1211
    1312[Modules]
    14 Module0=C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\Accessibility_TLB.pas
    15 Module1=c:\bcb\projects\personal projects\vista\cprs-1.0.23.15\cprs-lib\ORCtrlLib60.dpk
    16 Module2=C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Lib\ORCtrls.pas
    17 Module3=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\wsockc.pas
    18 Module4=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Rpcberr.pas
    19 Module5=C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\fFrame.pas
    20 Module6=C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\CPRSChart.dpr
    21 Module7=C:\BCB\Projects\Personal Projects\Vista\CPRS-Chart_Try #1\CPRSChart.dpr
    22 Module8=C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\uComServ.pas
    23 Module9=C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\uAccessibleListBox.pas
    24 Module10=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fSgnonDlg.pas
    25 Module11=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\SgnonCnf.pas
    26 Module12=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fESSOConf.pas
    27 Module13=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Loginfrm.pas
    28 Module14=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\AddServer.pas
    29 Module15=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Rpcconf1.pas
    30 Module16=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Rpcnet.pas
    31 Module17=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fConfirmMapping.pas
    32 Module18=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fRPCBErrMsg.pas
    33 Module19=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\VCEdit.pas
    34 Module20=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\SelDiv.pas
    35 Module21=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\RpcSLogin.pas
    36 Module22=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fDebugInfo.pas
    37 Module23=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fRPCBTimer.pas
    38 Module24=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\xuesap_TLB.pas
    39 Module25=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\APi.pas
    40 Module26=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\XWBRich20.pas
    41 Module27=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\frmSignonMessage.pas
    42 Module28=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\TRpcb.pas
    43 Module29=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Hash.pas
    44 Module30=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Mfunstr.pas
    45 Module31=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Xwbut1.pas
    46 Module32=C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Lib\ORNet.pas
    47 Count=33
    48 EditWindowCount=1
    49 PackageWindowCount=2
    50 TypeLibWindowCount=1
    51 
    52 [C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\Accessibility_TLB.pas]
    53 ModuleType=SourceModule
     13Count=0
     14EditWindowCount=0
     15PackageWindowCount=1
     16
     17[P:\Vista\CPRS-1.0.26.69\CPRS-Lib\ORCtrlLib60.dpk]
     18FormState=0
     19FormOnTop=1
     20
     21[C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
    5422FormState=0
    5523FormOnTop=0
    5624
    57 [c:\bcb\projects\personal projects\vista\cprs-1.0.23.15\cprs-lib\ORCtrlLib60.dpk]
    58 ModuleType=PackageEditModule
    59 FormState=0
    60 FormOnTop=0
    61 
    62 [C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Lib\ORCtrls.pas]
    63 ModuleType=SourceModule
    64 FormState=0
    65 FormOnTop=0
    66 
    67 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\wsockc.pas]
    68 ModuleType=SourceModule
    69 FormState=0
    70 FormOnTop=0
    71 
    72 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Rpcberr.pas]
    73 ModuleType=SourceModule
    74 FormState=0
    75 FormOnTop=0
    76 
    77 [C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\fFrame.pas]
    78 ModuleType=SourceModule
    79 FormState=0
    80 FormOnTop=0
    81 
    82 [C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\CPRSChart.dpr]
    83 ModuleType=SourceModule
    84 FormState=0
    85 FormOnTop=0
    86 
    87 [C:\BCB\Projects\Personal Projects\Vista\CPRS-Chart_Try #1\CPRSChart.dpr]
    88 ModuleType=SourceModule
    89 FormState=0
    90 FormOnTop=0
    91 
    92 [C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\uComServ.pas]
    93 ModuleType=SourceModule
    94 FormState=0
    95 FormOnTop=0
    96 
    97 [C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\uAccessibleListBox.pas]
    98 ModuleType=SourceModule
    99 FormState=0
    100 FormOnTop=0
    101 
    102 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fSgnonDlg.pas]
    103 ModuleType=SourceModule
    104 FormState=0
    105 FormOnTop=0
    106 
    107 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\SgnonCnf.pas]
    108 ModuleType=SourceModule
    109 FormState=0
    110 FormOnTop=0
    111 
    112 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fESSOConf.pas]
    113 ModuleType=SourceModule
    114 FormState=0
    115 FormOnTop=0
    116 
    117 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Loginfrm.pas]
    118 ModuleType=SourceModule
    119 FormState=0
    120 FormOnTop=0
    121 
    122 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\AddServer.pas]
    123 ModuleType=SourceModule
    124 FormState=0
    125 FormOnTop=0
    126 
    127 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Rpcconf1.pas]
    128 ModuleType=SourceModule
    129 FormState=0
    130 FormOnTop=0
    131 
    132 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Rpcnet.pas]
    133 ModuleType=SourceModule
    134 FormState=0
    135 FormOnTop=0
    136 
    137 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fConfirmMapping.pas]
    138 ModuleType=SourceModule
    139 FormState=0
    140 FormOnTop=0
    141 
    142 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fRPCBErrMsg.pas]
    143 ModuleType=SourceModule
    144 FormState=0
    145 FormOnTop=0
    146 
    147 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\VCEdit.pas]
    148 ModuleType=SourceModule
    149 FormState=0
    150 FormOnTop=0
    151 
    152 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\SelDiv.pas]
    153 ModuleType=SourceModule
    154 FormState=0
    155 FormOnTop=0
    156 
    157 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\RpcSLogin.pas]
    158 ModuleType=SourceModule
    159 FormState=0
    160 FormOnTop=0
    161 
    162 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fDebugInfo.pas]
    163 ModuleType=SourceModule
    164 FormState=0
    165 FormOnTop=0
    166 
    167 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fRPCBTimer.pas]
    168 ModuleType=SourceModule
    169 FormState=0
    170 FormOnTop=0
    171 
    172 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\xuesap_TLB.pas]
    173 ModuleType=SourceModule
    174 FormState=0
    175 FormOnTop=0
    176 
    177 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\APi.pas]
    178 ModuleType=SourceModule
    179 FormState=0
    180 FormOnTop=0
    181 
    182 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\XWBRich20.pas]
    183 ModuleType=SourceModule
    184 FormState=0
    185 FormOnTop=0
    186 
    187 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\frmSignonMessage.pas]
    188 ModuleType=SourceModule
    189 FormState=0
    190 FormOnTop=0
    191 
    192 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\TRpcb.pas]
    193 ModuleType=SourceModule
    194 FormState=0
    195 FormOnTop=0
    196 
    197 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Hash.pas]
    198 ModuleType=SourceModule
    199 FormState=0
    200 FormOnTop=0
    201 
    202 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Mfunstr.pas]
    203 ModuleType=SourceModule
    204 FormState=0
    205 FormOnTop=0
    206 
    207 [C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Xwbut1.pas]
    208 ModuleType=SourceModule
    209 FormState=0
    210 FormOnTop=0
    211 
    212 [C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Lib\ORNet.pas]
    213 ModuleType=SourceModule
    214 FormState=0
    215 FormOnTop=0
    216 
    217 [c:\bcb\delphi\Lib\dclusr.dpk]
    218 FormState=0
    219 FormOnTop=1
    220 
    221 [C:\BCB\Delphi\Projects\ProjectGroup1.bpg]
    222 FormState=0
    223 FormOnTop=0
    224 
    225 [C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\CPRSChart.tlb]
    226 FormState=0
    227 FormOnTop=0
    228 
    229 [EditWindow0]
    230 ViewCount=33
    231 CurrentView=3
    232 View0=0
    233 View1=1
    234 View2=2
    235 View3=3
    236 View4=4
    237 View5=5
    238 View6=6
    239 View7=7
    240 View8=8
    241 View9=9
    242 View10=10
    243 View11=11
    244 View12=12
    245 View13=13
    246 View14=14
    247 View15=15
    248 View16=16
    249 View17=17
    250 View18=18
    251 View19=19
    252 View20=20
    253 View21=21
    254 View22=22
    255 View23=23
    256 View24=24
    257 View25=25
    258 View26=26
    259 View27=27
    260 View28=28
    261 View29=29
    262 View30=30
    263 View31=31
    264 View32=32
    265 CodeExplorer=CodeExplorer@EditWindow0
    266 MessageView=MessageView@EditWindow0
    267 Create=1
    268 Visible=1
    269 State=0
    270 Left=133
    271 Top=123
    272 Width=890
    273 Height=603
    274 MaxLeft=-4
    275 MaxTop=-4
    276 ClientWidth=882
    277 ClientHeight=569
    278 LeftPanelSize=0
    279 LeftPanelClients=CodeExplorer@EditWindow0
    280 LeftPanelData=00000400010000000C000000436F64654578706C6F726572000000000000000000000000000000000001000000000000000000000000FFFFFFFF
    281 RightPanelSize=0
    282 BottomPanelSize=190
    283 BottomPanelClients=MessageView@EditWindow0
    284 BottomPanelData=0000040000000000720300000000000002BE00000000000000010000000000000000000000000100000000180200000000000001000000001802000000000000010000000018020000000000000100000000180200000000000001000000002402000000000000010000000024020000000000000100000000240200000000000001000000002402000000000000010000000024020000000000000100000000240200000000000001000000002402000000000000010000000024020000000000000100000000240200000000000001000000002402000000000000010000000024020000000000000100000000720300000B0000004D65737361676556696577FFFFFFFF
    285 
    286 [View0]
    287 Module=C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\CPRSChart.dpr
    288 CursorX=3
    289 CursorY=337
    290 TopLine=322
    291 LeftCol=1
    292 
    293 [View1]
    294 Module=C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\fFrame.pas
    295 CursorX=1
    296 CursorY=551
    297 TopLine=539
    298 LeftCol=1
    299 
    300 [View2]
    301 Module=C:\BCB\Projects\Personal Projects\Vista\CPRS-Chart_Try #1\CPRSChart.dpr
    302 CursorX=9
    303 CursorY=300
    304 TopLine=291
    305 LeftCol=1
    306 
    307 [View3]
    308 Module=C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\Accessibility_TLB.pas
    309 CursorX=1
    310 CursorY=287
    311 TopLine=278
    312 LeftCol=1
    313 
    314 [View4]
    315 Module=C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Lib\ORNet.pas
    316 CursorX=57
    317 CursorY=5
    318 TopLine=1
    319 LeftCol=1
    320 
    321 [View5]
    322 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\TRpcb.pas
    323 CursorX=3
    324 CursorY=333
    325 TopLine=320
    326 LeftCol=1
    327 
    328 [View6]
    329 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Loginfrm.pas
    330 CursorX=3
    331 CursorY=112
    332 TopLine=98
    333 LeftCol=1
    334 
    335 [View7]
    336 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fESSOConf.pas
    337 CursorX=1
    338 CursorY=1
    339 TopLine=1
    340 LeftCol=1
    341 
    342 [View8]
    343 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Rpcconf1.pas
    344 CursorX=6
    345 CursorY=64
    346 TopLine=51
    347 LeftCol=1
    348 
    349 [View9]
    350 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\AddServer.pas
    351 CursorX=1
    352 CursorY=1
    353 TopLine=1
    354 LeftCol=1
    355 
    356 [View10]
    357 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Rpcnet.pas
    358 CursorX=1
    359 CursorY=1
    360 TopLine=1
    361 LeftCol=1
    362 
    363 [View11]
    364 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fConfirmMapping.pas
    365 CursorX=1
    366 CursorY=1
    367 TopLine=1
    368 LeftCol=1
    369 
    370 [View12]
    371 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fRPCBErrMsg.pas
    372 CursorX=1
    373 CursorY=1
    374 TopLine=1
    375 LeftCol=1
    376 
    377 [View13]
    378 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\VCEdit.pas
    379 CursorX=1
    380 CursorY=1
    381 TopLine=1
    382 LeftCol=1
    383 
    384 [View14]
    385 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\RpcSLogin.pas
    386 CursorX=33
    387 CursorY=42
    388 TopLine=29
    389 LeftCol=1
    390 
    391 [View15]
    392 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\SelDiv.pas
    393 CursorX=1
    394 CursorY=1
    395 TopLine=1
    396 LeftCol=1
    397 
    398 [View16]
    399 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fRPCBTimer.pas
    400 CursorX=1
    401 CursorY=1
    402 TopLine=1
    403 LeftCol=1
    404 
    405 [View17]
    406 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\APi.pas
    407 CursorX=3
    408 CursorY=18
    409 TopLine=1
    410 LeftCol=1
    411 
    412 [View18]
    413 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\xuesap_TLB.pas
    414 CursorX=1
    415 CursorY=1
    416 TopLine=1
    417 LeftCol=1
    418 
    419 [View19]
    420 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\frmSignonMessage.pas
    421 CursorX=32
    422 CursorY=16
    423 TopLine=1
    424 LeftCol=1
    425 
    426 [View20]
    427 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\XWBRich20.pas
    428 CursorX=1
    429 CursorY=1
    430 TopLine=1
    431 LeftCol=1
    432 
    433 [View21]
    434 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\SgnonCnf.pas
    435 CursorX=16
    436 CursorY=162
    437 TopLine=149
    438 LeftCol=1
    439 
    440 [View22]
    441 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fSgnonDlg.pas
    442 CursorX=1
    443 CursorY=1
    444 TopLine=1
    445 LeftCol=1
    446 
    447 [View23]
    448 Module=C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\uAccessibleListBox.pas
    449 CursorX=6
    450 CursorY=57
    451 TopLine=44
    452 LeftCol=1
    453 
    454 [View24]
    455 Module=C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\uComServ.pas
    456 CursorX=1
    457 CursorY=1
    458 TopLine=1
    459 LeftCol=1
    460 
    461 [View25]
    462 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Hash.pas
    463 CursorX=1
    464 CursorY=1
    465 TopLine=1
    466 LeftCol=1
    467 
    468 [View26]
    469 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Mfunstr.pas
    470 CursorX=1
    471 CursorY=1
    472 TopLine=1
    473 LeftCol=1
    474 
    475 [View27]
    476 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Xwbut1.pas
    477 CursorX=1
    478 CursorY=1
    479 TopLine=1
    480 LeftCol=1
    481 
    482 [View28]
    483 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\wsockc.pas
    484 CursorX=1
    485 CursorY=701
    486 TopLine=692
    487 LeftCol=1
    488 
    489 [View29]
    490 Module=C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Lib\ORCtrls.pas
    491 CursorX=1
    492 CursorY=1
    493 TopLine=1
    494 LeftCol=1
    495 
    496 [View30]
    497 Module=c:\bcb\projects\personal projects\vista\cprs-1.0.23.15\cprs-lib\ORCtrlLib60.dpk
    498 CursorX=61
    499 CursorY=40
    500 TopLine=31
    501 LeftCol=1
    502 
    503 [View31]
    504 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\fDebugInfo.pas
    505 CursorX=1
    506 CursorY=1
    507 TopLine=1
    508 LeftCol=1
    509 
    510 [View32]
    511 Module=C:\BCB\Projects\Personal Projects\Vista\Broker\Source\Rpcberr.pas
    512 CursorX=1
    513 CursorY=183
    514 TopLine=174
    515 LeftCol=1
    516 
    51725[PackageWindow0]
    51826Create=1
    51927Visible=0
    52028State=0
    521 Left=260
    522 Top=267
     29Left=410
     30Top=256
    52331Width=368
    52432Height=244
    … …  
    53543SectionWidth0=150
    53644SectionWidth1=210
    537 Module=c:\bcb\projects\personal projects\vista\cprs-1.0.23.15\cprs-lib\ORCtrlLib60.dpk
    538 
    539 [PackageWindow1]
    540 Create=1
    541 Visible=1
    542 State=0
    543 Left=252
    544 Top=241
    545 Width=368
    546 Height=244
    547 MaxLeft=-1
    548 MaxTop=-1
    549 ClientWidth=360
    550 ClientHeight=218
    551 TBDockHeight=244
    552 LRDockWidth=368
    553 Dockable=1
    554 StatusBar=0
    555 TextLabels=1
    556 Toolbar=1
    557 SectionWidth0=150
    558 SectionWidth1=210
    559 Module=c:\bcb\delphi\Lib\dclusr.dpk
    560 
    561 [TypeLibEditWindow0]
    562 Create=1
    563 Visible=0
    564 State=0
    565 Left=200
    566 Top=114
    567 Width=639
    568 Height=453
    569 MaxLeft=-1
    570 MaxTop=-1
    571 ClientWidth=631
    572 ClientHeight=419
    573 Module=C:\BCB\Projects\Personal Projects\Vista\CPRS-1.0.23.15\CPRS-Chart\CPRSChart.tlb
     45Module=P:\Vista\CPRS-1.0.26.69\CPRS-Lib\ORCtrlLib60.dpk
    57446
    57547[Watches]
    … …  
    58254Visible=0
    58355State=0
    584 Left=103
    585 Top=393
    586 Width=392
    587 Height=112
    588 MaxLeft=-1
    589 MaxTop=-1
    590 ClientWidth=384
    591 ClientHeight=86
    592 TBDockHeight=83
     56Left=5
     57Top=1
     58Width=803
     59Height=104
     60MaxLeft=-1
     61MaxTop=-1
     62ClientWidth=795
     63ClientHeight=78
     64TBDockHeight=149
    59365LRDockWidth=421
    59466Dockable=1
    59567
    59668[Breakpoints]
    597 Count=0
     69Count=6
     70Breakpoint0='D:\vista\cprs\OR_3_195V25\CPRS-Chart\uSignItems.pas',130,'',0,1,'',1,0,0,'',1,'','',''
     71Breakpoint1='D:\vista\cprs\OR_3_195V25\CPRS-Chart\BA\fBAOptionsDiagnoses.pas',410,'',0,1,'',1,0,0,'',1,'','',''
     72Breakpoint2='D:\vista\cprs\OR_3_195V25\CPRS-Chart\BA\fBAOptionsDiagnoses.pas',414,'',0,1,'',1,0,0,'',1,'','',''
     73Breakpoint3='D:\vista\cprs\OR_3_195V25\CPRS-Chart\uSignItems.pas',275,'',0,1,'',1,0,0,'',1,'','',''
     74Breakpoint4='D:\vista\cprs\OR_3_195V25\CPRS-Chart\Orders\fOrdersSign.pas',1099,'',0,1,'',1,0,0,'',1,'','',''
     75Breakpoint5='D:\vista\cprs\OR_3_195V25\CPRS-Chart\uSignItems.pas',644,'',0,1,'',1,0,0,'',1,'','',''
    59876
    59977[AddressBreakpoints]
    … …  
    61795Visible=1
    61896State=0
    619 Left=215
    620 Top=123
    621 Width=631
    622 Height=614
    623 MaxLeft=-1
    624 MaxTop=-1
    625 ClientWidth=623
    626 ClientHeight=588
    627 TBDockHeight=408
    628 LRDockWidth=137
     97Left=0
     98Top=0
     99Width=287
     100Height=577
     101MaxLeft=-1
     102MaxTop=-1
     103ClientWidth=287
     104ClientHeight=577
     105TBDockHeight=571
     106LRDockWidth=255
    629107Dockable=1
    630108
    631109[Components]
    632 Left=308
    633 Top=167
     110Left=420
     111Top=251
    634112Width=183
    635113Height=266
    … …  
    649127Visible=0
    650128State=0
    651 Left=133
    652 Top=123
    653 Width=533
    654 Height=353
    655 MaxLeft=-1
    656 MaxTop=-1
    657 ClientWidth=525
    658 ClientHeight=319
    659 DumpPane=79
    660 DisassemblyPane=187
     129Left=159
     130Top=109
     131Width=819
     132Height=551
     133MaxLeft=-1
     134MaxTop=-1
     135ClientWidth=811
     136ClientHeight=517
     137DumpPane=212
     138DisassemblyPane=377
    661139RegisterPane=231
    662 FlagPane=64
     140FlagPane=120
    663141
    664142[AlignmentPalette]
    … …  
    667145State=0
    668146Left=200
    669 Top=125
     147Top=107
    670148Width=156
    671149Height=84
    … …  
    680158State=0
    681159Left=0
    682 Top=123
    683 Width=214
    684 Height=449
    685 MaxLeft=-1
    686 MaxTop=-1
    687 ClientWidth=206
    688 ClientHeight=423
    689 TBDockHeight=492
    690 LRDockWidth=190
    691 Dockable=1
    692 SplitPos=89
     160Top=0
     161Width=287
     162Height=577
     163MaxLeft=-1
     164MaxTop=-1
     165ClientWidth=287
     166ClientHeight=577
     167TBDockHeight=571
     168LRDockWidth=255
     169Dockable=1
     170SplitPos=131
    693171ArrangeBy=Name
    694172SelectedItem=
    695 ExpandedItems=Menu
    696 HiddenCategories=Legacy
     173ExpandedItems=Brush,Font.Style
     174HiddenCategories=
    697175
    698176[BreakpointWindow]
    699177Create=1
    700 Visible=0
    701 State=0
    702 Left=31
    703 Top=201
    704 Width=737
    705 Height=197
    706 MaxLeft=-1
    707 MaxTop=-1
    708 ClientWidth=729
    709 ClientHeight=171
     178Visible=1
     179State=0
     180Left=0
     181Top=0
     182Width=287
     183Height=577
     184MaxLeft=-1
     185MaxTop=-1
     186ClientWidth=287
     187ClientHeight=577
    710188TBDockHeight=197
    711189LRDockWidth=737
    712190Dockable=1
    713 Column0Width=100
     191Column0Width=151
    714192Column1Width=75
    715193Column2Width=200
    … …  
    722200Visible=0
    723201State=0
    724 Left=253
    725 Top=219
     202Left=365
     203Top=303
    726204Width=294
    727205Height=161
    … …  
    734212Dockable=1
    735213
     214[ThreadStatusWindow]
     215Create=1
     216Visible=0
     217State=0
     218Left=0
     219Top=0
     220Width=1024
     221Height=768
     222MaxLeft=-1
     223MaxTop=-1
     224ClientWidth=1016
     225ClientHeight=742
     226TBDockHeight=152
     227LRDockWidth=624
     228Dockable=1
     229Column0Width=145
     230Column1Width=100
     231Column2Width=115
     232Column3Width=250
     233
    736234[ObjectTree]
    737235Create=1
    738236Visible=0
    739237State=0
    740 Left=192
    741 Top=124
    742 Width=183
    743 Height=435
    744 MaxLeft=-1
    745 MaxTop=-1
    746 ClientWidth=175
    747 ClientHeight=409
    748 TBDockHeight=393
     238Left=0
     239Top=105
     240Width=190
     241Height=264
     242MaxLeft=-1
     243MaxTop=-1
     244ClientWidth=182
     245ClientHeight=238
     246TBDockHeight=264
    749247LRDockWidth=190
    750248Dockable=1
    751249
    752 [CodeExplorer@EditWindow0]
    753 Create=1
    754 Visible=0
    755 State=0
    756 Left=0
    757 Top=12
    758 Width=140
    759 Height=535
    760 MaxLeft=-1
    761 MaxTop=-1
    762 ClientWidth=140
    763 ClientHeight=535
    764 TBDockHeight=305
    765 LRDockWidth=140
    766 Dockable=1
    767 
    768 [MessageView@EditWindow0]
    769 Create=1
    770 Visible=1
    771 State=0
    772 Left=12
    773 Top=0
    774 Width=870
    775 Height=190
    776 MaxLeft=-1
    777 MaxTop=-1
    778 ClientWidth=870
    779 ClientHeight=190
    780 TBDockHeight=190
    781 LRDockWidth=443
     250[DebugLogView]
     251Create=1
     252Visible=0
     253State=0
     254Left=0
     255Top=0
     256Width=798
     257Height=712
     258MaxLeft=-1
     259MaxTop=-1
     260ClientWidth=790
     261ClientHeight=686
     262TBDockHeight=291
     263LRDockWidth=417
     264Dockable=1
     265
     266[LocalVarsWindow]
     267Create=1
     268Visible=0
     269State=0
     270Left=441
     271Top=447
     272Width=421
     273Height=192
     274MaxLeft=-1
     275MaxTop=-1
     276ClientWidth=413
     277ClientHeight=166
     278TBDockHeight=192
     279LRDockWidth=421
     280Dockable=1
     281
     282[ToDo List]
     283Create=1
     284Visible=0
     285State=0
     286Left=107
     287Top=48
     288Width=866
     289Height=649
     290MaxLeft=-1
     291MaxTop=-1
     292ClientWidth=858
     293ClientHeight=623
     294TBDockHeight=250
     295LRDockWidth=713
     296Dockable=1
     297Column0Width=507
     298Column1Width=30
     299Column2Width=100
     300Column3Width=70
     301Column4Width=70
     302SortOrder=6
     303ShowHints=1
     304ShowChecked=1
     305
     306[FPUWindow]
     307Create=1
     308Visible=0
     309State=0
     310Left=306
     311Top=280
     312Width=457
     313Height=250
     314MaxLeft=-1
     315MaxTop=-1
     316ClientWidth=449
     317ClientHeight=216
     318RegisterPane=121
     319FlagPane=59
     320
     321[ModuleWindow]
     322Create=1
     323Visible=0
     324State=0
     325Left=18
     326Top=9
     327Width=913
     328Height=719
     329MaxLeft=-1
     330MaxTop=-1
     331ClientWidth=905
     332ClientHeight=693
     333TBDockHeight=355
     334LRDockWidth=638
     335Dockable=1
     336Column0Width=125
     337Column1Width=100
     338Column2Width=356
     339EntryPointPane=447
     340CompUnitPane=530
     341
     342[MessageHintFrm]
     343Create=1
     344Visible=0
     345State=0
     346Left=481
     347Top=423
     348Width=383
     349Height=195
     350MaxLeft=-1
     351MaxTop=-1
     352ClientWidth=375
     353ClientHeight=169
     354TBDockHeight=195
     355LRDockWidth=383
    782356Dockable=1
    783357
    784358[DockHosts]
    785 DockHostCount=0
    786 
     359DockHostCount=1
     360
     361[DockSite0]
     362DockSiteType=1
     363Create=1
     364Visible=1
     365State=0
     366Left=1
     367Top=104
     368Width=303
     369Height=632
     370MaxLeft=-1
     371MaxTop=-1
     372ClientWidth=295
     373ClientHeight=606
     374TBDockHeight=659
     375LRDockWidth=263
     376Dockable=1
     377TabPosition=0
     378ActiveTab=Object Inspector
     379TabDockClients=PropertyInspector,ProjectManager,BreakpointWindow
     380

  • cprs/branches/GUI-config/CPRS-Lib/ORCtrls.pas

    r476 r492  
    2121
    2222type
     23
     24  TORStaticText = class(TStaticText)
     25  private
     26     FOnEnter: TNotifyEvent;
     27     FOnExit: TNotifyEvent;
     28  published
     29     property OnEnter: TNotifyEvent read FOnEnter write FOnEnter;
     30     property OnExit: TNotifyEvent read FOnExit write FOnExit;
     31     procedure DoEnter; override;
     32     procedure DoExit; override;
     33  end;
     34
    2335  TORComboBox = class;                           // forward declaration for FParentCombo
    2436
    … …  
    230242    property MItems: TStrings read GetMItems write SetMItems;
    231243    procedure MakeAccessible(Accessible: IAccessible);
     244    function VerifyUnique(SelectIndex: Integer; iText: String): integer;
    232245  published
    233246    property AllowGrayed: boolean read FAllowGrayed write FAllowGrayed default FALSE;
    … …  
    325338    FCheckBoxEditColor: TColor;                  // Edit Box color for Check Box Combo List, when not in Focus
    326339    FTemplateField: boolean;
     340    FCharsNeedMatch: integer;                    // how many text need to be matched for auto selection
     341    FUniqueAutoComplete: Boolean;                // If true only perform autocomplete for unique list items.
    327342    function EditControl: TWinControl;
    328343    procedure AdjustSizeOfSelf;
    … …  
    342357    procedure FwdNeedData(Sender: TObject; const StartFrom: string;
    343358      Direction, InsertAt: Integer);
     359    procedure SetNumForMatch(const NumberForMatch: integer);
    344360    function GetAutoSelect: Boolean;
    345361    function GetColor: TColor;
    … …  
    423439    function GetLookupPiece: integer;
    424440    procedure SetLookupPiece(const Value: integer);
     441    procedure SetUniqueAutoComplete(const Value: Boolean);
    425442  protected
    426443    procedure DropPanelBtnPressed(OKBtn, AutoClose: boolean);
    … …  
    441458    procedure InitLongList(S: string);
    442459    procedure InsertSeparator;
     460    procedure SetTextAutoComplete(TextToMatch : String);
    443461    function GetIEN(AnIndex: Integer): Int64;
    444462    function SelectByIEN(AnIEN: Int64): Integer;
    … …  
    522540    property OnResize;
    523541    property OnSynonymCheck: TORSynonymCheckEvent read GetOnSynonymCheck write SetOnSynonymCheck;
     542    property CharsNeedMatch: integer  read FCharsNeedMatch  write SetNumForMatch;
     543{UniqueAutoComplete Was added as a result of the following defects:
     544 7293 - PTM 85:  Backspace and Dosage:  Desired dosage does not populate if dosage is not in local dosage field
     545 7337 - PTM 160 Meds: #8 IMO - Simple - Change Order in which Error generated if "Enter" is hit instead of "OK"
     546 7278 - PTM 36 Meds: Select 40000 UNT/2ML and backspace to 4000 the dose selected remains 40000
     547 7284 - Inconsistencies of pulling in a dose from the Possible Dose File }
     548    property UniqueAutoComplete: Boolean read FUniqueAutoComplete write SetUniqueAutoComplete default False;
    524549  end;
    525550
    … …  
    776801    procedure WMSize           (var Message: TWMSize);          message WM_SIZE;
    777802    procedure BMSetCheck       (var Message: TMessage);         message BM_SETCHECK;
     803    procedure BMGetCheck       (var Message: TMessage);         message BM_GETCHECK;
     804    procedure BMGetState       (var Message: TMessage);         message BM_GETSTATE;
    778805    function GetImageList: TCustomImageList;
    779806    function GetImageIndexes: string;
    … …  
    874901  TCaptionListBox = class(TListBox)
    875902  private
     903    FHoverItemPos: integer;
    876904    FAccessible: IAccessible;
    877905    FRightClickSelect: boolean;                  // When true, a right click selects teh item
     906    FHintOnItem: boolean;
    878907    procedure SetCaption(const Value: string);
    879908    function GetCaption: string;
    880909    procedure WMGetObject(var Message: TMessage); message WM_GETOBJECT;
    881910    procedure WMRButtonUp(var Message: TWMRButtonUp); message WM_RBUTTONUP;
     911    procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
    882912  protected
    883913    FCaptionComponent: TStaticText;
     914    procedure DoEnter; override;
    884915  public
    885916    procedure MakeAccessible( Accessible: IAccessible);
    … …  
    887918    property RightClickSelect: boolean read FRightClickSelect write FRightClickSelect default FALSE;
    888919    property Caption: string read GetCaption write SetCaption;
     920    //Make the ListBox's hint contain the contents of the listbox Item the mouse is currently over.
     921    property HintOnItem: boolean read FHintOnItem write FHintOnItem default FALSE;
    889922  end;
    890923
    … …  
    918951    property Align;
    919952    property Caption: string read GetCaption write SetCaption;
     953  end;
     954
     955  TCaptionRichEdit = class(TRichEdit)
     956  private
     957    FAccessible: IAccessible;
     958    procedure WMGetObject(var Message: TMessage); message WM_GETOBJECT;
     959  protected
     960    FCaption: string;
     961  public
     962    procedure MakeAccessible(Accessible: IAccessible);
     963  published
     964    property Align;
     965    property Caption: string read FCaption write FCaption;
    920966  end;
    921967
    … …  
    9611007function CalcShortName( LongName: string; PrevLongName: string): string;
    9621008
     1009{Returns True if any one of 3 mouse buttons are down left, right, or middle}
     1010function IsAMouseButtonDown : boolean;
     1011
    9631012implementation  // ---------------------------------------------------------------------------
    9641013
    … …  
    10061055    FPoint: TPoint;
    10071056    FSelected: boolean;
     1057    FTabs: array[0..MAX_TABS] of Integer;         // Holds the pixel offsets for tabs
     1058    procedure GetTabSettings;
    10081059  protected
    10091060    constructor Create(AOwner: TComponent); override;
    … …  
    10541105begin
    10551106  DC := GetDC(0);
    1056   SaveFont := SelectObject(DC, FontHandle);
    1057   GetTextExtentPoint32(DC, 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz', 52, Extent);
    1058   Result := Trunc((Extent.cx / 26 + 1) / 2);     // Round() doesn't line up with dialog units
    1059   SelectObject(DC, SaveFont);
    1060   ReleaseDC(0, DC);
     1107  try
     1108    SaveFont := SelectObject(DC, FontHandle);
     1109    try
     1110      GetTextExtentPoint32(DC, 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz', 52, Extent);
     1111      Result := Trunc((Extent.cx / 26 + 1) / 2);     // Round() doesn't line up with dialog units
     1112    finally
     1113      SelectObject(DC, SaveFont);
     1114    end;
     1115  finally
     1116    ReleaseDC(0, DC);
     1117  end;
    10611118end;
    10621119
    … …  
    12341291    y := ((ClientRect.Bottom - ClientRect.Top) - FontHeightPixel(Canvas.Font.Handle)) div 2;
    12351292    //TextOut(ClientRect.Left + 1, ClientRect.Top - 1, AString);
    1236     TabbedTextOut(Handle, 1, y, PChar(AString), Length(AString), FListBox.FTabPix[0],
    1237       FListBox.FTabPix[1], -1);
     1293// WARNING - Do NOT change the X pos or the tab starting pos - this will cause a missmatch
     1294// between the hint window and what the control displayes
     1295    TabbedTextOut(Handle, 0, y, PChar(AString), Length(AString), MAX_TABS+1, FTabs[0], 0);
    12381296  end;
    12391297end;
    … …  
    12531311end;
    12541312
     1313procedure TItemTip.GetTabSettings;
     1314var
     1315  DX, X, i, count: integer;
     1316 
     1317begin
     1318  Count := FListBox.FTabPix[0];
     1319  FTabs[0] := 1;     // Set first tab stop to location 1 for display purposes
     1320  if(Count = 1) then
     1321  begin
     1322    DX := FListBox.FTabPix[1];
     1323    X := (DX * 2) - 1;
     1324  end
     1325  else
     1326  begin
     1327    DX := FontWidthPixel(FListBox.Font.Handle) * 8; // windows tab default is 8 chars
     1328    X := FListBox.FTabPix[Count];
     1329    X := Trunc(X / DX) + 1;
     1330    X := (X * DX) - 1; // get the next tab position after that which is specified
     1331  end;
     1332  for i := 1 to MAX_TABS do
     1333  begin
     1334    if(i <= Count) then
     1335      FTabs[i] := FListBox.FTabPix[i] - 1
     1336    else
     1337    begin
     1338      FTabs[i] := X;
     1339      inc(X, DX);
     1340    end;
     1341  end;
     1342end;
     1343
    12551344procedure TItemTip.UpdateText(CatchMouse: Boolean);
    12561345var
    … …  
    12701359    Canvas.Font.Color := clWindowText;
    12711360  end;
    1272   Caption := FListBox.DisplayText[FListItem];
     1361  Caption := #9 + FListBox.DisplayText[FListItem];
    12731362  if Copy(Caption, 1, 2) = '__' then Caption := ' ';  // so separators don't extend past window
     1363
     1364  GetTabSettings;
     1365
    12741366  AWidth := LOWORD(GetTabbedTextExtent(Canvas.Handle, PChar(Caption), Length(Caption),
    1275     FListBox.FTabPix[0], FListBox.FTabPix[1]));
     1367    MAX_TABS+1, FTabs[0]));
    12761368  // inherent scrollbar may not always be visible in a long list
    12771369  if FListBox.LongList
    … …  
    13551447      ORCBImages[i].Free;
    13561448  end;
     1449end;
     1450
     1451{ TORStaticText }
     1452
     1453procedure TORStaticText.DoEnter;
     1454begin
     1455  inherited DoEnter;
     1456  if Assigned(FOnEnter) then
     1457     FOnEnter(Self);
     1458end;
     1459
     1460procedure TORStaticText.DoExit;
     1461begin
     1462  inherited DoExit;
     1463  if Assigned(FOnExit) then
     1464     FOnExit(Self);
    13571465end;
    13581466
    … …  
    19212029      // 32 bits long, in the high word of WPARAM (16 bits).  Since that won't work - we'll
    19222030      // try sending the item index instead.
    1923       SendMessage(Parent.Handle, WM_COMMAND, MAKELONG(FocusIndex, LBN_SELCHANGE), LPARAM(Handle));
     2031      //PostMessage() not SendMessage() is Required here for checkboxes, SendMessage() doesn't
     2032      //Allow the Checkbox state on the control to be updated
     2033      if CheckBoxes then
     2034        PostMessage(Parent.Handle, WM_COMMAND, MAKELONG(FocusIndex, LBN_SELCHANGE), LPARAM(Handle))
     2035      else
     2036        SendMessage(Parent.Handle, WM_COMMAND, MAKELONG(FocusIndex, LBN_SELCHANGE), LPARAM(Handle));
    19242037    end;
    19252038    VK_PRIOR:          SetFocusIndex(FocusIndex - FLargeChange);
    … …  
    21312244begin
    21322245  //if Items.Count > 0 then SetFocusIndex(TopIndex);  // this seems to cause problems
     2246  //Fix For ClearQuest: HDS00001576
     2247  //This fix has been commented out, becuase it causes problems
     2248{  if (Items.Count > 0) and (Not IsAMouseButtonDown()) and (ItemIndex = -1) then
     2249    SetFocusIndex(TopIndex);//ItemIndex := TopIndex; }
    21332250  inherited DoEnter;
    21342251end;
    … …  
    36403757  FEditBox.OnKeyUp := FwdKeyUp;
    36413758  FEditBox.Visible := True;
     3759  fCharsNeedMatch := 1; 
    36423760end;
    36433761
    … …  
    37493867
    37503868procedure TORComboBox.DoEnter;
     3869{var
     3870  key : word;}
    37513871{ select all the text in the editbox when recieve focus - done first so OnEnter can deselect }
    37523872begin
    37533873  //FEditBox.SelectAll;
     3874  //Fix For ClearQuest: HDS00001576
     3875  //This fix has been commented out, becuase it causes problems
     3876{  with FListBox do
     3877  if (Items.Count > 0) and (Not IsAMouseButtonDown()) and (ItemIndex = -1) then
     3878  begin
     3879    key := VK_UP;
     3880    FwdKeyDown(Self,key,[]);
     3881    //Calling keyUp after key down creates a better mimic of a Keystroke.
     3882    FwdKeyUp(Self,key,[]);   //fixes clearquest: HDS00001418
     3883  end;              }
    37543884  inherited DoEnter;
    37553885  PostMessage(Handle, UM_GOTFOCUS, 0, 0)
    … …  
    38003930  with FEditBox do x := Copy(Text, 1, SelStart);
    38013931  FLastInput := x;
    3802   SelectIndex := FListBox.SelectString(x);
     3932  SelectIndex := -1;
     3933  if Length(x) >= CharsNeedMatch then
     3934    SelectIndex := FListBox.SelectString(x);
     3935  if (Length(x) < CharsNeedMatch) and (FListBox.ItemIndex > -1) then
     3936    SelectIndex := FListBox.SelectString(x);
     3937  if UniqueAutoComplete then
     3938    SelectIndex := FListBox.VerifyUnique(SelectIndex,x);
    38033939  if FListItemsOnly and (SelectIndex < 0) and (x <> '') then
    38043940  begin
    … …  
    38914027{ passed selected navigation keys to listbox, applies special handling to backspace and F4 }
    38924028var
    3893   i: Integer;
    3894   x: string;
     4029  i,iPos: Integer;
     4030  x,AString: string;
    38954031begin
    38964032  // special case: when default action taken (RETURN) make sure FwdChangeDelayed is called first
    … …  
    39024038    if (FStyle = orcsDropDown) and not DroppedDown then DroppedDown := True;
    39034039    // handle special case of FocusIndex, WM_KEYDOWN will increment from -1 to 0
    3904     if FListBox.ItemIndex = -1 then FListBox.FFocusIndex := -1;
     4040    if FListBox.ItemIndex = -1 then
     4041    begin
     4042      FListBox.FFocusIndex := -1;
     4043      //Move to correct position when Unique AutoComplete is on.
     4044      if UniqueAutoComplete then
     4045      begin
     4046        AString := Copy(FEditBox.Text, 1, SelStart);
     4047        iPos := SendMessage(FListBox.Handle, LB_FINDSTRING, -1, Longint(PChar(AString)));
     4048        if iPos = LB_ERR then iPos := -1;
     4049        if iPos > -1 then
     4050        begin
     4051          FListBox.FFocusIndex := iPos-1;
     4052          FListBox.ItemIndex := FListBox.FFocusIndex;
     4053        end;
     4054      end;
     4055    end;
    39054056    FListBox.Perform(WM_KEYDOWN, Key, 1);
    39064057  end;
    … …  
    47034854  FListBox.CaseChanged := Value;
    47044855end;
    4705    
     4856
    47064857function TORComboBox.GetLookupPiece: integer;
    47074858begin
    … …  
    47474898  H := ClientHeight;
    47484899  W := ClientWidth;
     4900  if (H = 0) or (W = 0) then exit;
    47494901  for i := 0 to Control.ControlCount - 1 do
    47504902  begin
    … …  
    61576309end;
    61586310
     6311procedure TORCheckBox.BMGetCheck(var Message: TMessage);
     6312begin
     6313  {This Allows JAWS to report the state when tabbed into or using the read object
     6314  keys (Ins+Tab)}
     6315  {if Self.GrayedStyle = gsBlueQuestionMark then
     6316    Message.Result := BST_INDETERMINATE
     6317  else}
     6318  if Self.Checked then
     6319    Message.Result := BST_CHECKED
     6320  else
     6321    Message.Result := BST_UNCHECKED;
     6322end;
     6323
     6324procedure TORCheckBox.BMGetState(var Message: TMessage);
     6325begin
     6326  //This gives JAWS ability to read state when spacebar is pressed.
     6327  //Commented out because JAWS reads states, but inversly. Working with freedom...
     6328{  if Self.Checked then
     6329    Message.Result := BST_CHECKED
     6330  else
     6331    Message.Result := BST_UNCHECKED;}
     6332end;
     6333
    61596334{ TORListView }
    61606335
    … …  
    63106485{ TCaptionListBox }
    63116486
     6487procedure TCaptionListBox.DoEnter;
     6488begin
     6489  inherited;
     6490  if HintOnItem then
     6491    FHoverItemPos := -1; //CQ: 7178 & 9911 - used as last item index for ListBox
     6492end;
     6493
    63126494function TCaptionListBox.GetCaption: string;
    63136495begin
    … …  
    63466528  else
    63476529    inherited;
     6530end;
     6531
     6532procedure TCaptionListBox.WMMouseMove(var Message: TWMMouseMove);
     6533var
     6534  i : integer;
     6535begin
     6536  inherited;
     6537  //CQ: 7178 & 9911 - FHoverItemPos should be set to -1 in OnEnter
     6538  //Make the TListBox's hint contain the contents of the listbox Item the mouse is currently over
     6539  if HintOnItem then
     6540  begin
     6541    i := ItemAtPos(Point(Message.XPos, Message.YPos), true);
     6542    if i <> FHoverItemPos then
     6543      Application.CancelHint;
     6544    if i = -1 then
     6545      Hint := ''
     6546    else
     6547      Hint := Items[i];
     6548    FHoverItemPos := i;
     6549  end;
    63486550end;
    63496551
    … …  
    64516653end;
    64526654
     6655{ TCaptionRichEdit }
     6656
     6657procedure TCaptionRichEdit.MakeAccessible(Accessible: IAccessible);
     6658begin
     6659  if Assigned(FAccessible) and Assigned(Accessible) then
     6660    raise Exception.Create(Caption + ' Rich Edit is already Accessible!')
     6661  else
     6662    FAccessible := Accessible;
     6663end;
     6664
     6665procedure TCaptionRichEdit.WMGetObject(var Message: TMessage);
     6666begin
     6667  if (Message.LParam = integer(OBJID_CLIENT)) and Assigned(FAccessible) then
     6668    Message.Result := GetLResult(Message.wParam, FAccessible)
     6669  else
     6670    inherited;
     6671end;
    64536672
    64546673{ TCaptionTreeView}
    … …  
    65586777end;
    65596778
     6779function IsAMouseButtonDown : boolean;
     6780begin
     6781  if Boolean(Hi(GetKeyState(VK_MBUTTON))) or
     6782     Boolean(Hi(GetKeyState(VK_LBUTTON))) or
     6783     Boolean(Hi(GetKeyState(VK_RBUTTON))) then
     6784    Result := true
     6785  else
     6786    Result := false;
     6787end;
     6788
     6789procedure TORComboBox.SetNumForMatch(const NumberForMatch: integer);
     6790begin
     6791  if NumberForMatch < 1 then
     6792    FCharsNeedMatch := 1
     6793  else if NumberForMatch > 15 then
     6794    FCharsNeedMatch := 15
     6795  else
     6796    FCharsNeedMatch := NumberForMatch;
     6797end;
     6798
     6799procedure TORComboBox.SetUniqueAutoComplete(const Value: Boolean);
     6800begin
     6801  FUniqueAutoComplete := Value;
     6802end;
     6803
     6804function TORListBox.VerifyUnique(SelectIndex: Integer; iText: String): integer;
     6805var
     6806  i : integer;
     6807  counter : integer;
     6808begin
     6809  Result := SelectIndex;
     6810    if LongList then
     6811    begin
     6812      //Currently Do nothing for LongLists
     6813     { if CompareText(iText, Copy(DisplayText[SelectIndex+1], 1, Length(iText))) = 0 then
     6814        Result := -1;}
     6815    end
     6816    else //Not a LongList
     6817    begin
     6818      counter := 0;
     6819      for i := 0 to Items.Count-1 do
     6820        if CompareText(iText, Copy(DisplayText[i], 1, Length(iText))) = 0 then
     6821          Inc(counter);
     6822      if counter > 1 then
     6823        Result := -1;
     6824    end;
     6825  FFocusIndex := Result;
     6826  ItemIndex := Result;
     6827end;
     6828
     6829//This procedure sets the Text property equal to the TextToMatch parameter, then calls
     6830//FwdChangeDelayed which will perform an auto-completion on the text.
     6831procedure TORComboBox.SetTextAutoComplete(TextToMatch: String);
     6832begin
     6833  Text := TextToMatch;
     6834  SelStart := Length(Text);
     6835  FwdChangeDelayed;
     6836end;
     6837
    65606838initialization
    65616839  //uItemTip := TItemTip.Create(Application);  // all listboxes share a single ItemTip window

  • cprs/branches/GUI-config/CPRS-Lib/ORCtrlsDsgn.pas

    r476 r492  
    153153begin
    154154  RegisterComponents('CPRS',
    155     [TORListBox, TORComboBox, TORAutoPanel, TOROffsetLabel, TORAlignEdit,
     155    [TORStaticText, TORListBox, TORComboBox, TORAutoPanel, TOROffsetLabel, TORAlignEdit,
    156156    TORAlignButton, TORAlignSpeedButton, TORTreeView, TORCheckBox, TORListView,
    157157    TKeyClickPanel, TKeyClickRadioGroup, TCaptionListBox, TCaptionCheckListBox,
    158158    TCaptionMemo, TCaptionEdit, TCaptionTreeView, TCaptionComboBox,
    159     TCaptionListView, TCaptionStringGrid{, TORAlignBitBtn, TORCalendar}]);
     159    TCaptionListView, TCaptionStringGrid, TCaptionRichEdit{, TORAlignBitBtn, TORCalendar}]);
    160160  RegisterPropertyEditor( TypeInfo(string), TORCheckBox, 'ImageIndexes',
    161161                          TORImageIndexesPropertyEditor);

  • cprs/branches/GUI-config/CPRS-Lib/ORDateLib60.cfg

    r476 r492  
    3333-$M16384,1048576
    3434-K$00400000
    35 -E"c:\program files\borland\delphi6\dev\exesave"
     35-E"c:\program files\borland\delphi7\dev\exesave"
    3636-N"..\cprs-lib\DCU"
    3737-LE"..\Packages"
    3838-LN"..\Packages"
    39 -U"..\cprs-lib;..\Packages"
    40 -O"..\cprs-lib;..\Packages"
    41 -I"..\cprs-lib;..\Packages"
    42 -R"..\cprs-lib;..\Packages"
     39-U"..\cprs-lib;..\Packages;..\CPRS-Lib\DCU"
     40-O"..\cprs-lib;..\Packages;..\CPRS-Lib\DCU"
     41-I"..\cprs-lib;..\Packages;..\CPRS-Lib\DCU"
     42-R"..\cprs-lib;..\Packages;..\CPRS-Lib\DCU"

  • cprs/branches/GUI-config/CPRS-Lib/ORDateLib60.dof

    r476 r492  
    11[FileVersion]
    2 Version=6.0
     2Version=7.0
    33[Compiler]
    44A=8
    … …  
    3131ShowWarnings=1
    3232UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
     33NamespacePrefix=
     34SymbolDeprecated=1
     35SymbolLibrary=1
     36SymbolPlatform=1
     37UnitLibrary=1
     38UnitPlatform=1
     39UnitDeprecated=1
     40HResultCompat=1
     41HidingMember=1
     42HiddenVirtual=1
     43Garbage=1
     44BoundsError=1
     45ZeroNilCompat=1
     46StringConstTruncated=1
     47ForLoopVarVarPar=1
     48TypedConstVarPar=1
     49AsgToTypedConst=1
     50CaseLabelRange=1
     51ForVariable=1
     52ConstructingAbstract=1
     53ComparisonFalse=1
     54ComparisonTrue=1
     55ComparingSignedUnsigned=1
     56CombiningSignedUnsigned=1
     57UnsupportedConstruct=1
     58FileOpen=1
     59FileOpenUnitSrc=1
     60BadGlobalSymbol=1
     61DuplicateConstructorDestructor=1
     62InvalidDirective=1
     63PackageNoLink=1
     64PackageThreadVar=1
     65ImplicitImport=1
     66HPPEMITIgnored=1
     67NoRetVal=1
     68UseBeforeDef=1
     69ForLoopVarUndef=1
     70UnitNameMismatch=1
     71NoCFGFileFound=1
     72MessageDirective=1
     73ImplicitVariants=1
     74UnicodeToLocale=1
     75LocaleToUnicode=1
     76ImagebaseMultiple=1
     77SuspiciousTypecast=1
     78PrivatePropAccessor=1
     79UnsafeType=1
     80UnsafeCode=1
     81UnsafeCast=1
    3382[Linker]
    3483MapFile=3
    … …  
    4695PackageDLLOutputDir=..\Packages
    4796PackageDCPOutputDir=..\Packages
    48 SearchPath=..\cprs-lib;..\Packages
     97SearchPath=..\cprs-lib;..\Packages;..\CPRS-Lib\DCU
    4998Packages=Vcl40;Vclx40;Vcldb40;vcldbx40;VclSmp40;Qrpt40;TeeUI40;teedb40;tee40;ibevnt40;nmfast40;VistABroker
    5099Conditionals=
    … …  
    90139Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
    91140[HistoryLists\hlSearchPath]
    92 Count=11
    93 Item0=..\cprs-lib;..\Packages
    94 Item1=..\cprs-lib;..\Packages;c:\program files\vista\bdk32\d6
    95 Item2=..\cprs-lib;..\Packages;..\cprs-chart;..\cprs-chart\dcu
    96 Item3=d:\vista\main\cprs-lib;d:\vista\main\Packages
    97 Item4=d:\vista\main\cprs-lib;d:\program files\vista\broker\bdk32\d5
    98 Item5=d:\vista\main\cprs-chart;d:\vista\main\cprs-lib;d:\vista\main\cprs-chart\encounter;d:\vista\main\cprs-chart\consults
    99 Item6=d:\vista\main\cprs-lib
    100 Item7=\Dev\CPRS\main\CPRS-Lib
    101 Item8=C:\Dev\CPRS\main\CPRS-Lib
    102 Item9=\Projects\Perforce\main\CPRS-Lib
    103 Item10=$(DELPHI)\Projects\Current\CPRS-Lib
     141Count=12
     142Item0=..\cprs-lib;..\Packages;..\CPRS-Lib\DCU
     143Item1=..\cprs-lib;..\Packages
     144Item2=..\cprs-lib;..\Packages;c:\program files\vista\bdk32\d6
     145Item3=..\cprs-lib;..\Packages;..\cprs-chart;..\cprs-chart\dcu
     146Item4=d:\vista\main\cprs-lib;d:\vista\main\Packages
     147Item5=d:\vista\main\cprs-lib;d:\program files\vista\broker\bdk32\d5
     148Item6=d:\vista\main\cprs-chart;d:\vista\main\cprs-lib;d:\vista\main\cprs-chart\encounter;d:\vista\main\cprs-chart\consults
     149Item7=d:\vista\main\cprs-lib
     150Item8=\Dev\CPRS\main\CPRS-Lib
     151Item9=C:\Dev\CPRS\main\CPRS-Lib
     152Item10=\Projects\Perforce\main\CPRS-Lib
     153Item11=$(DELPHI)\Projects\Current\CPRS-Lib
    104154[HistoryLists\hlUnitOutputDirectory]
    105155Count=8

  • cprs/branches/GUI-config/CPRS-Lib/ORDateLib60.dpk

    r476 r492  
    3232  vclsmp,
    3333  vcl,
    34   XWB_R60,
    3534  ORCtrlLib60,
    36   tee;
     35  tee,
     36  XWB_R70;
    3737
    3838contains

  • cprs/branches/GUI-config/CPRS-Lib/ORDtTm.pas

    r476 r492  
    174174    function DateText: string;
    175175    property TemplateField: boolean read FTemplateField write SetTemplateField;
     176    property FMDate: TFMDateTime read GetFMDate write SetFMDate;
    176177  published
    177178    function Text: string;
    … …  
    180181    property IncludeMonth: boolean read FIncludeMonth write SetIncludeMonth;
    181182    property LongMonths: boolean read FLongMonths write SetLongMonths default FALSE;
    182     property FMDate: TFMDateTime read GetFMDate write SetFMDate;
    183183    property Month: integer read FMonth write SetMonth;
    184184    property Day: integer read FDay write SetDay;
    … …  
    285285begin
    286286  ResizeAnchoredFormToFont(self);
     287  //FormStyle := fsStayOnTop;
    287288  lstHour.TopIndex := 6;
    288289  FFromSelf := False;

  • cprs/branches/GUI-config/CPRS-Lib/ORFn.pas

    r476 r492  
    114114procedure CallWhenIdleNotifyWhenDone(CallProc, DoneProc: TORIdleCallProc; Msg: String);
    115115procedure menuHideAllBut(aMenuItem: tMenuItem; butItems: array of tMenuItem);
     116function TabIsPressed : Boolean;
     117function ShiftTabIsPressed : Boolean;
    116118
    117119implementation  // ---------------------------------------------------------------------------
    … …  
    129131
    130132     // ConvertSpecialStrings arrays
    131   SearchChars:  array[0..6] of String = (' Ii ',' Iii ',' Iv ',' Vi ',' Vii ',' Viii ',' Ix ');
    132   ReplaceChars: array[0..6] of String = (' II ',' III ',' IV ',' VI ',' VII ',' VIII ',' IX ');
     133  SearchChars:  array[0..7] of String = (' Ii ',' Iii ',' Iv ',' Vi ',' Vii ',' Viii ',' Ix ','-Va');
     134  ReplaceChars: array[0..7] of String = (' II ',' III ',' IV ',' VI ',' VII ',' VIII ',' IX ','-VA');
    133135
    134136  { table for calculating CRC values (DWORD is Integer in Delphi 3, Cardinal in Delphi 4}
    … …  
    832834
    833835procedure LimitStringLength(var AList: TStringList; MaxLength: Integer);
    834 { change a TStringList so that all strings in the list are shorter than MaxLength }
    835836var
    836837  i, SpacePos: Integer;
    … …  
    852853          while (x[SpacePos] <> ' ') and (SpacePos > 1) do Dec(SpacePos);      {**REV**}  {changed 0 to 1}
    853854          if SpacePos = 1 then SpacePos := MaxLength;                          {**REV**}  {changed 0 to 1}
    854           NewList.Add(Copy(x, 1, SpacePos - 1));
     855          NewList.Add(Copy(x, 1, SpacePos ));  // CQ     PSI-05-040 change SpacePos-1 to SpacePos
    855856          Delete(x, 1, SpacePos);
    856857        end; {while Length(x)}
    … …  
    17101711end;
    17111712
     1713function TabIsPressed : Boolean;
     1714begin
     1715  Result := Boolean(Hi(GetKeyState(VK_TAB))) and not Boolean(Hi(GetKeyState(VK_SHIFT)));
     1716end;
     1717
     1718function ShiftTabIsPressed : Boolean;
     1719begin
     1720  Result := Boolean(Hi(GetKeyState(VK_TAB))) and Boolean(Hi(GetKeyState(VK_SHIFT)));
     1721end;
     1722
     1723
    17121724initialization
    17131725  FBaseFont := TFont.Create;

  • cprs/branches/GUI-config/CPRS-Lib/ORNet.pas

    r476 r492  
    11unit ORNet;
    22
     3{$DEFINE CCOWBROKER}
     4
    35interface
    46
    5 uses SysUtils, Windows, Classes, Forms, Controls, ORFn, TRPCB, RPCConf1, Dialogs; //, SharedRPCBroker;
     7uses SysUtils, Windows, Classes, Forms, Controls, ORFn, TRPCB, RPCConf1, Dialogs   
     8{$IFDEF CCOWBROKER}, CCOWRPCBroker {$ENDIF} ;  //, SharedRPCBroker;
     9
    610
    711procedure SetBrokerServer(const AName: string; APort: Integer; WantDebug: Boolean);
    … …  
    2226function DottedIPStr: string;
    2327procedure CallRPCWhenIdle(CallProc: TORIdleCallProc; Msg: String);
     28
    2429procedure EnsureBroker;
    2530
    … …  
    3136
    3237var
    33   //RPCBrokerV: TSharedRPCBroker;                        // an RPC Broker object - used by all calls
     38{$IFDEF CCOWBROKER}
     39  RPCBrokerV: TCCOWRPCBroker;
     40{$ELSE}
    3441  RPCBrokerV: TRPCBroker;
     42  //RPCBrokerV: TSharedRPCBroker;
     43{$ENDIF}
    3544  RPCLastCall: string;
    3645
    … …  
    5867  if RPCBrokerV = nil then
    5968  begin
     69{$IFDEF CCOWBROKER}
     70    RPCBrokerV := TCCOWRPCBroker.Create(Application);
     71{$ELSE}
     72    RPCBrokerV := TRPCBroker.Create(Application);
    6073    //RPCBrokerV := TSharedRPCBroker.Create(Application);
    61     RPCBrokerV := TRPCBroker.Create(Application);
     74{$ENDIF}
    6275    with RPCBrokerV do
    6376    begin
    … …  
    104117      vtInteger:    Param[i].Value := IntToStr(VInteger);
    105118      vtBoolean:    Param[i].Value := BoolChar[VBoolean];
    106       vtChar:       Param[i].Value := VChar;
     119      vtChar:       if VChar = #0 then
     120                      Param[i].Value := ''
     121                    else
     122                      Param[i].Value := VChar;
    107123      //vtExtended:   Param[i].Value := FloatToStr(VExtended^);
    108124      vtExtended:   begin
    … …  
    174190  RPCLastCall := RPCBrokerV.RemoteProcedure + ' (CallBroker begin)';
    175191  if uShowRPCs then StatusText(RPCBrokerV.RemoteProcedure);
    176   with RPCBrokerV do if not Connected then  // Happens if broker connection is lost.
     192  with RPCBrokerV do if not Connected then  // happens if broker connection is lost
    177193  begin
    178194    ClearResults := True;
    … …  
    339355  Screen.Cursor := crHourGlass;
    340356  SetParams(RPCName, AParam);
    341   CallBroker;  //RPCBrokerV.Call;     //kt note: this creates an error if connection was aborted.  Fix later
     357  CallBroker;  //RPCBrokerV.Call;
    342358  Screen.Cursor := SavedCursor;
    343359end;

  • cprs/branches/GUI-config/CPRS-Lib/ORSystem.pas

    r476 r492  
    127127  Buf: string;
    128128  FileInfoPtr: Pointer; //PVSFixedFileInfo;
    129 begin
    130   Result := '';
     129  SpoofVer : string; //kt
     130begin
     131  //kt Result := '';
     132  Result := Trim(ParamSearch('SPOOF-VER'));  //kt  Returns user-specified version #
     133  if Result <> '' then exit;  //kt
    131134  ASize:=GetFileVersionInfoSize(PChar(AFileName), AHandle);
    132135  if ASize > 0 then

  • cprs/branches/GUI-config/CPRS-Lib/VA10.cfg

    r476 r492  
    3333-$M16384,1048576
    3434-K$00400000
    35 -E"c:\program files\borland\delphi7\dev\exesave"
     35-E"c:\program files\borland\delphi6\dev\exesave"
    3636-N"..\cprs-lib\DCU"
    3737-LE"..\Packages"

  • cprs/branches/GUI-config/CPRS-Lib/VA10.dof

    r476 r492  
    11[FileVersion]
    2 Version=7.0
     2Version=6.0
    33[Compiler]
    44A=8
    … …  
    3131ShowWarnings=1
    3232UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
    33 NamespacePrefix=
    34 SymbolDeprecated=1
    35 SymbolLibrary=1
    36 SymbolPlatform=1
    37 UnitLibrary=1
    38 UnitPlatform=1
    39 UnitDeprecated=1
    40 HResultCompat=1
    41 HidingMember=1
    42 HiddenVirtual=1
    43 Garbage=1
    44 BoundsError=1
    45 ZeroNilCompat=1
    46 StringConstTruncated=1
    47 ForLoopVarVarPar=1
    48 TypedConstVarPar=1
    49 AsgToTypedConst=1
    50 CaseLabelRange=1
    51 ForVariable=1
    52 ConstructingAbstract=1
    53 ComparisonFalse=1
    54 ComparisonTrue=1
    55 ComparingSignedUnsigned=1
    56 CombiningSignedUnsigned=1
    57 UnsupportedConstruct=1
    58 FileOpen=1
    59 FileOpenUnitSrc=1
    60 BadGlobalSymbol=1
    61 DuplicateConstructorDestructor=1
    62 InvalidDirective=1
    63 PackageNoLink=1
    64 PackageThreadVar=1
    65 ImplicitImport=1
    66 HPPEMITIgnored=1
    67 NoRetVal=1
    68 UseBeforeDef=1
    69 ForLoopVarUndef=1
    70 UnitNameMismatch=1
    71 NoCFGFileFound=1
    72 MessageDirective=1
    73 ImplicitVariants=1
    74 UnicodeToLocale=1
    75 LocaleToUnicode=1
    76 ImagebaseMultiple=1
    77 SuspiciousTypecast=1
    78 PrivatePropAccessor=1
    79 UnsafeType=1
    80 UnsafeCode=1
    81 UnsafeCast=1
    8233[Linker]
    8334MapFile=3
Note: See TracChangeset for help on using the changeset viewer.