Changeset 413 for ISPProgrammer/UISPProgrammer.pas

Timestamp:

Aug 16, 2012, 12:59:53 PM (12 years ago)

Author:

chronos

Message:

• Modified: Classes using TCommPin class now inherits from TCommNode which inherits from TComponent. All TCommNodes are now registred as components in PinConnection group on component palette.
• Modified: TCommPin now have reference to parent TCommNode.

File:

• ISPProgrammer/UISPProgrammer.pas (modified) (4 diffs)

ISPProgrammer/UISPProgrammer.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Registry, UIntelHexFile, UCommSerialPort,
-  UCPUType, UJobProgressView;
+  Classes, SysUtils, Registry, UIntelHexFile,
+  UCPUType, UJobProgressView, UCommPin;
 
 type
@@ -31 +31 @@
     HexFile: TIntelHexFile;
     FileName: string;
-    SerialPort: TCommSerialPort;
     Capabilities: TISPProgCapabilities;
+    ExtPin: TCommPin;
     procedure Log(Text: string);
     procedure LoadFromRegistry(Root: HKEY; Key: string); virtual;
@@ -130 +130 @@
 constructor TISPProgrammer.Create;
 begin
+  ExtPin := TCommPin.Create;
   HexFile := TIntelHexFile.Create;
   HexFile.BytePerLine := 20;
-  SerialPort := nil;
 end;
 
@@ -138 +138 @@
 begin
   Active := False;
+  ExtPin.Free;
   HexFile.Free;
   inherited Destroy;