imp_comctrls.pas

Delphi脚本控件

end;
procedure TParaAttributes_PutFirstIndent(const Value: Longint);
begin
  TParaAttributes(_Self).FirstIndent := Value;
end;
function TParaAttributes_GetLeftIndent:Longint;
begin
  result := TParaAttributes(_Self).LeftIndent;
end;
procedure TParaAttributes_PutLeftIndent(const Value: Longint);
begin
  TParaAttributes(_Self).LeftIndent := Value;
end;
function TParaAttributes_GetNumbering:TNumberingStyle;
begin
  result := TParaAttributes(_Self).Numbering;
end;
procedure TParaAttributes_PutNumbering(const Value: TNumberingStyle);
begin
  TParaAttributes(_Self).Numbering := Value;
end;
function TParaAttributes_GetRightIndent:Longint;
begin
  result := TParaAttributes(_Self).RightIndent;
end;
procedure TParaAttributes_PutRightIndent(const Value: Longint);
begin
  TParaAttributes(_Self).RightIndent := Value;
end;
function TParaAttributes_GetTab(Index: Byte):Longint;
begin
  result := TParaAttributes(_Self).Tab[Index];
end;
procedure TParaAttributes_PutTab(Index: Byte;const Value: Longint);
begin
  TParaAttributes(_Self).Tab[Index] := Value;
end;
function TParaAttributes_GetTabCount:Integer;
begin
  result := TParaAttributes(_Self).TabCount;
end;
procedure TParaAttributes_PutTabCount(const Value: Integer);
begin
  TParaAttributes(_Self).TabCount := Value;
end;
function TCustomRichEdit_GetDefaultConverter:TConversionClass;
begin
  result := TCustomRichEdit(_Self).DefaultConverter;
end;
procedure TCustomRichEdit_PutDefaultConverter(const Value: TConversionClass);
begin
  TCustomRichEdit(_Self).DefaultConverter := Value;
end;
function TCustomRichEdit_GetDefAttributes:TTextAttributes;
begin
  result := TCustomRichEdit(_Self).DefAttributes;
end;
procedure TCustomRichEdit_PutDefAttributes(const Value: TTextAttributes);
begin
  TCustomRichEdit(_Self).DefAttributes := Value;
end;
function TCustomRichEdit_GetSelAttributes:TTextAttributes;
begin
  result := TCustomRichEdit(_Self).SelAttributes;
end;
procedure TCustomRichEdit_PutSelAttributes(const Value: TTextAttributes);
begin
  TCustomRichEdit(_Self).SelAttributes := Value;
end;
function TCustomRichEdit_GetPageRect:TRect;
begin
  result := TCustomRichEdit(_Self).PageRect;
end;
procedure TCustomRichEdit_PutPageRect(const Value: TRect);
begin
  TCustomRichEdit(_Self).PageRect := Value;
end;
function TCustomRichEdit_GetParagraph:TParaAttributes;
begin
  result := TCustomRichEdit(_Self).Paragraph;
end;
function TListColumn_GetWidthType:TWidth;
begin
  result := TListColumn(_Self).WidthType;
end;
function TListColumns_GetOwner:TCustomListView;
begin
  result := TListColumns(_Self).Owner;
end;
function TListColumns_GetItems(Index: Integer):TListColumn;
begin
  result := TListColumns(_Self).Items[Index];
end;
procedure TListColumns_PutItems(Index: Integer;const Value: TListColumn);
begin
  TListColumns(_Self).Items[Index] := Value;
end;
function TListItem_GetCaption:String;
begin
  result := TListItem(_Self).Caption;
end;
procedure TListItem_PutCaption(const Value: String);
begin
  TListItem(_Self).Caption := Value;
end;
function TListItem_GetChecked:Boolean;
begin
  result := TListItem(_Self).Checked;
end;
procedure TListItem_PutChecked(const Value: Boolean);
begin
  TListItem(_Self).Checked := Value;
end;
function TListItem_GetCut:Boolean;
begin
  result := TListItem(_Self).Cut;
end;
procedure TListItem_PutCut(const Value: Boolean);
begin
  TListItem(_Self).Cut := Value;
end;
function TListItem_GetData:Pointer;
begin
  result := TListItem(_Self).Data;
end;
procedure TListItem_PutData(const Value: Pointer);
begin
  TListItem(_Self).Data := Value;
end;
function TListItem_GetDropTarget:Boolean;
begin
  result := TListItem(_Self).DropTarget;
end;
procedure TListItem_PutDropTarget(const Value: Boolean);
begin
  TListItem(_Self).DropTarget := Value;
end;
function TListItem_GetFocused:Boolean;
begin
  result := TListItem(_Self).Focused;
end;
procedure TListItem_PutFocused(const Value: Boolean);
begin
  TListItem(_Self).Focused := Value;
end;
function TListItem_GetHandle:HWND;
begin
  result := TListItem(_Self).Handle;
end;
function TListItem_GetImageIndex:TImageIndex;
begin
  result := TListItem(_Self).ImageIndex;
end;
procedure TListItem_PutImageIndex(const Value: TImageIndex);
begin
  TListItem(_Self).ImageIndex := Value;
end;
function TListItem_GetIndent:Integer;
begin
  result := TListItem(_Self).Indent;
end;
procedure TListItem_PutIndent(const Value: Integer);
begin
  TListItem(_Self).Indent := Value;
end;
function TListItem_GetIndex:Integer;
begin
  result := TListItem(_Self).Index;
end;
function TListItem_GetLeft:Integer;
begin
  result := TListItem(_Self).Left;
end;
procedure TListItem_PutLeft(const Value: Integer);
begin
  TListItem(_Self).Left := Value;
end;
function TListItem_GetListView:TCustomListView;
begin
  result := TListItem(_Self).ListView;
