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/UCommConcentrator.pas

    r407 r413  
    2626  { TCommConcentrator }
    2727
    28   TCommConcentrator = class
     28  TCommConcentrator = class(TCommNode)
    2929  private
    3030    FActive: Boolean;
     
    3636    procedure SetStatus(Sender: TCommPin; Status: Integer);
    3737  public
    38     constructor Create;
     38    constructor Create(AOwner: TComponent); override;
    3939    destructor Destroy; override;
    4040    property Pins: TPinList read FPins write FPins;
     
    5757begin
    5858  Result := TCommPin(Items[Add(TCommPin.Create)]);
     59  Result.Node := Concentrator;
    5960end;
    6061
     
    109110end;
    110111
    111 constructor TCommConcentrator.Create;
     112constructor TCommConcentrator.Create(AOwner: TComponent);
    112113begin
     114  inherited;
    113115  FPins := TPinList.Create;
    114116  FPins.Concentrator := Self;
Note: See TracChangeset for help on using the changeset viewer.