Changeset 460 for cprs/branches/foia-cprs/CPRS-Lib/ORCtrls.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Lib/ORCtrls.pas (modified) (12 diffs)

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

@@ -26 +26 @@
      FOnEnter: TNotifyEvent;
      FOnExit: TNotifyEvent;
-  protected
-
   published
      property OnEnter: TNotifyEvent read FOnEnter write FOnEnter;
@@ -543 +541 @@
     property OnSynonymCheck: TORSynonymCheckEvent read GetOnSynonymCheck write SetOnSynonymCheck;
     property CharsNeedMatch: integer  read FCharsNeedMatch  write SetNumForMatch;
+{UniqueAutoComplete Was added as a result of the following defects:
+ 7293 - PTM 85:  Backspace and Dosage:  Desired dosage does not populate if dosage is not in local dosage field
+ 7337 - PTM 160 Meds: #8 IMO - Simple - Change Order in which Error generated if "Enter" is hit instead of "OK"
+ 7278 - PTM 36 Meds: Select 40000 UNT/2ML and backspace to 4000 the dose selected remains 40000
+ 7284 - Inconsistencies of pulling in a dose from the Possible Dose File }
     property UniqueAutoComplete: Boolean read FUniqueAutoComplete write SetUniqueAutoComplete default False;
   end;
@@ -898 +901 @@
   TCaptionListBox = class(TListBox)
   private
+    FHoverItemPos: integer;
     FAccessible: IAccessible;
     FRightClickSelect: boolean;                  // When true, a right click selects teh item
+    FHintOnItem: boolean;
     procedure SetCaption(const Value: string);
     function GetCaption: string;
     procedure WMGetObject(var Message: TMessage); message WM_GETOBJECT;
     procedure WMRButtonUp(var Message: TWMRButtonUp); message WM_RBUTTONUP;
+    procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
   protected
     FCaptionComponent: TStaticText;
+    procedure DoEnter; override;
   public
     procedure MakeAccessible( Accessible: IAccessible);
@@ -911 +918 @@
     property RightClickSelect: boolean read FRightClickSelect write FRightClickSelect default FALSE;
     property Caption: string read GetCaption write SetCaption;
+    //Make the ListBox's hint contain the contents of the listbox Item the mouse is currently over.
+    property HintOnItem: boolean read FHintOnItem write FHintOnItem default FALSE;
   end;
 
@@ -1440 +1449 @@
 end;
 
-{  ----------------------------------------------------- }
+{ TORStaticText }
+
 procedure TORStaticText.DoEnter;
 begin
@@ -1454 +1464 @@
      FOnExit(Self);
 end;
-
 
 { TORStrings }
@@ -2236 +2245 @@
   //if Items.Count > 0 then SetFocusIndex(TopIndex);  // this seems to cause problems
   //Fix For ClearQuest: HDS00001576
+  //This fix has been commented out, becuase it causes problems
 {  if (Items.Count > 0) and (Not IsAMouseButtonDown()) and (ItemIndex = -1) then
     SetFocusIndex(TopIndex);//ItemIndex := TopIndex; }
@@ -3863 +3873 @@
   //FEditBox.SelectAll;
   //Fix For ClearQuest: HDS00001576
-  {Commented out the fix for CQ: 1576, always selecing first item is
-   causing issues.}
+  //This fix has been commented out, becuase it causes problems
 {  with FListBox do
   if (Items.Count > 0) and (Not IsAMouseButtonDown()) and (ItemIndex = -1) then
@@ -3872 +3881 @@
     //Calling keyUp after key down creates a better mimic of a Keystroke.
     FwdKeyUp(Self,key,[]);   //fixes clearquest: HDS00001418
-  end; }
+  end;              }
   inherited DoEnter;
   PostMessage(Handle, UM_GOTFOCUS, 0, 0)
@@ -6476 +6485 @@
 { TCaptionListBox }
 
+procedure TCaptionListBox.DoEnter;
+begin
+  inherited;
+  if HintOnItem then
+    FHoverItemPos := -1; //CQ: 7178 & 9911 - used as last item index for ListBox
+end;
+
 function TCaptionListBox.GetCaption: string;
 begin
@@ -6512 +6528 @@
   else
     inherited;
+end;
+
+procedure TCaptionListBox.WMMouseMove(var Message: TWMMouseMove);
+var
+  i : integer;
+begin
+  inherited;
+  //CQ: 7178 & 9911 - FHoverItemPos should be set to -1 in OnEnter
+  //Make the TListBox's hint contain the contents of the listbox Item the mouse is currently over
+  if HintOnItem then
+  begin
+    i := ItemAtPos(Point(Message.XPos, Message.YPos), true);
+    if i <> FHoverItemPos then
+      Application.CancelHint;
+    if i = -1 then
+      Hint := ''
+    else
+      Hint := Items[i];
+    FHoverItemPos := i;
+  end;
 end;
 
@@ -6811 +6847 @@
 
 end.
-
-
-