end;
function TListItem_GetOwner:TListItems;
begin
  result := TListItem(_Self).Owner;
end;
function TListItem_GetOverlayIndex:TImageIndex;
begin
  result := TListItem(_Self).OverlayIndex;
end;
procedure TListItem_PutOverlayIndex(const Value: TImageIndex);
begin
  TListItem(_Self).OverlayIndex := Value;
end;
function TListItem_GetPosition:TPoint;
begin
  result := TListItem(_Self).Position;
end;
procedure TListItem_PutPosition(const Value: TPoint);
begin
  TListItem(_Self).Position := Value;
end;
function TListItem_GetSelected:Boolean;
begin
  result := TListItem(_Self).Selected;
end;
procedure TListItem_PutSelected(const Value: Boolean);
begin
  TListItem(_Self).Selected := Value;
end;
function TListItem_GetStateIndex:TImageIndex;
begin
  result := TListItem(_Self).StateIndex;
end;
procedure TListItem_PutStateIndex(const Value: TImageIndex);
begin
  TListItem(_Self).StateIndex := Value;
end;
function TListItem_GetSubItems:TStrings;
begin
  result := TListItem(_Self).SubItems;
end;
procedure TListItem_PutSubItems(const Value: TStrings);
begin
  TListItem(_Self).SubItems := Value;
end;
function TListItem_GetSubItemImages(Index: Integer):Integer;
begin
  result := TListItem(_Self).SubItemImages[Index];
end;
procedure TListItem_PutSubItemImages(Index: Integer;const Value: Integer);
begin
  TListItem(_Self).SubItemImages[Index] := Value;
end;
function TListItem_GetTop:Integer;
begin
  result := TListItem(_Self).Top;
end;
procedure TListItem_PutTop(const Value: Integer);
begin
  TListItem(_Self).Top := Value;
end;
function TListItems_GetCount:Integer;
begin
  result := TListItems(_Self).Count;
end;
procedure TListItems_PutCount(const Value: Integer);
begin
  TListItems(_Self).Count := Value;
end;
function TListItems_GetHandle:HWND;
begin
  result := TListItems(_Self).Handle;
end;
function TListItems_GetItem(Index: Integer):TListItem;
begin
  result := TListItems(_Self).Item[Index];
end;
procedure TListItems_PutItem(Index: Integer;const Value: TListItem);
begin
  TListItems(_Self).Item[Index] := Value;
end;
function TListItems_GetOwner:TCustomListView;
begin
  result := TListItems(_Self).Owner;
end;
function TWorkArea_GetRect:TRect;
begin
  result := TWorkArea(_Self).Rect;
end;
procedure TWorkArea_PutRect(const Value: TRect);
begin
  TWorkArea(_Self).Rect := Value;
end;
function TWorkArea_GetColor:TColor;
begin
  result := TWorkArea(_Self).Color;
end;
procedure TWorkArea_PutColor(const Value: TColor);
begin
  TWorkArea(_Self).Color := Value;
end;
function TWorkAreas_GetItems(Index: Integer):TWorkArea;
begin
  result := TWorkAreas(_Self).Items[Index];
end;
procedure TWorkAreas_PutItems(Index: Integer;const Value: TWorkArea);
begin
  TWorkAreas(_Self).Items[Index] := Value;
end;
function TCustomListView_GetCanvas:TCanvas;
begin
  result := TCustomListView(_Self).Canvas;
end;
function TCustomListView_GetCheckboxes:Boolean;
begin
  result := TCustomListView(_Self).Checkboxes;
end;
procedure TCustomListView_PutCheckboxes(const Value: Boolean);
begin
  TCustomListView(_Self).Checkboxes := Value;
end;
function TCustomListView_GetColumn(Index: Integer):TListColumn;
begin
  result := TCustomListView(_Self).Column[Index];
end;
function TCustomListView_GetDropTarget:TListItem;
begin
  result := TCustomListView(_Self).DropTarget;
end;
procedure TCustomListView_PutDropTarget(const Value: TListItem);
begin
  TCustomListView(_Self).DropTarget := Value;
end;
function TCustomListView_GetFlatScrollBars:Boolean;
begin
  result := TCustomListView(_Self).FlatScrollBars;
end;
procedure TCustomListView_PutFlatScrollBars(const Value: Boolean);
begin
  TCustomListView(_Self).FlatScrollBars := Value;
end;
function TCustomListView_GetFullDrag:Boolean;
begin
  result := TCustomListView(_Self).FullDrag;
end;
procedure TCustomListView_PutFullDrag(const Value: Boolean);
begin
  TCustomListView(_Self).FullDrag := Value;
end;
function TCustomListView_GetGridLines:Boolean;
begin
  result := TCustomListView(_Self).GridLines;
end;
procedure TCustomListView_PutGridLines(const Value: Boolean);
begin
  TCustomListView(_Self).GridLines := Value;
end;
function TCustomListView_GetHotTrack:Boolean;
begin
  result := TCustomListView(_Self).HotTrack;
end;
procedure TCustomListView_PutHotTrack(const Value: Boolean);
begin
  TCustomListView(_Self).HotTrack := Value;
end;
function TCustomListView_GetHotTrackStyles:TListHotTrackStyles;
begin
  result := TCustomListView(_Self).HotTrackStyles;
end;
procedure TCustomListView_PutHotTrackStyles(const Value: TListHotTrackStyles);
begin
  TCustomListView(_Self).HotTrackStyles := Value;
end;
function TCustomListView_GetItemFocused:TListItem;
begin
  result := TCustomListView(_Self).ItemFocused;
end;
procedure TCustomListView_PutItemFocused(const Value: TListItem);
begin
  TCustomListView(_Self).ItemFocused := Value;