Ignore:
Timestamp:
Jul 6, 2008, 8:20:14 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Uploading from OR_30_258

Location:
cprs/branches/foia-cprs/CPRS-Lib
Files:
22 added
10 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/foia-cprs/CPRS-Lib/ORCtrlLib60.cfg

    r459 r460  
    3434-K$00400000
    3535-E"c:\program files\borland\delphi6\dev\exesave"
    36 -N"c:\cprs\DcuSave"
    37 -LE"c:\cprs\OR_3_195V25\Packages"
    38 -LN"c:\cprs\OR_3_195V25\Packages"
    39 -U"c:\cprs\OR_3_195V25\Packages"
    40 -O"c:\cprs\OR_3_195V25\Packages"
    41 -I"c:\cprs\OR_3_195V25\Packages"
    42 -R"c:\cprs\OR_3_195V25\Packages"
     36-N"..\Packages"
     37-LE"..\Packages"
     38-LN"..\Packages"
     39-U"..\cprs-lib;..\Packages"
     40-O"..\cprs-lib;..\Packages"
     41-I"..\cprs-lib;..\Packages"
     42-R"..\cprs-lib;..\Packages"

  • cprs/branches/foia-cprs/CPRS-Lib/ORCtrlLib60.dof

    r459 r460  
    4343[Directories]
    4444OutputDir=$(DELPHI)\dev\exesave
    45 UnitOutputDir=c:\cprs\DcuSave
    46 PackageDLLOutputDir=c:\cprs\OR_3_195V25\Packages
    47 PackageDCPOutputDir=c:\cprs\OR_3_195V25\Packages
    48 SearchPath=c:\cprs\OR_3_195V25\Packages
     45UnitOutputDir=..\Packages
     46PackageDLLOutputDir=..\Packages
     47PackageDCPOutputDir=..\Packages
     48SearchPath=..\cprs-lib;..\Packages
    4949Packages=Vcl40;Vclx40;Vcldb40;vcldbx40;VclSmp40;Qrpt40;TeeUI40;teedb40;tee40;ibevnt40;nmfast40;VistABroker
    5050Conditionals=
    51 DebugSourceDirs=
     51DebugSourceDirs=..\Packages
    5252UsePackages=0
    5353[Parameters]
    … …  
    8888[Excluded Packages]
    8989C:\Program Files\Borland\Delphi6\Projects\Bpl\SharedRPCBroker_D60.bpl=VistA SharedBroker Components
     90[HistoryLists\hlDebugSourcePath]
     91Count=1
     92Item0=..\Packages
    9093[HistoryLists\hlUnitAliases]
    9194Count=1
    9295Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
    9396[HistoryLists\hlSearchPath]
    94 Count=13
    95 Item0=c:\cprs\OR_3_195V25\Packages
    96 Item1=D:\vista\cprs\OR_3_195V25\Packages
    97 Item2=D:\vista\cprs\OR_3_195V25\CPRS-Chart\dcu
    98 Item3=..\cprs-lib;..\Packages
    99 Item4=..\cprs-lib;..\Packages;..\cprs-chart;..\cprs-chart\dcu
    100 Item5=d:\vista\main\cprs-lib;d:\vista\main\Packages
    101 Item6=d:\vista\main\cprs-lib;d:\program files\vista\broker\bdk32\d5
    102 Item7=d:\vista\main\cprs-chart;d:\vista\main\cprs-lib;d:\vista\main\cprs-chart\encounter;d:\vista\main\cprs-chart\consults
    103 Item8=d:\vista\main\cprs-lib
    104 Item9=\Dev\CPRS\main\CPRS-Lib
    105 Item10=C:\Dev\CPRS\main\CPRS-Lib
    106 Item11=\Projects\Perforce\main\CPRS-Lib
    107 Item12=$(DELPHI)\Projects\Current\CPRS-Lib
     97Count=10
     98Item0=..\cprs-lib;..\Packages
     99Item1=..\cprs-lib;..\Packages;..\cprs-chart;..\cprs-chart\dcu
     100Item2=d:\vista\main\cprs-lib;d:\vista\main\Packages
     101Item3=d:\vista\main\cprs-lib;d:\program files\vista\broker\bdk32\d5
     102Item4=d:\vista\main\cprs-chart;d:\vista\main\cprs-lib;d:\vista\main\cprs-chart\encounter;d:\vista\main\cprs-chart\consults
     103Item5=d:\vista\main\cprs-lib
     104Item6=\Dev\CPRS\main\CPRS-Lib
     105Item7=C:\Dev\CPRS\main\CPRS-Lib
     106Item8=\Projects\Perforce\main\CPRS-Lib
     107Item9=$(DELPHI)\Projects\Current\CPRS-Lib
    108108[HistoryLists\hlUnitOutputDirectory]
    109 Count=13
    110 Item0=c:\cprs\DcuSave
    111 Item1=c:\cprs\OR_3_195V25\DcuSave
    112 Item2=D:\vista\cprs\OR_3_195V25\Packages
    113 Item3=D:\vista\cprs\OR_3_195V25\CPRS-Chart\dcu
    114 Item4=..\cprs-lib\dcu
    115 Item5=..\cprs-lib
    116 Item6=d:\vista\main\cprs-lib\DCU
    117 Item7=d:\vista\main\cprs-lib\DCUSave
    118 Item8=d:\vista\main\cprs-chart\dcu
    119 Item9=\Dev\DCUSave
    120 Item10=C:\Dev\DCUSave
    121 Item11=\Projects\DCUSave
    122 Item12=$(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
    123120[HistoryLists\hlOutputDirectorry]
    124121Count=2
    … …  
    126123Item1=d:\vista\main\cprs-chart
    127124[HistoryLists\hlBPLOutput]
    128 Count=10
    129 Item0=c:\cprs\OR_3_195V25\Packages
    130 Item1=D:\vista\cprs\OR_3_195V25\Packages
    131 Item2=D:\vista\cprs\OR_3_195V25\CPRS-Chart\dcu
    132 Item3=..\Packages
    133 Item4=d:\vista\main\Packages
    134 Item5=d:\vista\main\cprs-lib
    135 Item6=\Dev\Packages
    136 Item7=C:\Dev\Packages
    137 Item8=\Projects\Packages
    138 Item9=$(DELPHI)\Projects\Packages
     125Count=7
     126Item0=..\Packages
     127Item1=d:\vista\main\Packages
     128Item2=d:\vista\main\cprs-lib
     129Item3=\Dev\Packages
     130Item4=C:\Dev\Packages
     131Item5=\Projects\Packages
     132Item6=$(DELPHI)\Projects\Packages
    139133[HistoryLists\hlDCPOutput]
    140 Count=10
    141 Item0=c:\cprs\OR_3_195V25\Packages
    142 Item1=D:\vista\cprs\OR_3_195V25\Packages
    143 Item2=D:\vista\cprs\OR_3_195V25\CPRS-Chart\dcu
    144 Item3=..\Packages
    145 Item4=d:\vista\main\Packages
    146 Item5=d:\vista\main\cprs-lib
    147 Item6=\Dev\Packages
    148 Item7=C:\Dev\Packages
    149 Item8=\Projects\Packages
    150 Item9=$(DELPHI)\Projects\Packages
     134Count=7
     135Item0=..\Packages
     136Item1=d:\vista\main\Packages
     137Item2=d:\vista\main\cprs-lib
     138Item3=\Dev\Packages
     139Item4=C:\Dev\Packages
     140Item5=\Projects\Packages
     141Item6=$(DELPHI)\Projects\Packages

  • cprs/branches/foia-cprs/CPRS-Lib/ORCtrlLib60.dpk

    r459 r460  
    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}
    … …  
    3535
    3636contains
     37  uAccessAPI in 'uAccessAPI.pas',
     38  Accessibility_TLB in '..\CPRS-Chart\Accessibility_TLB.pas',
    3739  ORCtrls in 'ORCtrls.pas',
    38   ORCtrlsDsgn in 'ORCtrlsDsgn.pas',
    39   uAccessAPI in 'uAccessAPI.pas',
    40   Accessibility_TLB in '..\CPRS-Chart\Accessibility_TLB.pas';
     40  ORCtrlsDsgn in 'ORCtrlsDsgn.pas';
    4141
    4242end.
    43 

  • cprs/branches/foia-cprs/CPRS-Lib/ORCtrls.pas

    r459 r460  
    2626     FOnEnter: TNotifyEvent;
    2727     FOnExit: TNotifyEvent;
    28   protected
    29 
    3028  published
    3129     property OnEnter: TNotifyEvent read FOnEnter write FOnEnter;
    … …  
    543541    property OnSynonymCheck: TORSynonymCheckEvent read GetOnSynonymCheck write SetOnSynonymCheck;
    544542    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 }
    545548    property UniqueAutoComplete: Boolean read FUniqueAutoComplete write SetUniqueAutoComplete default False;
    546549  end;
    … …  
    898901  TCaptionListBox = class(TListBox)
    899902  private
     903    FHoverItemPos: integer;
    900904    FAccessible: IAccessible;
    901905    FRightClickSelect: boolean;                  // When true, a right click selects teh item
     906    FHintOnItem: boolean;
    902907    procedure SetCaption(const Value: string);
    903908    function GetCaption: string;
    904909    procedure WMGetObject(var Message: TMessage); message WM_GETOBJECT;
    905910    procedure WMRButtonUp(var Message: TWMRButtonUp); message WM_RBUTTONUP;
     911    procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
    906912  protected
    907913    FCaptionComponent: TStaticText;
     914    procedure DoEnter; override;
    908915  public
    909916    procedure MakeAccessible( Accessible: IAccessible);
    … …  
    911918    property RightClickSelect: boolean read FRightClickSelect write FRightClickSelect default FALSE;
    912919    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;
    913922  end;
    914923
    … …  
    14401449end;
    14411450
    1442 {  ----------------------------------------------------- }
     1451{ TORStaticText }
     1452
    14431453procedure TORStaticText.DoEnter;
    14441454begin
    … …  
    14541464     FOnExit(Self);
    14551465end;
    1456 
    14571466
    14581467{ TORStrings }
    … …  
    22362245  //if Items.Count > 0 then SetFocusIndex(TopIndex);  // this seems to cause problems
    22372246  //Fix For ClearQuest: HDS00001576
     2247  //This fix has been commented out, becuase it causes problems
    22382248{  if (Items.Count > 0) and (Not IsAMouseButtonDown()) and (ItemIndex = -1) then
    22392249    SetFocusIndex(TopIndex);//ItemIndex := TopIndex; }
    … …  
    38633873  //FEditBox.SelectAll;
    38643874  //Fix For ClearQuest: HDS00001576
    3865   {Commented out the fix for CQ: 1576, always selecing first item is
    3866    causing issues.}
     3875  //This fix has been commented out, becuase it causes problems
    38673876{  with FListBox do
    38683877  if (Items.Count > 0) and (Not IsAMouseButtonDown()) and (ItemIndex = -1) then
    … …  
    38723881    //Calling keyUp after key down creates a better mimic of a Keystroke.
    38733882    FwdKeyUp(Self,key,[]);   //fixes clearquest: HDS00001418
    3874   end; }
     3883  end;              }
    38753884  inherited DoEnter;
    38763885  PostMessage(Handle, UM_GOTFOCUS, 0, 0)
    … …  
    64766485{ TCaptionListBox }
    64776486
     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
    64786494function TCaptionListBox.GetCaption: string;
    64796495begin
    … …  
    65126528  else
    65136529    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;
    65146550end;
    65156551
    … …  
    68116847
    68126848end.
    6813 
    6814 
    6815 

  • cprs/branches/foia-cprs/CPRS-Lib/ORCtrlsDsgn.pas

    r459 r460  
    164164end.
    165165
    166 

  • cprs/branches/foia-cprs/CPRS-Lib/ORDateLib60.dof

    r459 r460  
    8686ProductVersion=1.0.0.0
    8787Comments=
     88[Excluded Packages]
     89C:\Program Files\Borland\Delphi6\Projects\Bpl\SharedRPCBroker_D60.bpl=VistA SharedBroker Components
    8890[HistoryLists\hlUnitAliases]
    8991Count=1

  • cprs/branches/foia-cprs/CPRS-Lib/ORDtTm.pas

    r459 r460  
    285285begin
    286286  ResizeAnchoredFormToFont(self);
     287  //FormStyle := fsStayOnTop;
    287288  lstHour.TopIndex := 6;
    288289  FFromSelf := False;

  • cprs/branches/foia-cprs/CPRS-Lib/ORFn.pas

    r459 r460  
    114114procedure CallWhenIdleNotifyWhenDone(CallProc, DoneProc: TORIdleCallProc; Msg: String);
    115115procedure menuHideAllBut(aMenuItem: tMenuItem; butItems: array of tMenuItem);
     116function TabIsPressed : Boolean;
     117function ShiftTabIsPressed : Boolean;
    116118
    117119implementation  // ---------------------------------------------------------------------------
    … …  
    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/foia-cprs/CPRS-Lib/ORNet.pas

    r459 r460  
    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);
    … …  
    3236
    3337var
    34   //RPCBrokerV: TSharedRPCBroker;                        // an RPC Broker object - used by all calls
     38{$IFDEF CCOWBROKER}
     39  RPCBrokerV: TCCOWRPCBroker;
     40{$ELSE}
    3541  RPCBrokerV: TRPCBroker;
     42  //RPCBrokerV: TSharedRPCBroker;
     43{$ENDIF}
    3644  RPCLastCall: string;
    37  
     45
    3846implementation
    3947
    … …  
    5967  if RPCBrokerV = nil then
    6068  begin
     69{$IFDEF CCOWBROKER}
     70    RPCBrokerV := TCCOWRPCBroker.Create(Application);
     71{$ELSE}
     72    RPCBrokerV := TRPCBroker.Create(Application);
    6173    //RPCBrokerV := TSharedRPCBroker.Create(Application);
    62     RPCBrokerV := TRPCBroker.Create(Application);
     74{$ENDIF}
    6375    with RPCBrokerV do
    6476    begin
Note: See TracChangeset for help on using the changeset viewer.