Changeset 492 for cprs/branches/GUI-config/CPRS-Lib/ORFn.pas

Timestamp:

Sep 17, 2008, 5:34:43 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Resync

File:

• cprs/branches/GUI-config/CPRS-Lib/ORFn.pas (modified) (5 diffs)

cprs/branches/GUI-config/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  // ---------------------------------------------------------------------------
@@ -129 +131 @@
 
      // ConvertSpecialStrings arrays
-  SearchChars:  array[0..6] of String = (' Ii ',' Iii ',' Iv ',' Vi ',' Vii ',' Viii ',' Ix ');
-  ReplaceChars: array[0..6] of String = (' II ',' III ',' IV ',' VI ',' VII ',' VIII ',' IX ');
+  SearchChars:  array[0..7] of String = (' Ii ',' Iii ',' Iv ',' Vi ',' Vii ',' Viii ',' Ix ','-Va');
+  ReplaceChars: array[0..7] of String = (' II ',' III ',' IV ',' VI ',' VII ',' VIII ',' IX ','-VA');
 
   { table for calculating CRC values (DWORD is Integer in Delphi 3, Cardinal in Delphi 4}
@@ -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;