Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • PinConnection/UCommFrame.pas

    r411 r413  
    1414  { TCommFrame }
    1515
    16   TCommFrame = class
     16  TCommFrame = class(TCommNode)
    1717  private
    1818    LastCharIsSpecialChar: Boolean;
     
    3535    ControlCodeSpecialChar: Byte;
    3636    function ComputeRawSize(DataStream: TListByte): Integer;
    37     constructor Create;
     37    constructor Create(AOwner: TComponent); override;
    3838    destructor Destroy; override;
    3939    property FrameErrorCount: Integer read FFrameErrorCount;
     
    4646{ TCommFrame }
    4747
    48 constructor TCommFrame.Create;
    49 begin
     48constructor TCommFrame.Create(AOwner: TComponent);
     49begin
     50  inherited;
    5051  ReceiveBuffer := TBinarySerializer.Create;
    5152  ReceiveBuffer.List := TListByte.Create;
     
    5354  RawDataPin := TCommPin.Create;
    5455  RawDataPin.OnReceive := RawDataReceive;
     56  RawDataPin.Node := Self;
    5557  FrameDataPin := TCommPin.Create;
    5658  FrameDataPin.OnReceive := FrameDataReceive;
     59  FrameDataPin.Node := Self;
    5760  PacketLoss := 0;
    5861  SpecialChar := $fe;
Note: See TracChangeset for help on using the changeset viewer.