Changeset 460 for cprs/branches/foia-cprs/CPRS-Lib/ORFn.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/ORFn.pas (modified) (4 diffs)

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

@@ -114 +114 @@
 procedure CallWhenIdleNotifyWhenDone(CallProc, DoneProc: TORIdleCallProc; Msg: String);
 procedure menuHideAllBut(aMenuItem: tMenuItem; butItems: array of tMenuItem);
+function TabIsPressed : Boolean;
+function ShiftTabIsPressed : Boolean;
 
 implementation  // ---------------------------------------------------------------------------
@@ -832 +834 @@
 
 procedure LimitStringLength(var AList: TStringList; MaxLength: Integer);
-{ change a TStringList so that all strings in the list are shorter than MaxLength }
 var
   i, SpacePos: Integer;
@@ -852 +853 @@
           while (x[SpacePos] <> ' ') and (SpacePos > 1) do Dec(SpacePos);      {**REV**}  {changed 0 to 1}
           if SpacePos = 1 then SpacePos := MaxLength;                          {**REV**}  {changed 0 to 1}
-          NewList.Add(Copy(x, 1, SpacePos - 1));
+          NewList.Add(Copy(x, 1, SpacePos ));  // CQ     PSI-05-040 change SpacePos-1 to SpacePos
           Delete(x, 1, SpacePos);
         end; {while Length(x)}
@@ -1710 +1711 @@
 end;
 
+function TabIsPressed : Boolean;
+begin
+  Result := Boolean(Hi(GetKeyState(VK_TAB))) and not Boolean(Hi(GetKeyState(VK_SHIFT)));
+end;
+
+function ShiftTabIsPressed : Boolean;
+begin
+  Result := Boolean(Hi(GetKeyState(VK_TAB))) and Boolean(Hi(GetKeyState(VK_SHIFT)));
+end;
+
+
 initialization
   FBaseFont := TFont.Create;