From c8ab0e20975e372db6ec58be62691b93ccaf6b81 Mon Sep 17 00:00:00 2001
From: mbirth <mbirth>
Date: Wed, 8 Dec 2004 08:56:31 +0000
Subject: [PATCH] modified   CM2010.dfm modified   CM2010.pas * more adaption
 to new TComPort 2.64

---
 CM2010.dfm | 11 +++++++++--
 CM2010.pas |  8 ++++----
 2 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/CM2010.dfm b/CM2010.dfm
index 744ed91..9764b43 100644
--- a/CM2010.dfm
+++ b/CM2010.dfm
@@ -1,6 +1,6 @@
 object Form1: TForm1
-  Left = 197
-  Top = 176
+  Left = 195
+  Top = 109
   Width = 721
   Height = 477
   Caption = 
@@ -498,6 +498,13 @@ object Form1: TForm1
     FlowControl.ControlRTS = rtsDisable
     FlowControl.XonXoffOut = False
     FlowControl.XonXoffIn = False
+    OnAfterOpen = ComPortAfterOpen
+    OnAfterClose = ComPortAfterClose
+    OnRxChar = ComPortRxChar
+    OnCTSChange = ComPortCTSChange
+    OnDSRChange = ComPortDSRChange
+    OnRLSDChange = ComPortRLSDChange
+    OnRxFlag = ComPortRxFlag
     Left = 160
     Top = 120
   end
diff --git a/CM2010.pas b/CM2010.pas
index fd7b9dc..3f4bf5f 100644
--- a/CM2010.pas
+++ b/CM2010.pas
@@ -59,8 +59,8 @@ type
     ComPort: TComPort;
     procedure COMSettingsClick(Sender: TObject);
     procedure MultiButtClick(Sender: TObject);
-    procedure ComPortOpen(Sender: TObject);
-    procedure ComPortClose(Sender: TObject);
+    procedure ComPortAfterOpen(Sender: TObject);
+    procedure ComPortAfterClose(Sender: TObject);
     procedure ComPortRxChar(Sender: TObject; Count: Integer);
     procedure ComPortCTSChange(Sender: TObject; OnOff: Boolean);
     procedure ComPortDSRChange(Sender: TObject; OnOff: Boolean);
@@ -123,12 +123,12 @@ begin
     ComPort.Open;
 end;
 
-procedure TForm1.ComPortOpen(Sender: TObject);
+procedure TForm1.ComPortAfterOpen(Sender: TObject);
 begin
   MultiButt.Caption := 'Stop capturing';
 end;
 
-procedure TForm1.ComPortClose(Sender: TObject);
+procedure TForm1.ComPortAfterClose(Sender: TObject);
 var i: integer;
 begin
   InSync := true;