imp_comctrls.pas

Delphi脚本控件

unit IMP_comctrls;
interface
uses
  Messages,
  Windows,
  SysUtils,
  CommCtrl,
  Classes,
  Controls,
  Forms,
  Menus,
  Graphics,
  StdCtrls,
  RichEdit,
  ToolWin,
  ImgList,
  ExtCtrls,
  comctrls,
  PaxScripter;
procedure RegisterIMP_comctrls;
implementation

type
  TSubItems = class(TStringList);

function TCustomTabControl_GetCanvas:TCanvas;
begin
  result := TCustomTabControl(_Self).Canvas;
end;
function TTabSheet_GetPageControl:TPageControl;
begin
  result := TTabSheet(_Self).PageControl;
end;
procedure TTabSheet_PutPageControl(const Value: TPageControl);
begin
  TTabSheet(_Self).PageControl := Value;
end;
function TTabSheet_GetTabIndex:Integer;
begin
  result := TTabSheet(_Self).TabIndex;
end;
function TPageControl_GetActivePageIndex:Integer;
begin
  result := TPageControl(_Self).ActivePageIndex;
end;
procedure TPageControl_PutActivePageIndex(const Value: Integer);
begin
  TPageControl(_Self).ActivePageIndex := Value;
end;
function TPageControl_GetPageCount:Integer;
begin
  result := TPageControl(_Self).PageCount;
end;
function TPageControl_GetPages(Index: Integer):TTabSheet;
begin
  result := TPageControl(_Self).Pages[Index];
end;
function TStatusPanels_GetItems(Index: Integer):TStatusPanel;
begin
  result := TStatusPanels(_Self).Items[Index];
end;
procedure TStatusPanels_PutItems(Index: Integer;const Value: TStatusPanel);
begin
  TStatusPanels(_Self).Items[Index] := Value;
end;
function TStatusBar_GetCanvas:TCanvas;
begin
  result := TStatusBar(_Self).Canvas;
end;
function THeaderSection_GetLeft:Integer;
begin
  result := THeaderSection(_Self).Left;
end;
function THeaderSection_GetRight:Integer;
begin
  result := THeaderSection(_Self).Right;
end;
function THeaderSections_GetItems(Index: Integer):THeaderSection;
begin
  result := THeaderSections(_Self).Items[Index];
end;
procedure THeaderSections_PutItems(Index: Integer;const Value: THeaderSection);
begin
  THeaderSections(_Self).Items[Index] := Value;
end;
function THeaderControl_GetCanvas:TCanvas;
begin
  result := THeaderControl(_Self).Canvas;
end;
function TTreeNode_GetAbsoluteIndex:Integer;
begin
  result := TTreeNode(_Self).AbsoluteIndex;
end;
function TTreeNode_GetCount:Integer;
begin
  result := TTreeNode(_Self).Count;
end;
function TTreeNode_GetCut:Boolean;
begin
  result := TTreeNode(_Self).Cut;
end;
procedure TTreeNode_PutCut(const Value: Boolean);
begin
  TTreeNode(_Self).Cut := Value;
end;
function TTreeNode_GetData:Pointer;
begin
  result := TTreeNode(_Self).Data;
end;
procedure TTreeNode_PutData(const Value: Pointer);
begin
  TTreeNode(_Self).Data := Value;
end;
function TTreeNode_GetDeleting:Boolean;
begin
  result := TTreeNode(_Self).Deleting;
end;
function TTreeNode_GetFocused:Boolean;
begin
  result := TTreeNode(_Self).Focused;
end;
procedure TTreeNode_PutFocused(const Value: Boolean);
begin
  TTreeNode(_Self).Focused := Value;
end;
function TTreeNode_GetDropTarget:Boolean;
begin
  result := TTreeNode(_Self).DropTarget;
end;
procedure TTreeNode_PutDropTarget(const Value: Boolean);
begin
  TTreeNode(_Self).DropTarget := Value;
end;
function TTreeNode_GetSelected:Boolean;
begin
  result := TTreeNode(_Self).Selected;
end;
procedure TTreeNode_PutSelected(const Value: Boolean);
begin
  TTreeNode(_Self).Selected := Value;
end;
function TTreeNode_GetExpanded:Boolean;
begin
  result := TTreeNode(_Self).Expanded;
end;
procedure TTreeNode_PutExpanded(const Value: Boolean);
begin
  TTreeNode(_Self).Expanded := Value;
end;
function TTreeNode_GetHandle:HWND;
begin
  result := TTreeNode(_Self).Handle;
end;
function TTreeNode_GetHasChildren:Boolean;
begin
  result := TTreeNode(_Self).HasChildren;
end;
procedure TTreeNode_PutHasChildren(const Value: Boolean);
begin
  TTreeNode(_Self).HasChildren := Value;
end;
function TTreeNode_GetImageIndex:TImageIndex;
begin
  result := TTreeNode(_Self).ImageIndex;
end;
procedure TTreeNode_PutImageIndex(const Value: TImageIndex);
begin
  TTreeNode(_Self).ImageIndex := Value;
end;
function TTreeNode_GetIndex:Integer;
begin
  result := TTreeNode(_Self).Index;
end;
function TTreeNode_GetIsVisible:Boolean;
begin
  result := TTreeNode(_Self).IsVisible;
end;
function TTreeNode_GetItem(Index: Integer):TTreeNode;
begin
  result := TTreeNode(_Self).Item[Index];
end;
procedure TTreeNode_PutItem(Index: Integer;const Value: TTreeNode);
begin
  TTreeNode(_Self).Item[Index] := Value;
