TfClassEdit

type TfClassEdit = class(TForm)

  actApply: TAction;

  actMoveFirst: TAction;

  actMoveLast: TAction;

  actMoveDown: TAction;

  actMoveUp: TAction;

  actPropDelete: TAction;

  actPropEdit: TAction;

  actPropAdd: TAction;

  ActionList1: TActionList;

  actOK: TAction;

  actOK1: TAction;

  Button1: TButton;

  Button10: TButton;

  Button2: TButton;

  Button3: TButton;

  Button4: TButton;

  Button5: TButton;

  Button6: TButton;

  Button7: TButton;

  Button8: TButton;

  Button9: TButton;

  edtParent: TComboBox;

  edtName: TEdit;

  GroupBox1: TGroupBox;

  Label1: TLabel;

  edtProp: TListView;

  Label2: TLabel;

  edtDocumentation: TMemo;

  MenuItem1: TMenuItem;

  MenuItem2: TMenuItem;

  MenuItem3: TMenuItem;

  MenuItem4: TMenuItem;

  MenuItem5: TMenuItem;

  MenuItem6: TMenuItem;

  Panel1: TPanel;

  PC: TPageControl;

  PopupMenu1: TPopupMenu;

  edtSourceXSD: TSynEdit;

  SynXMLSyn1: TSynXMLSyn;

  TabSheet1: TTabSheet;

  tsDocumentation: TTabSheet;

  tsDependencies: TTabSheet;

  tvDependency: TTreeView;

  tsSourceXSD: TTabSheet;

  procedure actApplyExecute();

  procedure actMoveDownExecute();

  procedure actMoveDownUpdate();

  procedure actMoveFirstExecute();

  procedure actMoveLastExecute();

  procedure actMoveUpExecute();

  procedure actMoveUpUpdate();

  procedure actOKExecute();

  procedure actOKUpdate();

  procedure actPropAddExecute();

  procedure actPropDeleteExecute();

  procedure actPropEditExecute();

  procedure actPropEditUpdate();

  procedure edtPropDblClick();

  procedure PCChange();

public

  destructor Destroy; override;

  function UpdateObject();

end;

TfClassEdit

TObject