mbirth/cm2010
1
0
Fork 0
mirror of https://github.com/mbirth/cm2010.git synced 2024-12-24 03:14:07 +00:00
Code Issues Releases Wiki Activity

modified CM2010.dfm

Browse Source 
modified   CM2010.pas
* more adaption to new TComPort 2.64
This commit is contained in:
mbirth 2004-12-08 08:56:31 +00:00
parent f601b97d53
commit c8ab0e2097
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
CM2010.dfm
View File

@ -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

8
CM2010.pas
View File

@ -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;