TJvLogic

type TJvLogic = class(TJvSIMControl)

protected

  procedure DblClick; override;

  class function GetControlClassDefaultSize; override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure Resize; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Paint; override;

  property Gates []: TJvGate; [r]

published

  property Input1: Boolean; [rw]

  property Input2: Boolean; [rw]

  property Input3: Boolean; [rw]

  property Output1: Boolean; [rw]

  property Output2: Boolean; [rw]

  property Output3: Boolean; [rw]

  property LogicFunc: TJvLogicFunc; [rw]

  property TopCaption: string;

  property BottomCaption: string;

end;

TJvLogic

TJvSIMControl

TObject