imp_comctrls.pas

Delphi脚本控件

       'function TCustomTreeView_GetDropTarget:TTreeNode;',
       @TCustomTreeView_GetDropTarget, Fake);
  RegisterMethod(TCustomTreeView,
       'procedure TCustomTreeView_PutDropTarget(const Value: TTreeNode);',
       @TCustomTreeView_PutDropTarget, Fake);
  RegisterProperty(TCustomTreeView,
       'property DropTarget:TTreeNode read TCustomTreeView_GetDropTarget write TCustomTreeView_PutDropTarget;');
  RegisterMethod(TCustomTreeView,
       'function TCustomTreeView_GetSelected:TTreeNode;',
       @TCustomTreeView_GetSelected, Fake);
  RegisterMethod(TCustomTreeView,
       'procedure TCustomTreeView_PutSelected(const Value: TTreeNode);',
       @TCustomTreeView_PutSelected, Fake);
  RegisterProperty(TCustomTreeView,
       'property Selected:TTreeNode read TCustomTreeView_GetSelected write TCustomTreeView_PutSelected;');
  RegisterMethod(TCustomTreeView,
       'function TCustomTreeView_GetTopItem:TTreeNode;',
       @TCustomTreeView_GetTopItem, Fake);
  RegisterMethod(TCustomTreeView,
       'procedure TCustomTreeView_PutTopItem(const Value: TTreeNode);',
       @TCustomTreeView_PutTopItem, Fake);
  RegisterProperty(TCustomTreeView,
       'property TopItem:TTreeNode read TCustomTreeView_GetTopItem write TCustomTreeView_PutTopItem;');
  // End of class TCustomTreeView
  // Begin of class TTreeView
  RegisterClassType(TTreeView, H);
  RegisterMethod(TTreeView,
       'constructor Create(AOwner: TComponent); override;',
       @TTreeView.Create);
  // End of class TTreeView
  RegisterRTTIType(TypeInfo(TTrackBarOrientation));
  RegisterRTTIType(TypeInfo(TTickMark));
  RegisterRTTIType(TypeInfo(TTickStyle));
  // Begin of class TTrackBar
  RegisterClassType(TTrackBar, H);
  RegisterMethod(TTrackBar,
       'constructor Create(AOwner: TComponent); override;',
       @TTrackBar.Create);
  RegisterMethod(TTrackBar,
       'procedure SetTick(Value: Integer);',
       @TTrackBar.SetTick);
  // End of class TTrackBar
  RegisterRTTIType(TypeInfo(TProgressBarOrientation));
  // Begin of class TProgressBar
  RegisterClassType(TProgressBar, H);
  RegisterMethod(TProgressBar,
       'constructor Create(AOwner: TComponent); override;',
       @TProgressBar.Create);
  RegisterMethod(TProgressBar,
       'procedure StepIt;',
       @TProgressBar.StepIt);
  RegisterMethod(TProgressBar,
       'procedure StepBy(Delta: Integer);',
       @TProgressBar.StepBy);
  // End of class TProgressBar
  RegisterRTTIType(TypeInfo(TAttributeType));
  RegisterRTTIType(TypeInfo(TConsistentAttribute));
  // Begin of class TTextAttributes
  RegisterClassType(TTextAttributes, H);
  RegisterMethod(TTextAttributes,
       'constructor Create(AOwner: TCustomRichEdit; AttributeType: TAttributeType);',
       @TTextAttributes.Create);
  RegisterMethod(TTextAttributes,
       'procedure Assign(Source: TPersistent); override;',
       @TTextAttributes.Assign);
  RegisterMethod(TTextAttributes,
       'function TTextAttributes_GetCharset:TFontCharset;',
       @TTextAttributes_GetCharset, Fake);
  RegisterMethod(TTextAttributes,
       'procedure TTextAttributes_PutCharset(const Value: TFontCharset);',
       @TTextAttributes_PutCharset, Fake);
  RegisterProperty(TTextAttributes,
       'property Charset:TFontCharset read TTextAttributes_GetCharset write TTextAttributes_PutCharset;');
  RegisterMethod(TTextAttributes,
       'function TTextAttributes_GetColor:TColor;',
       @TTextAttributes_GetColor, Fake);
  RegisterMethod(TTextAttributes,
       'procedure TTextAttributes_PutColor(const Value: TColor);',
       @TTextAttributes_PutColor, Fake);
  RegisterProperty(TTextAttributes,
       'property Color:TColor read TTextAttributes_GetColor write TTextAttributes_PutColor;');
  RegisterMethod(TTextAttributes,
       'function TTextAttributes_GetConsistentAttributes:TConsistentAttributes;',
       @TTextAttributes_GetConsistentAttributes, Fake);
  RegisterProperty(TTextAttributes,
       'property ConsistentAttributes:TConsistentAttributes read TTextAttributes_GetConsistentAttributes;');
  RegisterMethod(TTextAttributes,
       'function TTextAttributes_GetName:TFontName;',
       @TTextAttributes_GetName, Fake);
  RegisterMethod(TTextAttributes,
       'procedure TTextAttributes_PutName(const Value: TFontName);',
       @TTextAttributes_PutName, Fake);
  RegisterProperty(TTextAttributes,
       'property Name:TFontName read TTextAttributes_GetName write TTextAttributes_PutName;');
  RegisterMethod(TTextAttributes,
       'function TTextAttributes_GetPitch:TFontPitch;',
       @TTextAttributes_GetPitch, Fake);
  RegisterMethod(TTextAttributes,
       'procedure TTextAttributes_PutPitch(const Value: TFontPitch);',
       @TTextAttributes_PutPitch, Fake);
  RegisterProperty(TTextAttributes,
       'property Pitch:TFontPitch read TTextAttributes_GetPitch write TTextAttributes_PutPitch;');
  RegisterMethod(TTextAttributes,
       'function TTextAttributes_GetProtected:Boolean;',
       @TTextAttributes_GetProtected, Fake);
  RegisterMethod(TTextAttributes,
       'procedure TTextAttributes_PutProtected(const Value: Boolean);',
       @TTextAttributes_PutProtected, Fake);
  RegisterProperty(TTextAttributes,
       'property Protected:Boolean read TTextAttributes_GetProtected write TTextAttributes_PutProtected;');
  RegisterMethod(TTextAttributes,
       'function TTextAttributes_GetSize:Integer;',
       @TTextAttributes_GetSize, Fake);
  RegisterMethod(TTextAttributes,
       'procedure TTextAttributes_PutSize(const Value: Integer);',
       @TTextAttributes_PutSize, Fake);
  RegisterProperty(TTextAttributes,
       'property Size:Integer read TTextAttributes_GetSize write TTextAttributes_PutSize;');
  RegisterMethod(TTextAttributes,
       'function TTextAttributes_GetStyle:TFontStyles;',
       @TTextAttributes_GetStyle, Fake);
  RegisterMethod(TTextAttributes,
       'procedure TTextAttributes_PutStyle(const Value: TFontStyles);',
       @TTextAttributes_PutStyle, Fake);
  RegisterProperty(TTextAttributes,
       'property Style:TFontStyles read TTextAttributes_GetStyle write TTextAttributes_PutStyle;');
  RegisterMethod(TTextAttributes,
       'function TTextAttributes_GetHeight:Integer;',
       @TTextAttributes_GetHeight, Fake);
  RegisterMethod(TTextAttributes,
       'procedure TTextAttributes_PutHeight(const Value: Integer);',
       @TTextAttributes_PutHeight, Fake);
  RegisterProperty(TTextAttributes,
       'property Height:Integer read TTextAttributes_GetHeight write TTextAttributes_PutHeight;');
  // End of class TTextAttributes
  RegisterRTTIType(TypeInfo(TNumberingStyle));
  // Begin of class TParaAttributes
  RegisterClassType(TParaAttributes, H);
  RegisterMethod(TParaAttributes,
       'constructor Create(AOwner: TCustomRichEdit);',
       @TParaAttributes.Create);
  RegisterMethod(TParaAttributes,
       'procedure Assign(Source: TPersistent); override;',
       @TParaAttributes.Assign);
  RegisterMethod(TParaAttributes,
       'function TParaAttributes_GetAlignment:TAlignment;',
       @TParaAttributes_GetAlignment, Fake);
  RegisterMethod(TParaAttributes,
       'procedure TParaAttributes_PutAlignment(const Value: TAlignment);',
       @TParaAttributes_PutAlignment, Fake);
  RegisterProperty(TParaAttributes,
       'property Alignment:TAlignment read TParaAttributes_GetAlignment write TParaAttributes_PutAlignment;');
  RegisterMethod(TParaAttributes,
       'function TParaAttributes_GetFirstIndent:Longint;',
       @TParaAttributes_GetFirstIndent, Fake);
  RegisterMethod(TParaAttributes,
       'procedure TParaAttributes_PutFirstIndent(const Value: Longint);',
       @TParaAttributes_PutFirstIndent, Fake);
  RegisterProperty(TParaAttributes,
       'property FirstIndent:Longint read TParaAttributes_GetFirstIndent write TParaAttributes_PutFirstIndent;');
  RegisterMethod(TParaAttributes,
       'function TParaAttributes_GetLeftIndent:Longint;',
       @TParaAttributes_GetLeftIndent, Fake);
  RegisterMethod(TParaAttributes,
       'procedure TParaAttributes_PutLeftIndent(const Value: Longint);',
       @TParaAttributes_PutLeftIndent, Fake);
  RegisterProperty(TParaAttributes,
       'property LeftIndent:Longint read TParaAttributes_GetLeftIndent write TParaAttributes_PutLeftIndent;');
  RegisterMethod(TParaAttributes,
       'function TParaAttributes_GetNumbering:TNumberingStyle;',
       @TParaAttributes_GetNumbering, Fake);
  RegisterMethod(TParaAttributes,
       'procedure TParaAttributes_PutNumbering(const Value: TNumberingStyle);',
       @TParaAttributes_PutNumbering, Fake);
  RegisterProperty(TParaAttributes,
       'property Numbering:TNumberingStyle read TParaAttributes_GetNumbering write TParaAttributes_PutNumbering;');
  RegisterMethod(TParaAttributes,
       'function TParaAttributes_GetRightIndent:Longint;',
       @TParaAttributes_GetRightIndent, Fake);
  RegisterMethod(TParaAttributes,
       'procedure TParaAttributes_PutRightIndent(const Value: Longint);',
       @TParaAttributes_PutRightIndent, Fake);
  RegisterProperty(TParaAttributes,
       'property RightIndent:Longint read TParaAttributes_GetRightIndent write TParaAttributes_PutRightIndent;');
  RegisterMethod(TParaAttributes,
       'function TParaAttributes_GetTab(Index: Byte):Longint;',
       @TParaAttributes_GetTab, Fake);
  RegisterMethod(TParaAttributes,
       'procedure TParaAttributes_PutTab(Index: Byte;const Value: Longint);',
       @TParaAttributes_PutTab, Fake);
  RegisterProperty(TParaAttributes,
       'property Tab[Index: Byte]:Longint read TParaAttributes_GetTab write TParaAttributes_PutTab;');
  RegisterMethod(TParaAttributes,
       'function TParaAttributes_GetTabCount:Integer;',
       @TParaAttributes_GetTabCount, Fake);
  RegisterMethod(TParaAttributes,
       'procedure TParaAttributes_PutTabCount(const Value: Integer);',
       @TParaAttributes_PutTabCount, Fake);
  RegisterProperty(TParaAttributes,
       'property TabCount:Integer read TParaAttributes_GetTabCount write TParaAttributes_PutTabCount;');
  // End of class TParaAttributes
  RegisterRTTIType(TypeInfo(TSearchType));
  // Begin of class TConversion
  RegisterClassType(TConversion, H);
  RegisterMethod(TConversion,
       'function ConvertReadStream(Stream: TStream; Buffer: PChar; BufSize: Integer): Integer; virtual;',
       @TConversion.ConvertReadStream);
  RegisterMethod(TConversion,
       'function ConvertWriteStream(Stream: TStream; Buffer: PChar; BufSize: Integer): Integer; virtual;',
       @TConversion.ConvertWriteStream);
  RegisterMethod(TConversion,
       'constructor Create;',
       @TConversion.Create);
  // End of class TConversion
  // Begin of class TCustomRichEdit
  RegisterClassType(TCustomRichEdit, H);
  RegisterMethod(TCustomRichEdit,
       'constructor Create(AOwner: TComponent); override;',
       @TCustomRichEdit.Create);
  RegisterMethod(TCustomRichEdit,
       'destructor Destroy; override;',
       @TCustomRichEdit.Destroy);
  RegisterMethod(TCustomRichEdit,
       'procedure Clear; override;',
       @TCustomRichEdit.Clear);
  RegisterMethod(TCustomRichEdit,
       'function FindText(const SearchStr: string;      StartPos, Length: Integer; Options: TSearchTypes): Integer;',
       @TCustomRichEdit.FindText);
  RegisterMethod(TCustomRichEdit,
       'function GetSelTextBuf(Buffer: PChar; BufSize: Integer): Integer; override;',
       @TCustomRichEdit.GetSelTextBuf);
  RegisterMethod(TCustomRichEdit,
       'procedure Print(const Caption: string); virtual;',
       @TCustomRichEdit.Print);
  RegisterMethod(TCustomRichEdit,
       'procedure RegisterConversionFormat(const AExtension: string;      AConversionClass: TConversionClass);',
       @TCustomRichEdit.RegisterConversionFormat);
  RegisterMethod(TCustomRichEdit,
       'function TCustomRichEdit_GetDefaultConverter:TConversionClass;',
       @TCustomRichEdit_GetDefaultConverter, Fake);
  RegisterMethod(TCustomRichEdit,
       'procedure TCustomRichEdit_PutDefaultConverter(const Value: TConversionClass);',
       @TCustomRichEdit_PutDefaultConverter, Fake);
  RegisterProperty(TCustomRichEdit,
       'property DefaultConverter:TConversionClass read TCustomRichEdit_GetDefaultConverter write TCustomRichEdit_PutDefaultConverter;');
  RegisterMethod(TCustomRichEdit,
       'function TCustomRichEdit_GetDefAttributes:TTextAttributes;',
       @TCustomRichEdit_GetDefAttributes, Fake);
  RegisterMethod(TCustomRichEdit,
       'procedure TCustomRichEdit_PutDefAttributes(const Value: TTextAttributes);',
       @TCustomRichEdit_PutDefAttributes, Fake);
  RegisterProperty(TCustomRichEdit,
       'property DefAttributes:TTextAttributes read TCustomRichEdit_GetDefAttributes write TCustomRichEdit_PutDefAttributes;');
  RegisterMethod(TCustomRichEdit,
       'function TCustomRichEdit_GetSelAttributes:TTextAttributes;',
       @TCustomRichEdit_GetSelAttributes, Fake);
  RegisterMethod(TCustomRichEdit,
       'procedure TCustomRichEdit_PutSelAttributes(const Value: TTextAttributes);',
       @TCustomRichEdit_PutSelAttributes, Fake);
  RegisterProperty(TCustomRichEdit,
       'property SelAttributes:TTextAttributes read TCustomRichEdit_GetSelAttributes write TCustomRichEdit_PutSelAttributes;');
  RegisterMethod(TCustomRichEdit,
       'function TCustomRichEdit_GetPageRect:TRect;',
       @TCustomRichEdit_GetPageRect, Fake);
  RegisterMethod(TCustomRichEdit,
       'procedure TCustomRichEdit_PutPageRect(const Value: TRect);',
       @TCustomRichEdit_PutPageRect, Fake);
  RegisterProperty(TCustomRichEdit,
       'property PageRect:TRect read TCustomRichEdit_GetPageRect write TCustomRichEdit_PutPageRect;');
  RegisterMethod(TCustomRichEdit,
       'function TCustomRichEdit_GetParagraph:TParaAttributes;',
       @TCustomRichEdit_GetParagraph, Fake);
  RegisterProperty(TCustomRichEdit,
       'property Paragraph:TParaAttributes read TCustomRichEdit_GetParagraph;');
  // End of class TCustomRichEdit
  // Begin of class TRichEdit
  RegisterClassType(TRichEdit, H);
  RegisterMethod(TRichEdit,
       'constructor Create(AOwner: TComponent); override;',
       @TRichEdit.Create);
  // End of class TRichEdit
  RegisterRTTIType(TypeInfo(TUDAlignButton));
  RegisterRTTIType(TypeInfo(TUDOrientation));
  RegisterRTTIType(TypeInfo(TUDBtnType));
  RegisterRTTIType(TypeInfo(TUpDownDirection));
  // Begin of class TCustomUpDown
  RegisterClassType(TCustomUpDown, H);
  RegisterMethod(TCustomUpDown,
       'constructor Create(AOwner: TComponent); override;',
       @TCustomUpDown.Create);
  // End of class TCustomUpDown
  // Begin of class TUpDown
  RegisterClassType(TUpDown, H);
  RegisterMethod(TUpDown,
       'constructor Create(AOwner: TComponent); override;',
       @TUpDown.Create);
  // End of class TUpDown
  RegisterRTTIType(TypeInfo(THKModifier));
  RegisterRTTIType(TypeInfo(THKInvalidKey));
  // Begin of class TCustomHotKey
  RegisterClassType(TCustomHotKey, H);
  RegisterMethod(TCustomHotKey,
       'constructor Create(AOwner: TComponent); override;',
       @TCustomHotKey.Create);
  // End of class TCustomHotKey
  // Begin of class THotKey
  RegisterClassType(THotKey, H);
  RegisterMethod(THotKey,
       'constructor Create(AOwner: TComponent); override;',
       @THotKey.Create);
  // End of class THotKey
  // Begin of class TListColumn
  RegisterClassType(TListColumn, H);
  RegisterMethod(TListColumn,
       'constructor Create(Collection: TCollection); override;',
       @TListColumn.Create);
  RegisterMethod(TListColumn,
       'destructor Destroy; override;',
       @TListColumn.Destroy);
  RegisterMethod(TListColumn,
       'procedure Assign(Source: TPersistent); override;',
       @TListColumn.Assign);
  RegisterMethod(TListColumn,
       'function TListColumn_GetWidthType:TWidth;',
       @TListColumn_GetWidthType, Fake);
  RegisterProperty(TListColumn,
       'property WidthType:TWidth read TListColumn_GetWidthType;');
  // End of class TListColumn
  // Begin of class TListColumns
  RegisterClassType(TListColumns, H);
  RegisterMethod(TListColumns,
       'constructor Create(AOwner: TCustomListView);',
       @TListColumns.Create);
  RegisterMethod(TListColumns,
       'function Add: TListColumn;',
       @TListColumns.Add);
  RegisterMethod(TListColumns,
       'function TListColumns_GetOwner:TCustomListView;',
       @TListColumns_GetOwner, Fake);
  RegisterProperty(TListColumns,
       'property Owner:TCustomListView read TListColumns_GetOwner;');
  RegisterMethod(TListColumns,
       'function TListColumns_GetItems(Index: Integer):TListColumn;',
       @TListColumns_GetItems, Fake);
  RegisterMethod(TListColumns,
       'procedure TListColumns_PutItems(Index: Integer;const Value: TListColumn);',
       @TListColumns_PutItems, Fake);
  RegisterProperty(TListColumns,
       'property Items[Index: Integer]:TListColumn read TListColumns_GetItems write TListColumns_PutItems;default;');
  // End of class TListColumns
  RegisterRTTIType(TypeInfo(TDisplayCode));
  // Begin of class TListItem
  RegisterClassType(TListItem, H);
  RegisterMethod(TListItem,
       'constructor Create(AOwner: TListItems);',
       @TListItem.Create);
  Regi