Changeset 801 for cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit

Timestamp:

Jun 16, 2010, 8:23:07 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Bug fixes. Improved Adding Image

Location:

cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit

Files:

• fPtAdd.pas (modified) (1 diff)
• fWebTab.dfm (modified) (1 diff)
• fWebTab.pas (modified) (1 diff)

cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/fPtAdd.pas

@@ -479 +479 @@
     //CheckPost('PtType',PtType);
 
-    RPCBrokerV.Call;
+    //RPCBrokerV.Call;
+    CallBroker;
     tempS := RPCBrokerV.Results.Strings[0];
     tempResult := strtoint(piece(tempS,'^',1));

cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/fWebTab.dfm

@@ -13 +13 @@
   OldCreateOrder = True
   Position = poScreenCenter
-  OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13

cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/fWebTab.pas

@@ -76 +76 @@
     if (URLList <> nil) then begin
       RPCBrokerV.remoteprocedure := 'TMG CPRS GET URL LIST';
-      RPCBrokerV.Call;
+      //RPCBrokerV.Call;
+      CallBroker;
       URLList.Assign(RPCBrokerV.Results);
       if RPCBrokerV.Results.Count>0 then Result := RPCBrokerV.Results.Strings[0]