TIdDsnPropEdBindingVCL

type TIdDsnPropEdBindingVCL = class(TForm)

  btnOk: TBitBtn;

  btnCancel: TBitBtn;

  lblBindings: TLabel;

  edtPort: TComboBox;

  rdoBindingType: TRadioGroup;

  lblIPAddress: TLabel;

  lblPort: TLabel;

  btnNew: TButton;

  btnDelete: TButton;

  ActionList1: TActionList;

  btnBindingsNew: TAction;

  btnBindingsDelete: TAction;

  edtIPAddress: TComboBox;

  lbBindings: TListBox;

  procedure btnBindingsNewExecute();

  procedure btnBindingsDeleteExecute();

  procedure btnBindingsDeleteUpdate();

  procedure edtPortKeyPress();

  procedure edtIPAddressChange();

  procedure edtPortChange();

  procedure rdoBindingTypeClick();

  procedure lbBindingsClick();

protected

  FInUpdateRoutine: Boolean;

  FHandles: TIdSocketHandles;

  FDefaultPort: Integer;

  FIPv4Addresses: TStrings;

  FIPv6Addresses: TStrings;

  fCreatedStack: Boolean;

  FCurrentHandle: TIdSocketHandle;

  procedure UpdateEditControls;

  function PortDescription();

public

  constructor Create();

  destructor Destroy; override;

  function Execute;

  function GetList;

  procedure SetList();

  property Handles: TIdSocketHandles; [rw]

  property DefaultPort: Integer; [rw]

  property IPv4Addresses: TStrings; [rw]

  property IPv6Addresses: TStrings; [rw]

end;

TIdDsnPropEdBindingVCL

TObject