end;
function TTreeNode_GetItemId:HTreeItem;
begin
  result := TTreeNode(_Self).ItemId;
end;
function TTreeNode_GetLevel:Integer;
begin
  result := TTreeNode(_Self).Level;
end;
function TTreeNode_GetOverlayIndex:Integer;
begin
  result := TTreeNode(_Self).OverlayIndex;
end;
procedure TTreeNode_PutOverlayIndex(const Value: Integer);
begin
  TTreeNode(_Self).OverlayIndex := Value;
end;
function TTreeNode_GetOwner:TTreeNodes;
begin
  result := TTreeNode(_Self).Owner;
end;
function TTreeNode_GetParent:TTreeNode;
begin
  result := TTreeNode(_Self).Parent;
end;
function TTreeNode_GetSelectedIndex:Integer;
begin
  result := TTreeNode(_Self).SelectedIndex;
end;
procedure TTreeNode_PutSelectedIndex(const Value: Integer);
begin
  TTreeNode(_Self).SelectedIndex := Value;
end;
function TTreeNode_GetStateIndex:Integer;
begin
  result := TTreeNode(_Self).StateIndex;
end;
procedure TTreeNode_PutStateIndex(const Value: Integer);
begin
  TTreeNode(_Self).StateIndex := Value;
end;
function TTreeNode_GetText:String;
begin
  result := TTreeNode(_Self).Text;
end;
procedure TTreeNode_PutText(const Value: String);
begin
  TTreeNode(_Self).Text := Value;
end;
function TTreeNode_GetTreeView:TCustomTreeView;
begin
  result := TTreeNode(_Self).TreeView;
end;
function TTreeNodes_GetCount:Integer;
begin
  result := TTreeNodes(_Self).Count;
end;
function TTreeNodes_GetHandle:HWND;
begin
  result := TTreeNodes(_Self).Handle;
end;
function TTreeNodes_GetItem(Index: Integer):TTreeNode;
begin
  result := TTreeNodes(_Self).Item[Index];
end;
function TTreeNodes_GetOwner:TCustomTreeView;
begin
  result := TTreeNodes(_Self).Owner;
end;
function TCustomTreeView_GetCanvas:TCanvas;
begin
  result := TCustomTreeView(_Self).Canvas;
end;
function TCustomTreeView_GetDropTarget:TTreeNode;
begin
  result := TCustomTreeView(_Self).DropTarget;
end;
procedure TCustomTreeView_PutDropTarget(const Value: TTreeNode);
begin
  TCustomTreeView(_Self).DropTarget := Value;
end;
function TCustomTreeView_GetSelected:TTreeNode;
begin
  result := TCustomTreeView(_Self).Selected;
end;
procedure TCustomTreeView_PutSelected(const Value: TTreeNode);
begin
  TCustomTreeView(_Self).Selected := Value;
end;
function TCustomTreeView_GetTopItem:TTreeNode;
begin
  result := TCustomTreeView(_Self).TopItem;
end;
procedure TCustomTreeView_PutTopItem(const Value: TTreeNode);
begin
  TCustomTreeView(_Self).TopItem := Value;
end;
function TTextAttributes_GetCharset:TFontCharset;
begin
  result := TTextAttributes(_Self).Charset;
end;
procedure TTextAttributes_PutCharset(const Value: TFontCharset);
begin
  TTextAttributes(_Self).Charset := Value;
end;
function TTextAttributes_GetColor:TColor;
begin
  result := TTextAttributes(_Self).Color;
end;
procedure TTextAttributes_PutColor(const Value: TColor);
begin
  TTextAttributes(_Self).Color := Value;
end;
function TTextAttributes_GetConsistentAttributes:TConsistentAttributes;
begin
  result := TTextAttributes(_Self).ConsistentAttributes;
end;
function TTextAttributes_GetName:TFontName;
begin
  result := TTextAttributes(_Self).Name;
end;
procedure TTextAttributes_PutName(const Value: TFontName);
begin
  TTextAttributes(_Self).Name := Value;
end;
function TTextAttributes_GetPitch:TFontPitch;
begin
  result := TTextAttributes(_Self).Pitch;
end;
procedure TTextAttributes_PutPitch(const Value: TFontPitch);
begin
  TTextAttributes(_Self).Pitch := Value;
end;
function TTextAttributes_GetProtected:Boolean;
begin
  result := TTextAttributes(_Self).Protected;
end;
procedure TTextAttributes_PutProtected(const Value: Boolean);
begin
  TTextAttributes(_Self).Protected := Value;
end;
function TTextAttributes_GetSize:Integer;
begin
  result := TTextAttributes(_Self).Size;
end;
procedure TTextAttributes_PutSize(const Value: Integer);
begin
  TTextAttributes(_Self).Size := Value;
end;
function TTextAttributes_GetStyle:TFontStyles;
begin
  result := TTextAttributes(_Self).Style;
end;
procedure TTextAttributes_PutStyle(const Value: TFontStyles);
begin
  TTextAttributes(_Self).Style := Value;
end;
function TTextAttributes_GetHeight:Integer;
begin
  result := TTextAttributes(_Self).Height;
end;
procedure TTextAttributes_PutHeight(const Value: Integer);
begin
  TTextAttributes(_Self).Height := Value;
end;
function TParaAttributes_GetAlignment:TAlignment;
begin
  result := TParaAttributes(_Self).Alignment;
end;
procedure TParaAttributes_PutAlignment(const Value: TAlignment);
begin
  TParaAttributes(_Self).Alignment := Value;
end;
function TParaAttributes_GetFirstIndent:Longint;
begin
  result := TParaAttributes(_Self).FirstIndent;