mbirth/cm2010
1
0
Fork 0
mirror of https://github.com/mbirth/cm2010.git synced 2024-11-10 00:16:45 +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 object Form1: TForm1
Left = 197 Left = 195
Top = 176 Top = 109
Width = 721 Width = 721
Height = 477 Height = 477
Caption = Caption =
@ -498,6 +498,13 @@ object Form1: TForm1
FlowControl.ControlRTS = rtsDisable FlowControl.ControlRTS = rtsDisable
FlowControl.XonXoffOut = False FlowControl.XonXoffOut = False
FlowControl.XonXoffIn = False FlowControl.XonXoffIn = False
OnAfterOpen = ComPortAfterOpen
OnAfterClose = ComPortAfterClose
OnRxChar = ComPortRxChar
OnCTSChange = ComPortCTSChange
OnDSRChange = ComPortDSRChange
OnRLSDChange = ComPortRLSDChange
OnRxFlag = ComPortRxFlag
Left = 160 Left = 160
Top = 120 Top = 120
end end

8
CM2010.pas
View File

@ -59,8 +59,8 @@ type
ComPort: TComPort; ComPort: TComPort;
procedure COMSettingsClick(Sender: TObject); procedure COMSettingsClick(Sender: TObject);
procedure MultiButtClick(Sender: TObject); procedure MultiButtClick(Sender: TObject);
procedure ComPortOpen(Sender: TObject); procedure ComPortAfterOpen(Sender: TObject);
procedure ComPortClose(Sender: TObject); procedure ComPortAfterClose(Sender: TObject);
procedure ComPortRxChar(Sender: TObject; Count: Integer); procedure ComPortRxChar(Sender: TObject; Count: Integer);
procedure ComPortCTSChange(Sender: TObject; OnOff: Boolean); procedure ComPortCTSChange(Sender: TObject; OnOff: Boolean);
procedure ComPortDSRChange(Sender: TObject; OnOff: Boolean); procedure ComPortDSRChange(Sender: TObject; OnOff: Boolean);
@ -123,12 +123,12 @@ begin
ComPort.Open; ComPort.Open;
end; end;
procedure TForm1.ComPortOpen(Sender: TObject); procedure TForm1.ComPortAfterOpen(Sender: TObject);
begin begin
MultiButt.Caption := 'Stop capturing'; MultiButt.Caption := 'Stop capturing';
end; end;
procedure TForm1.ComPortClose(Sender: TObject); procedure TForm1.ComPortAfterClose(Sender: TObject);
var i: integer; var i: integer;
begin begin
InSync := true; InSync := true;