Changeset 612 for cprs/branches/tmg-cprs/CPRS-Chart/fxBroker.pas

Timestamp:

Nov 27, 2009, 5:58:07 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Enhanced 'Last Broker Call' dialog

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fxBroker.pas (modified) (3 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/fxBroker.pas

@@ -21 +21 @@
     btnRLT: TButton;
     DKLanguageController1: TDKLanguageController;
+    btnClear: TBitBtn;
     procedure cmdPrevClick(Sender: TObject);
     procedure cmdNextClick(Sender: TObject);
@@ -29 +30 @@
       Shift: TShiftState);
     procedure btnRLTClick(Sender: TObject);
+    procedure btnClearClick(Sender: TObject);
   private
     { Private declarations }
@@ -135 +137 @@
 end;
 
+procedure TfrmBroker.btnClearClick(Sender: TObject);
+  //kt added endtire function
+begin
+  ORNet.RPCCallsClear;
+  FCurrent := 0;
+  FRetained := RetainedRPCCount - 1;
+  cmdNextClick(Sender);
+end;
+
 end.