imp_comctrls.pas

Delphi脚本控件

end;
function TCustomListView_GetRowSelect:Boolean;
begin
  result := TCustomListView(_Self).RowSelect;
end;
procedure TCustomListView_PutRowSelect(const Value: Boolean);
begin
  TCustomListView(_Self).RowSelect := Value;
end;
function TCustomListView_GetSelCount:Integer;
begin
  result := TCustomListView(_Self).SelCount;
end;
function TCustomListView_GetSelected:TListItem;
begin
  result := TCustomListView(_Self).Selected;
end;
procedure TCustomListView_PutSelected(const Value: TListItem);
begin
  TCustomListView(_Self).Selected := Value;
end;
function TCustomListView_GetTopItem:TListItem;
begin
  result := TCustomListView(_Self).TopItem;
end;
function TCustomListView_GetViewOrigin:TPoint;
begin
  result := TCustomListView(_Self).ViewOrigin;
end;
function TCustomListView_GetVisibleRowCount:Integer;
begin
  result := TCustomListView(_Self).VisibleRowCount;
end;
function TCustomListView_GetBoundingRect:TRect;
begin
  result := TCustomListView(_Self).BoundingRect;
end;
function TCustomListView_GetWorkAreas:TWorkAreas;
begin
  result := TCustomListView(_Self).WorkAreas;
end;
function TAnimate_GetFrameCount:Integer;
begin
  result := TAnimate(_Self).FrameCount;
end;
function TAnimate_GetFrameHeight:Integer;
begin
  result := TAnimate(_Self).FrameHeight;
end;
function TAnimate_GetFrameWidth:Integer;
begin
  result := TAnimate(_Self).FrameWidth;
end;
function TAnimate_GetOpen:Boolean;
begin
  result := TAnimate(_Self).Open;
end;
procedure TAnimate_PutOpen(const Value: Boolean);
begin
  TAnimate(_Self).Open := Value;
end;
function TAnimate_GetResHandle:THandle;
begin
  result := TAnimate(_Self).ResHandle;
end;
procedure TAnimate_PutResHandle(const Value: THandle);
begin
  TAnimate(_Self).ResHandle := Value;
end;
function TAnimate_GetResId:Integer;
begin
  result := TAnimate(_Self).ResId;
end;
procedure TAnimate_PutResId(const Value: Integer);
begin
  TAnimate(_Self).ResId := Value;
end;
function TAnimate_GetResName:String;
begin
  result := TAnimate(_Self).ResName;
end;
procedure TAnimate_PutResName(const Value: String);
begin
  TAnimate(_Self).ResName := Value;
end;
function TToolButton_GetIndex:Integer;
begin
  result := TToolButton(_Self).Index;
end;
function TToolBar_GetButtonCount:Integer;
begin
  result := TToolBar(_Self).ButtonCount;
end;
function TToolBar_GetButtons(Index: Integer):TToolButton;
begin
  result := TToolBar(_Self).Buttons[Index];
end;
function TToolBar_GetCanvas:TCanvas;
begin
  result := TToolBar(_Self).Canvas;
end;
function TToolBar_GetRowCount:Integer;
begin
  result := TToolBar(_Self).RowCount;
end;
function TCoolBand_GetHeight:Integer;
begin
  result := TCoolBand(_Self).Height;
end;
function TCoolBands_GetCoolBar:TCoolBar;
begin
  result := TCoolBands(_Self).CoolBar;
end;
function TCoolBands_GetItems(Index: Integer):TCoolBand;
begin
  result := TCoolBands(_Self).Items[Index];
end;
procedure TCoolBands_PutItems(Index: Integer;const Value: TCoolBand);
begin
  TCoolBands(_Self).Items[Index] := Value;
end;
function TDateTimePicker_GetDroppedDown:Boolean;
begin
  result := TDateTimePicker(_Self).DroppedDown;
