imp_comctrls.pas

Delphi脚本控件

  RegisterMethod(TTreeNode,
       'procedure Assign(Source: TPersistent); override;',
       @TTreeNode.Assign);
  RegisterMethod(TTreeNode,
       'procedure Collapse(Recurse: Boolean);',
       @TTreeNode.Collapse);
  RegisterMethod(TTreeNode,
       'function CustomSort(SortProc: TTVCompare; Data: Longint): Boolean;',
       @TTreeNode.CustomSort);
  RegisterMethod(TTreeNode,
       'procedure Delete;',
       @TTreeNode.Delete);
  RegisterMethod(TTreeNode,
       'procedure DeleteChildren;',
       @TTreeNode.DeleteChildren);
  RegisterMethod(TTreeNode,
       'function DisplayRect(TextOnly: Boolean): TRect;',
       @TTreeNode.DisplayRect);
  RegisterMethod(TTreeNode,
       'function EditText: Boolean;',
       @TTreeNode.EditText);
  RegisterMethod(TTreeNode,
       'procedure EndEdit(Cancel: Boolean);',
       @TTreeNode.EndEdit);
  RegisterMethod(TTreeNode,
       'procedure Expand(Recurse: Boolean);',
       @TTreeNode.Expand);
  RegisterMethod(TTreeNode,
       'function getFirstChild: TTreeNode;',
       @TTreeNode.GetFirstChild);
  RegisterMethod(TTreeNode,
       'function GetHandle: HWND;',
       @TTreeNode.GetHandle);
  RegisterMethod(TTreeNode,
       'function GetLastChild: TTreeNode;',
       @TTreeNode.GetLastChild);
  RegisterMethod(TTreeNode,
       'function GetNext: TTreeNode;',
       @TTreeNode.GetNext);
  RegisterMethod(TTreeNode,
       'function GetNextChild(Value: TTreeNode): TTreeNode;',
       @TTreeNode.GetNextChild);
  RegisterMethod(TTreeNode,
       'function getNextSibling: TTreeNode;',
       @TTreeNode.GetNextSibling);
  RegisterMethod(TTreeNode,
       'function GetNextVisible: TTreeNode;',
       @TTreeNode.GetNextVisible);
  RegisterMethod(TTreeNode,
       'function GetPrev: TTreeNode;',
       @TTreeNode.GetPrev);
  RegisterMethod(TTreeNode,
       'function GetPrevChild(Value: TTreeNode): TTreeNode;',
       @TTreeNode.GetPrevChild);
  RegisterMethod(TTreeNode,
       'function getPrevSibling: TTreeNode;',
       @TTreeNode.GetPrevSibling);
  RegisterMethod(TTreeNode,
       'function GetPrevVisible: TTreeNode;',
       @TTreeNode.GetPrevVisible);
  RegisterMethod(TTreeNode,
       'function HasAsParent(Value: TTreeNode): Boolean;',
       @TTreeNode.HasAsParent);
  RegisterMethod(TTreeNode,
       'function IndexOf(Value: TTreeNode): Integer;',
       @TTreeNode.IndexOf);
  RegisterMethod(TTreeNode,
       'procedure MakeVisible;',
       @TTreeNode.MakeVisible);
  RegisterMethod(TTreeNode,
       'procedure MoveTo(Destination: TTreeNode; Mode: TNodeAttachMode); virtual;',
       @TTreeNode.MoveTo);
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetAbsoluteIndex:Integer;',
       @TTreeNode_GetAbsoluteIndex, Fake);
  RegisterProperty(TTreeNode,
       'property AbsoluteIndex:Integer read TTreeNode_GetAbsoluteIndex;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetCount:Integer;',
       @TTreeNode_GetCount, Fake);
  RegisterProperty(TTreeNode,
       'property Count:Integer read TTreeNode_GetCount;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetCut:Boolean;',
       @TTreeNode_GetCut, Fake);
  RegisterMethod(TTreeNode,
       'procedure TTreeNode_PutCut(const Value: Boolean);',
       @TTreeNode_PutCut, Fake);
  RegisterProperty(TTreeNode,
       'property Cut:Boolean read TTreeNode_GetCut write TTreeNode_PutCut;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetData:Pointer;',
       @TTreeNode_GetData, Fake);
  RegisterMethod(TTreeNode,
       'procedure TTreeNode_PutData(const Value: Pointer);',
       @TTreeNode_PutData, Fake);
  RegisterProperty(TTreeNode,
       'property Data:Pointer read TTreeNode_GetData write TTreeNode_PutData;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetDeleting:Boolean;',
       @TTreeNode_GetDeleting, Fake);
  RegisterProperty(TTreeNode,
       'property Deleting:Boolean read TTreeNode_GetDeleting;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetFocused:Boolean;',
       @TTreeNode_GetFocused, Fake);
  RegisterMethod(TTreeNode,
       'procedure TTreeNode_PutFocused(const Value: Boolean);',
       @TTreeNode_PutFocused, Fake);
  RegisterProperty(TTreeNode,
       'property Focused:Boolean read TTreeNode_GetFocused write TTreeNode_PutFocused;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetDropTarget:Boolean;',
       @TTreeNode_GetDropTarget, Fake);
  RegisterMethod(TTreeNode,
       'procedure TTreeNode_PutDropTarget(const Value: Boolean);',
       @TTreeNode_PutDropTarget, Fake);
  RegisterProperty(TTreeNode,
       'property DropTarget:Boolean read TTreeNode_GetDropTarget write TTreeNode_PutDropTarget;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetSelected:Boolean;',
       @TTreeNode_GetSelected, Fake);
  RegisterMethod(TTreeNode,
       'procedure TTreeNode_PutSelected(const Value: Boolean);',
       @TTreeNode_PutSelected, Fake);
  RegisterProperty(TTreeNode,
       'property Selected:Boolean read TTreeNode_GetSelected write TTreeNode_PutSelected;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetExpanded:Boolean;',
       @TTreeNode_GetExpanded, Fake);
  RegisterMethod(TTreeNode,
       'procedure TTreeNode_PutExpanded(const Value: Boolean);',
       @TTreeNode_PutExpanded, Fake);
  RegisterProperty(TTreeNode,
       'property Expanded:Boolean read TTreeNode_GetExpanded write TTreeNode_PutExpanded;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetHandle:HWND;',
       @TTreeNode_GetHandle, Fake);
  RegisterProperty(TTreeNode,
       'property Handle:HWND read TTreeNode_GetHandle;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetHasChildren:Boolean;',
       @TTreeNode_GetHasChildren, Fake);
  RegisterMethod(TTreeNode,
       'procedure TTreeNode_PutHasChildren(const Value: Boolean);',
       @TTreeNode_PutHasChildren, Fake);
  RegisterProperty(TTreeNode,
       'property HasChildren:Boolean read TTreeNode_GetHasChildren write TTreeNode_PutHasChildren;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetImageIndex:TImageIndex;',
       @TTreeNode_GetImageIndex, Fake);
  RegisterMethod(TTreeNode,
       'procedure TTreeNode_PutImageIndex(const Value: TImageIndex);',
       @TTreeNode_PutImageIndex, Fake);
  RegisterProperty(TTreeNode,
       'property ImageIndex:TImageIndex read TTreeNode_GetImageIndex write TTreeNode_PutImageIndex;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetIndex:Integer;',
       @TTreeNode_GetIndex, Fake);
  RegisterProperty(TTreeNode,
       'property Index:Integer read TTreeNode_GetIndex;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetIsVisible:Boolean;',
       @TTreeNode_GetIsVisible, Fake);
  RegisterProperty(TTreeNode,
       'property IsVisible:Boolean read TTreeNode_GetIsVisible;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetItem(Index: Integer):TTreeNode;',
       @TTreeNode_GetItem, Fake);
  RegisterMethod(TTreeNode,
       'procedure TTreeNode_PutItem(Index: Integer;const Value: TTreeNode);',
       @TTreeNode_PutItem, Fake);
  RegisterProperty(TTreeNode,
       'property Item[Index: Integer]:TTreeNode read TTreeNode_GetItem write TTreeNode_PutItem;default;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetItemId:HTreeItem;',
       @TTreeNode_GetItemId, Fake);
  RegisterProperty(TTreeNode,
       'property ItemId:HTreeItem read TTreeNode_GetItemId;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetLevel:Integer;',
       @TTreeNode_GetLevel, Fake);
  RegisterProperty(TTreeNode,
       'property Level:Integer read TTreeNode_GetLevel;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetOverlayIndex:Integer;',
       @TTreeNode_GetOverlayIndex, Fake);
  RegisterMethod(TTreeNode,
       'procedure TTreeNode_PutOverlayIndex(const Value: Integer);',
       @TTreeNode_PutOverlayIndex, Fake);
  RegisterProperty(TTreeNode,
       'property OverlayIndex:Integer read TTreeNode_GetOverlayIndex write TTreeNode_PutOverlayIndex;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetOwner:TTreeNodes;',
       @TTreeNode_GetOwner, Fake);
  RegisterProperty(TTreeNode,
       'property Owner:TTreeNodes read TTreeNode_GetOwner;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetParent:TTreeNode;',
       @TTreeNode_GetParent, Fake);
  RegisterProperty(TTreeNode,
       'property Parent:TTreeNode read TTreeNode_GetParent;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetSelectedIndex:Integer;',
       @TTreeNode_GetSelectedIndex, Fake);
  RegisterMethod(TTreeNode,
       'procedure TTreeNode_PutSelectedIndex(const Value: Integer);',
       @TTreeNode_PutSelectedIndex, Fake);
  RegisterProperty(TTreeNode,
       'property SelectedIndex:Integer read TTreeNode_GetSelectedIndex write TTreeNode_PutSelectedIndex;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetStateIndex:Integer;',
       @TTreeNode_GetStateIndex, Fake);
  RegisterMethod(TTreeNode,
       'procedure TTreeNode_PutStateIndex(const Value: Integer);',
       @TTreeNode_PutStateIndex, Fake);
  RegisterProperty(TTreeNode,
       'property StateIndex:Integer read TTreeNode_GetStateIndex write TTreeNode_PutStateIndex;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetText:String;',
       @TTreeNode_GetText, Fake);
  RegisterMethod(TTreeNode,
       'procedure TTreeNode_PutText(const Value: String);',
       @TTreeNode_PutText, Fake);
  RegisterProperty(TTreeNode,
       'property Text:String read TTreeNode_GetText write TTreeNode_PutText;');
  RegisterMethod(TTreeNode,
       'function TTreeNode_GetTreeView:TCustomTreeView;',
       @TTreeNode_GetTreeView, Fake);
  RegisterProperty(TTreeNode,
       'property TreeView:TCustomTreeView read TTreeNode_GetTreeView;');
  // End of class TTreeNode
  // Begin of class TTreeNodes
  RegisterClassType(TTreeNodes, H);
  RegisterMethod(TTreeNodes,
       'constructor Create(AOwner: TCustomTreeView);',
       @TTreeNodes.Create);
  RegisterMethod(TTreeNodes,
       'destructor Destroy; override;',
       @TTreeNodes.Destroy);
  RegisterMethod(TTreeNodes,
       'function AddChildFirst(Node: TTreeNode; const S: string): TTreeNode;',
       @TTreeNodes.AddChildFirst);
  RegisterMethod(TTreeNodes,
       'function AddChild(Node: TTreeNode; const S: string): TTreeNode;',
       @TTreeNodes.AddChild);
  RegisterMethod(TTreeNodes,
       'function AddChildObjectFirst(Node: TTreeNode; const S: string;      Ptr: Pointer): TTreeNode;',
       @TTreeNodes.AddChildObjectFirst);
  RegisterMethod(TTreeNodes,
       'function AddChildObject(Node: TTreeNode; const S: string;      Ptr: Pointer): TTreeNode;',
       @TTreeNodes.AddChildObject);
  RegisterMethod(TTreeNodes,
       'function AddFirst(Node: TTreeNode; const S: string): TTreeNode;',
       @TTreeNodes.AddFirst);
  RegisterMethod(TTreeNodes,
       'function Add(Node: TTreeNode; const S: string): TTreeNode;',
       @TTreeNodes.Add);
  RegisterMethod(TTreeNodes,
       'function AddObjectFirst(Node: TTreeNode; const S: string;      Ptr: Pointer): TTreeNode;',
       @TTreeNodes.AddObjectFirst);
  RegisterMethod(TTreeNodes,
       'function AddObject(Node: TTreeNode; const S: string;      Ptr: Pointer): TTreeNode;',
       @TTreeNodes.AddObject);
  RegisterMethod(TTreeNodes,
       'procedure Assign(Source: TPersistent); override;',
       @TTreeNodes.Assign);
  RegisterMethod(TTreeNodes,
       'procedure BeginUpdate;',
       @TTreeNodes.BeginUpdate);
  RegisterMethod(TTreeNodes,
       'procedure Clear;',
       @TTreeNodes.Clear);
  RegisterMethod(TTreeNodes,
       'procedure Delete(Node: TTreeNode);',
       @TTreeNodes.Delete);
  RegisterMethod(TTreeNodes,
       'procedure EndUpdate;',
       @TTreeNodes.EndUpdate);
  RegisterMethod(TTreeNodes,
       'function GetFirstNode: TTreeNode;',
       @TTreeNodes.GetFirstNode);
  RegisterMethod(TTreeNodes,
       'function GetNode(ItemId: HTreeItem): TTreeNode;',
       @TTreeNodes.GetNode);
  RegisterMethod(TTreeNodes,
       'function Insert(Node: TTreeNode; const S: string): TTreeNode;',
       @TTreeNodes.Insert);
  RegisterMethod(TTreeNodes,
       'function InsertObject(Node: TTreeNode; const S: string;      Ptr: Pointer): TTreeNode;',
       @TTreeNodes.InsertObject);
  RegisterMethod(TTreeNodes,
       'function TTreeNodes_GetCount:Integer;',
       @TTreeNodes_GetCount, Fake);
  RegisterProperty(TTreeNodes,
       'property Count:Integer read TTreeNodes_GetCount;');
  RegisterMethod(TTreeNodes,
       'function TTreeNodes_GetHandle:HWND;',
       @TTreeNodes_GetHandle, Fake);
  RegisterProperty(TTreeNodes,
       'property Handle:HWND read TTreeNodes_GetHandle;');
  RegisterMethod(TTreeNodes,
       'function TTreeNodes_GetItem(Index: Integer):TTreeNode;',
       @TTreeNodes_GetItem, Fake);
  RegisterProperty(TTreeNodes,
       'property Item[Index: Integer]:TTreeNode read TTreeNodes_GetItem;default;');
  RegisterMethod(TTreeNodes,
       'function TTreeNodes_GetOwner:TCustomTreeView;',
       @TTreeNodes_GetOwner, Fake);
  RegisterProperty(TTreeNodes,
       'property Owner:TCustomTreeView read TTreeNodes_GetOwner;');
  // End of class TTreeNodes
  RegisterRTTIType(TypeInfo(TSortType));
  // Begin of class TCustomTreeView
  RegisterClassType(TCustomTreeView, H);
  RegisterMethod(TCustomTreeView,
       'constructor Create(AOwner: TComponent); override;',
       @TCustomTreeView.Create);
  RegisterMethod(TCustomTreeView,
       'destructor Destroy; override;',
       @TCustomTreeView.Destroy);
  RegisterMethod(TCustomTreeView,
       'function AlphaSort: Boolean;',
       @TCustomTreeView.AlphaSort);
  RegisterMethod(TCustomTreeView,
       'function CustomSort(SortProc: TTVCompare; Data: Longint): Boolean;',
       @TCustomTreeView.CustomSort);
  RegisterMethod(TCustomTreeView,
       'procedure FullCollapse;',
       @TCustomTreeView.FullCollapse);
  RegisterMethod(TCustomTreeView,
       'procedure FullExpand;',
       @TCustomTreeView.FullExpand);
  RegisterMethod(TCustomTreeView,
       'function GetHitTestInfoAt(X, Y: Integer): THitTests;',
       @TCustomTreeView.GetHitTestInfoAt);
  RegisterMethod(TCustomTreeView,
       'function GetNodeAt(X, Y: Integer): TTreeNode;',
       @TCustomTreeView.GetNodeAt);
  RegisterMethod(TCustomTreeView,
       'function IsEditing: Boolean;',
       @TCustomTreeView.IsEditing);
  RegisterMethod(TCustomTreeView,
       'procedure LoadFromFile(const FileName: string);',
       @TCustomTreeView.LoadFromFile);
  RegisterMethod(TCustomTreeView,
       'procedure LoadFromStream(Stream: TStream);',
       @TCustomTreeView.LoadFromStream);
  RegisterMethod(TCustomTreeView,
       'procedure SaveToFile(const FileName: string);',
       @TCustomTreeView.SaveToFile);
  RegisterMethod(TCustomTreeView,
       'procedure SaveToStream(Stream: TStream);',
       @TCustomTreeView.SaveToStream);
  RegisterMethod(TCustomTreeView,
       'function TCustomTreeView_GetCanvas:TCanvas;',
       @TCustomTreeView_GetCanvas, Fake);
  RegisterProperty(TCustomTreeView,
       'property Canvas:TCanvas read TCustomTreeView_GetCanvas;');
  RegisterMethod(TCustomTreeView,