Changeset 829 for cprs/trunk/CPRS-Lib/ORNet.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Lib/ORNet.pas (modified) (8 diffs)

cprs/trunk/CPRS-Lib/ORNet.pas

@@ -43 +43 @@
 {$ENDIF}
   RPCLastCall: string;
+
+  AppStartedCursorForm: TForm = nil;
 
 implementation
@@ -263 +265 @@
   AStringList.Add(' ');
   AStringList.Add('Results -----------------------------------------------------------------');
-  AStringList.AddStrings(RPCBrokerV.Results);
+  FastAddStrings(RPCBrokerV.Results, AStringList);
   uCallList.Add(AStringList);
   if uShowRPCs then StatusText('');
@@ -347 +349 @@
 end;
 
+function GetRPCCursor: TCursor;
+var
+  pt: TPoint;
+begin
+  Result := crHourGlass;
+  if assigned(AppStartedCursorForm) and (AppStartedCursorForm.Visible) then
+  begin
+    pt := Mouse.CursorPos;
+    if PtInRect(AppStartedCursorForm.BoundsRect, pt) then
+      Result := crAppStart;    
+  end;
+end;
+
 procedure CallV(const RPCName: string; const AParam: array of const);
 { calls the broker leaving results in results property which must be read by caller }
@@ -353 +368 @@
 begin
   SavedCursor := Screen.Cursor;
-  Screen.Cursor := crHourGlass;
+  Screen.Cursor := GetRPCCursor;
   SetParams(RPCName, AParam);
   CallBroker;  //RPCBrokerV.Call;
@@ -365 +380 @@
 begin
   SavedCursor := Screen.Cursor;
-  Screen.Cursor := crHourGlass;
+  Screen.Cursor := GetRPCCursor;
   SetParams(RPCName, AParam);
   CallBroker;  //RPCBrokerV.Call;
@@ -379 +394 @@
   if ReturnData = nil then raise Exception.Create('TString not created');
   SavedCursor := Screen.Cursor;
-  Screen.Cursor := crHourGlass;
+  Screen.Cursor := GetRPCCursor;
   SetParams(RPCName, AParam);
   CallBroker;  //RPCBrokerV.Call;
-  ReturnData.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, ReturnData);
   Screen.Cursor := SavedCursor;
 end;
@@ -395 +410 @@
 begin
   SavedCursor := Screen.Cursor;
-  Screen.Cursor := crHourGlass;
+  Screen.Cursor := GetRPCCursor;
   SetParams(RPCName, AParam);
   RPCBrokerV.Call;
@@ -450 +465 @@
 procedure LoadRPCData(Dest: TStrings; ID: Integer);
 begin
-  if (ID > -1) and (ID < uCallList.Count) then Dest.Assign(TStringList(uCallList.Items[ID]));
+  if (ID > -1) and (ID < uCallList.Count) then FastAssign(TStringList(uCallList.Items[ID]), Dest);
 end;