end;
procedure RegisterIMP_comctrls;
var H: Integer;
begin
  H := RegisterNamespace('comctrls', -1);
  RegisterRTTIType(TypeInfo(THitTest));
  RegisterRTTIType(TypeInfo(TTabPosition));
  RegisterRTTIType(TypeInfo(TTabStyle));
  // Begin of class TCustomTabControl
  RegisterClassType(TCustomTabControl, H);
  RegisterMethod(TCustomTabControl,
       'constructor Create(AOwner: TComponent); override;',
       @TCustomTabControl.Create);
  RegisterMethod(TCustomTabControl,
       'destructor Destroy; override;',
       @TCustomTabControl.Destroy);
  RegisterMethod(TCustomTabControl,
       'function IndexOfTabAt(X, Y: Integer): Integer;',
       @TCustomTabControl.IndexOfTabAt);
  RegisterMethod(TCustomTabControl,
       'function GetHitTestInfoAt(X, Y: Integer): THitTests;',
       @TCustomTabControl.GetHitTestInfoAt);
  RegisterMethod(TCustomTabControl,
       'function TabRect(Index: Integer): TRect;',
       @TCustomTabControl.TabRect);
  RegisterMethod(TCustomTabControl,
       'function RowCount: Integer;',
       @TCustomTabControl.RowCount);
  RegisterMethod(TCustomTabControl,
       'procedure ScrollTabs(Delta: Integer);',
       @TCustomTabControl.ScrollTabs);
  RegisterMethod(TCustomTabControl,
       'function TCustomTabControl_GetCanvas:TCanvas;',
       @TCustomTabControl_GetCanvas, Fake);
  RegisterProperty(TCustomTabControl,
       'property Canvas:TCanvas read TCustomTabControl_GetCanvas;');
  // End of class TCustomTabControl
  // Begin of class TTabControl
  RegisterClassType(TTabControl, H);
  RegisterMethod(TTabControl,
       'constructor Create(AOwner: TComponent); override;',
       @TTabControl.Create);
  // End of class TTabControl
  // Begin of class TTabSheet
  RegisterClassType(TTabSheet, H);
  RegisterMethod(TTabSheet,
       'constructor Create(AOwner: TComponent); override;',
       @TTabSheet.Create);
  RegisterMethod(TTabSheet,
       'destructor Destroy; override;',
       @TTabSheet.Destroy);
  RegisterMethod(TTabSheet,
       'function TTabSheet_GetPageControl:TPageControl;',
       @TTabSheet_GetPageControl, Fake);
  RegisterMethod(TTabSheet,
       'procedure TTabSheet_PutPageControl(const Value: TPageControl);',
       @TTabSheet_PutPageControl, Fake);
  RegisterProperty(TTabSheet,
       'property PageControl:TPageControl read TTabSheet_GetPageControl write TTabSheet_PutPageControl;');
  RegisterMethod(TTabSheet,
       'function TTabSheet_GetTabIndex:Integer;',
       @TTabSheet_GetTabIndex, Fake);
  RegisterProperty(TTabSheet,
       'property TabIndex:Integer read TTabSheet_GetTabIndex;');
  // End of class TTabSheet
  // Begin of class TPageControl
  RegisterClassType(TPageControl, H);
  RegisterMethod(TPageControl,
       'constructor Create(AOwner: TComponent); override;',
       @TPageControl.Create);
  RegisterMethod(TPageControl,
       'destructor Destroy; override;',
       @TPageControl.Destroy);
  RegisterMethod(TPageControl,
       'function FindNextPage(CurPage: TTabSheet;      GoForward, CheckTabVisible: Boolean): TTabSheet;',
       @TPageControl.FindNextPage);
  RegisterMethod(TPageControl,
       'procedure SelectNextPage(GoForward: Boolean);',
       @TPageControl.SelectNextPage);
  RegisterMethod(TPageControl,
       'function TPageControl_GetActivePageIndex:Integer;',
       @TPageControl_GetActivePageIndex, Fake);
  RegisterMethod(TPageControl,
       'procedure TPageControl_PutActivePageIndex(const Value: Integer);',
       @TPageControl_PutActivePageIndex, Fake);
  RegisterProperty(TPageControl,
       'property ActivePageIndex:Integer read TPageControl_GetActivePageIndex write TPageControl_PutActivePageIndex;');
  RegisterMethod(TPageControl,
       'function TPageControl_GetPageCount:Integer;',
       @TPageControl_GetPageCount, Fake);
  RegisterProperty(TPageControl,
       'property PageCount:Integer read TPageControl_GetPageCount;');
  RegisterMethod(TPageControl,
       'function TPageControl_GetPages(Index: Integer):TTabSheet;',
       @TPageControl_GetPages, Fake);
  RegisterProperty(TPageControl,
       'property Pages[Index: Integer]:TTabSheet read TPageControl_GetPages;');
  // End of class TPageControl
  RegisterRTTIType(TypeInfo(TStatusPanelStyle));
  RegisterRTTIType(TypeInfo(TStatusPanelBevel));
  // Begin of class TStatusPanel
  RegisterClassType(TStatusPanel, H);
  RegisterMethod(TStatusPanel,
       'constructor Create(Collection: TCollection); override;',
       @TStatusPanel.Create);
  RegisterMethod(TStatusPanel,
       'procedure Assign(Source: TPersistent); override;',
       @TStatusPanel.Assign);
  RegisterMethod(TStatusPanel,
       'procedure ParentBiDiModeChanged;',
       @TStatusPanel.ParentBiDiModeChanged);
  RegisterMethod(TStatusPanel,
       'function UseRightToLeftAlignment: Boolean;',
       @TStatusPanel.UseRightToLeftAlignment);
  RegisterMethod(TStatusPanel,
       'function UseRightToLeftReading: Boolean;',
       @TStatusPanel.UseRightToLeftReading);
  // End of class TStatusPanel
  // Begin of class TStatusPanels
  RegisterClassType(TStatusPanels, H);
  RegisterMethod(TStatusPanels,
       'constructor Create(StatusBar: TStatusBar);',
       @TStatusPanels.Create);
  RegisterMethod(TStatusPanels,
       'function Add: TStatusPanel;',
       @TStatusPanels.Add);
  RegisterMethod(TStatusPanels,
       'function TStatusPanels_GetItems(Index: Integer):TStatusPanel;',
       @TStatusPanels_GetItems, Fake);
  RegisterMethod(TStatusPanels,
       'procedure TStatusPanels_PutItems(Index: Integer;const Value: TStatusPanel);',
       @TStatusPanels_PutItems, Fake);
  RegisterProperty(TStatusPanels,
       'property Items[Index: Integer]:TStatusPanel read TStatusPanels_GetItems write TStatusPanels_PutItems;default;');
  // End of class TStatusPanels
  // Begin of class TStatusBar
  RegisterClassType(TStatusBar, H);
  RegisterMethod(TStatusBar,
       'constructor Create(AOwner: TComponent); override;',
       @TStatusBar.Create);
  RegisterMethod(TStatusBar,
       'destructor Destroy; override;',
       @TStatusBar.Destroy);
  RegisterMethod(TStatusBar,
       'function ExecuteAction(Action: TBasicAction): Boolean; override;',
       @TStatusBar.ExecuteAction);
  RegisterMethod(TStatusBar,
       'procedure FlipChildren(AllLevels: Boolean); override;',
       @TStatusBar.FlipChildren);
  RegisterMethod(TStatusBar,
       'function TStatusBar_GetCanvas:TCanvas;',
       @TStatusBar_GetCanvas, Fake);
  RegisterProperty(TStatusBar,
       'property Canvas:TCanvas read TStatusBar_GetCanvas;');
  // End of class TStatusBar
  RegisterRTTIType(TypeInfo(TCustomDrawTarget));
  RegisterRTTIType(TypeInfo(TCustomDrawStage));
  RegisterRTTIType(TypeInfo(THeaderSectionStyle));
  // Begin of class THeaderSection
  RegisterClassType(THeaderSection, H);
  RegisterMethod(THeaderSection,
       'constructor Create(Collection: TCollection); override;',
       @THeaderSection.Create);
  RegisterMethod(THeaderSection,
       'procedure Assign(Source: TPersistent); override;',
       @THeaderSection.Assign);
  RegisterMethod(THeaderSection,
       'procedure ParentBiDiModeChanged;',
       @THeaderSection.ParentBiDiModeChanged);
  RegisterMethod(THeaderSection,
       'function UseRightToLeftAlignment: Boolean;',
       @THeaderSection.UseRightToLeftAlignment);
  RegisterMethod(THeaderSection,
       'function UseRightToLeftReading: Boolean;',
       @THeaderSection.UseRightToLeftReading);
  RegisterMethod(THeaderSection,
       'function THeaderSection_GetLeft:Integer;',
       @THeaderSection_GetLeft, Fake);
  RegisterProperty(THeaderSection,
       'property Left:Integer read THeaderSection_GetLeft;');
  RegisterMethod(THeaderSection,
       'function THeaderSection_GetRight:Integer;',
       @THeaderSection_GetRight, Fake);
  RegisterProperty(THeaderSection,
       'property Right:Integer read THeaderSection_GetRight;');
  // End of class THeaderSection
  // Begin of class THeaderSections
  RegisterClassType(THeaderSections, H);
  RegisterMethod(THeaderSections,
       'constructor Create(HeaderControl: THeaderControl);',
       @THeaderSections.Create);
  RegisterMethod(THeaderSections,
       'function Add: THeaderSection;',
       @THeaderSections.Add);
  RegisterMethod(THeaderSections,
       'function THeaderSections_GetItems(Index: Integer):THeaderSection;',
       @THeaderSections_GetItems, Fake);
  RegisterMethod(THeaderSections,
       'procedure THeaderSections_PutItems(Index: Integer;const Value: THeaderSection);',
       @THeaderSections_PutItems, Fake);
  RegisterProperty(THeaderSections,
       'property Items[Index: Integer]:THeaderSection read THeaderSections_GetItems write THeaderSections_PutItems;default;');
  // End of class THeaderSections
  RegisterRTTIType(TypeInfo(TSectionTrackState));
  RegisterRTTIType(TypeInfo(THeaderStyle));
  // Begin of class THeaderControl
  RegisterClassType(THeaderControl, H);
  RegisterMethod(THeaderControl,
       'constructor Create(AOwner: TComponent); override;',
       @THeaderControl.Create);
  RegisterMethod(THeaderControl,
       'destructor Destroy; override;',
       @THeaderControl.Destroy);
  RegisterMethod(THeaderControl,
       'function THeaderControl_GetCanvas:TCanvas;',
       @THeaderControl_GetCanvas, Fake);
  RegisterProperty(THeaderControl,
       'property Canvas:TCanvas read THeaderControl_GetCanvas;');
  RegisterMethod(THeaderControl,
       'procedure FlipChildren(AllLevels: Boolean); override;',
       @THeaderControl.FlipChildren);
  // End of class THeaderControl
  RegisterRTTIType(TypeInfo(TNodeState));
  RegisterRTTIType(TypeInfo(TNodeAttachMode));
  RegisterRTTIType(TypeInfo(TAddMode));
  // Begin of class TTreeNode
  RegisterClassType(TTreeNode, H);
  RegisterMethod(TTreeNode,
       'constructor Create(AOwner: TTreeNodes);',
       @TTreeNode.Create);
  RegisterMethod(TTreeNode,
       'destructor Destroy; override;',
       @TTreeNode.Destroy);
  RegisterMethod(TTreeNode,
       'function AlphaSort: Boolean;',
       @TTreeNode.AlphaSort);