TmscrRTTILibrariesTree

type TmscrRTTILibrariesTree = class(TPanel)

protected

  procedure Notification(); override;

  function GetCategoryByName();

  procedure FindAllClasses();

  procedure FindAllRecords();

  procedure FindAllFuncProc();

  procedure FindAllConstants();

  procedure FindAllTypes();

  procedure FindAllVariables();

  function FindVariableByName();

  function FindRecordByName();

  procedure FindAllClasses2();

  procedure FindAllRecords2();

  procedure FindAllFuncProc2();

  procedure FindAllConstants2();

  procedure FindAllTypes2();

  procedure FindAllVariables2();

  procedure TreeViewBuild;

  procedure TreeViewExpandNodes();

  procedure TreeChange();

  procedure DoOnTreeViewClick();

  procedure DoOnTreeViewDblClick();

  procedure DoOnTreeViewCollapsed();

  procedure DoOnTreeViewExpanded();

  procedure DoOnBtUpdateClick();

  procedure DoOnBtCol1Click();

  procedure DoOnBtExp1Click();

  procedure DoOnBtCol2Click();

  procedure DoOnBtExp2Click();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure UpdateItems;

  function GetFieldName;

published

  property Script: TmscrScript; [rw]

  property ScriptEditor: TSynEdit; [rw]

  property ShowClasses: Boolean; [rw]

  property ShowRecords: Boolean; [rw]

  property ShowFunctions: Boolean; [rw]

  property ShowConstants: Boolean; [rw]

  property ShowTypes: Boolean; [rw]

  property ShowVariables: Boolean; [rw]

  property Expanded: Boolean; [rw]

  property ExpandLevel: Integer; [rw]

  property DualPanel: Boolean; [rw]

  property Align;

  property Anchors;

  property DragCursor;

  property DragKind;

  property DragMode;

  property BiDiMode;

  property ParentBiDiMode;

  property Color;

  property Constraints;

  property Enabled;

  property Font;

  property ParentColor;

  property ParentFont;

  property ParentShowHint;

  property PopupMenu;

  property ShowHint;

  property TabOrder;

  property TabStop;

  property Visible;

  property OnClick;

  property OnDblClick;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDrag;

  property OnEnter;

  property OnExit;

  property OnKeyDown;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnStartDrag;

end;

TmscrRTTILibrariesTree

TObject