#
# Win32::GUI::MsFlexGrid: wrapper package for MsFlexGrid ActiveX
# by Laurent Rocher.
#
#
use strict;
use vars qw(@ISA $VERSION);
use Carp 'croak','carp';
use Win32::GUI::AxWindow;
@ISA = qw(Win32::GUI::AxWindow Exporter);
$VERSION = "1.0";
BEGIN {
use Exporter();
use vars qw(@EXPORT);
@EXPORT = qw();
}
#########################################################################
# #
#########################################################################
#
# new : Create a new MsFlexGrid window
#
sub new {
my $class = shift;
my %param = @_;
$param {-control} = "MSFlexGridLib.MSFlexGrid";
my $self = new Win32::GUI::AxWindow ( %param );
return bless $self, $class;
}
# Constants for the OLEDragMode property (but not the DragMode or OLEDropMode properties).
# enum {
# flexOLEDragManual = 0,
# flexOLEDragAutomatic = 1
# } OLEDragConstants;
#
# Constants for the OLEDropMode property (but not the DragMode or OLEDragMode properties).
# enum {
# flexOLEDropNone = 0,
# flexOLEDropManual = 1
# } OLEDropConstants;
#
# State transition constants for the DragOver and OLEDragOver events.
# enum {
# flexEnter = 0,
# flexLeave = 1,
# flexOver = 2
# } DragOverConstants;
#
# Clipboard format constants.
# enum {
# flexCFText = 1,
# flexCFBitmap = 2,
# flexCFMetafile = 3,
# flexCFDIB = 8,
# flexCFPalette = 9,
# flexCFEMetafile = 14,
# flexCFFiles = 15,
# flexCFRTF = -16639
# } ClipBoardConstants;
#
# Drop effect constants for OLE drag and drop events.
# enum {
# flexOLEDropEffectNone = 0,
# flexOLEDropEffectCopy = 1,
# flexOLEDropEffectMove = 2,
# flexOLEDropEffectScroll = -2147483648
# } OLEDropEffectConstants;
#
# Error constants
# enum {
# flexerrIllegaFunctionCall = 5,
# flexerrObjIllegalUse = 425,
# flexerrClipInvalidFormat = 461,
# flexerrDataObjectLocked = 672,
# flexerrExpectedAnArgument = 673,
# flexerrRecursiveOLEDrag = 674,
# flexerrUserFormatNotBinArray = 675,
# flexerrDataNotSetForFormat = 676,
# flexerrUnknownError = 600,
# flexerrSubscript = 381,
# flexerrBadValue = 380,
# flexerrGetNotSupported = 394,
# flexerrSetNotPermitted = 387,
# flexerrOutOfMemory = 7,
# flexerrVB30000 = 30000,
# flexerrVB30001 = 30001,
# flexerrVB30002 = 30002,
# flexerrVB30004 = 30004,
# flexerrVB30005 = 30005,
# flexerrVB30006 = 30006,
# flexerrVB30008 = 30008,
# flexerrVB30009 = 30009,
# flexerrVB30010 = 30010,
# flexerrVB30011 = 30011,
# flexerrVB30013 = 30013,
# flexerrVB30014 = 30014,
# flexerrVB30015 = 30015,
# flexerrVB30016 = 30016,
# flexerrVB30017 = 30017
# } ErrorConstants;
#
# Appearance Constants
# enum {
# flexFlat = 0,
# flex3D = 1
# } AppearanceSettings;
#
# BorderStyle Constants
# enum {
# flexBorderNone = 0,
# flexBorderSingle = 1
# } BorderStyleSettings;
#
# FocusRect Constants
# enum {
# flexFocusNone = 0,
# flexFocusLight = 1,
# flexFocusHeavy = 2
# } FocusRectSettings;
#
# Highlight Constants
# enum {
# flexHighlightNever = 0,
# flexHighlightAlways = 1,
# flexHighlightWithFocus = 2
# } HighLightSettings;
#
# ScrollBars Constants
# enum {
# flexScrollBarNone = 0,
# flexScrollBarHorizontal = 1,
# flexScrollBarVertical = 2,
# flexScrollBarBoth = 3
# } ScrollBarsSettings;
#
# TextStyle Constants
# enum {
# flexTextFlat = 0,
# flexTextRaised = 1,
# flexTextInset = 2,
# flexTextRaisedLight = 3,
# flexTextInsetLight = 4
# } TextStyleSettings;
#
# FillStyle Constants
# enum {
# flexFillSingle = 0,
# flexFillRepeat = 1
# } FillStyleSettings;
#
# GridLines Constants
# enum {
# flexGridNone = 0,
# flexGridFlat = 1,
# flexGridInset = 2,
# flexGridRaised = 3
# } GridLineSettings;
#
# SelectionMode Constants
# enum {
# flexSelectionFree = 0,
# flexSelectionByRow = 1,
# flexSelectionByColumn = 2
# } SelectionModeSettings;
#
# MergeCells Constants
# enum {
# flexMergeNever = 0,
# flexMergeFree = 1,
# flexMergeRestrictRows = 2,
# flexMergeRestrictColumns = 3,
# flexMergeRestrictAll = 4
# } MergeCellsSettings;
#
# PictureType Constants
# enum {
# flexPictureColor = 0,
# flexPictureMonochrome = 1
# } PictureTypeSettings;
#
# AllowUserResizing Constants
# enum {
# flexResizeNone = 0,
# flexResizeColumns = 1,
# flexResizeRows = 2,
# flexResizeBoth = 3
# } AllowUserResizeSettings;
#
# MousePointer Constants
# enum {
# flexDefault = 0,
# flexArrow = 1,
# flexCross = 2,
# flexIBeam = 3,
# flexIcon = 4,
# flexSize = 5,
# flexSizeNESW = 6,
# flexSizeNS = 7,
# flexSizeNWSE = 8,
# flexSizeEW = 9,
# flexUpArrow = 10,
# flexHourglass = 11,
# flexNoDrop = 12,
# flexArrowHourGlass = 13,
# flexArrowQuestion = 14,
# flexSizeAll = 15,
# flexCustom = 99
# } MousePointerSettings;
#
# Sort Constants
# enum {
# flexSortNone = 0,
# flexSortGenericAscending = 1,
# flexSortGenericDescending = 2,
# flexSortNumericAscending = 3,
# flexSortNumericDescending = 4,
# flexSortStringNoCaseAscending = 5,
# flexSortStringNoCaseDescending = 6,
# flexSortStringAscending = 7,
# flexSortStringDescending = 8
# } SortSettings;
#
# Alignment Constants
# enum {
# flexAlignLeftTop = 0,
# flexAlignLeftCenter = 1,
# flexAlignLeftBottom = 2,
# flexAlignCenterTop = 3,
# flexAlignCenterCenter = 4,
# flexAlignCenterBottom = 5,
# flexAlignRightTop = 6,
# flexAlignRightCenter = 7,
# flexAlignRightBottom = 8,
# flexAlignGeneral = 9
# } AlignmentSettings;
#
#
## [id(0x0000004c), propget, bindable, helpstring("Returns/sets the data source for the control."), helpcontext(0x000591d9)]
## IRowCursor* DataSource();
## [id(0x0000004c), propput, bindable, helpstring("Returns/sets the data source for the control."), helpcontext(0x000591d9)]
## void DataSource([in] IRowCursor* rhs);
##
## [id(0x0000002a), propget, helpstring("Returns/sets an image to be displayed in the current cell or in a range of cells."), helpcontext(0x000591e9)]
## IPictureDisp* CellPicture();
## [id(0x0000002a), propputref, helpstring("Returns/sets an image to be displayed in the current cell or in a range of cells."), helpcontext(0x000591e9)]
## void CellPicture([in] IPictureDisp* rhs);
##
## [id(0x00000031), propget, helpstring("Returns a picture of the FlexGrid control, suitable for printing, saving to disk, copying to the clipboard, or assigning to a different control."), helpcontext(0x00059207)]
## IPictureDisp* Picture();
##
## [id(0x00000036), propget, helpstring("Returns/sets a custom mouse icon."), helpcontext(0x000591cd)]
## IPictureDisp* MouseIcon();
## [id(0x00000036), propputref, helpstring("Returns/sets a custom mouse icon."), helpcontext(0x000591cd)]
## void MouseIcon([in] IPictureDisp* rhs);
##
## [id(0xfffffe00), propget, bindable, requestedit, helpstring("Returns/sets the default font or the font for individual cells."), helpcontext(0x000591c8)]
## IFontDisp* Font();
## [id(0xfffffe00), propputref, bindable, requestedit, helpstring("Returns/sets the default font or the font for individual cells."), helpcontext(0x000591c8)]
## void Font([in] IFontDisp* rhs);
#########################################################################
# I N T E R F A C E #
#########################################################################
# BSTR Text() / void Text([in] BSTR rhs)
# Returns/sets the text contents of a cell or range of cells.
sub Text {
croak("Usage: BSTR Text() / void Text([in] BSTR rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000000 , $value);
}
else {
return $self->SUPER::GetProperty (0x00000000);
}
}
# short Version();
# Returns the version of the FlexGrid control currently loaded in memory.
sub Version {
croak("Usage: short Version()") if (@_ != 1);
my $self = shift;
return $self->SUPER::GetProperty (0x00000001);
}
# BSTR FormatString() / void FormatString([in] BSTR rhs)
# Allows you to set up a FlexGrid's column widths, alignments, and fixed row and column text at design time.
sub FormatString {
croak("Usage: BSTR FormatString() / void FormatString([in] BSTR rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000002, $value);
}
else {
return $self->SUPER::GetProperty (0x00000002);
}
}
# long Rows() / void Rows([in] long rhs)
# Determines the total number of columns or rows in a FlexGrid.
sub Rows {
croak("Usage: long Rows() / void Rows(long rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000004, $value);
}
else {
return $self->SUPER::GetProperty (0x00000004);
}
}
# long Cols() / void Cols([in] long rhs)
# Determines the total number of columns or cols in a FlexGrid.
sub Cols {
croak("Usage: long Cols() / void Cols(long rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000005, $value);
}
else {
return $self->SUPER::GetProperty (0x00000005);
}
}
# long FixedRows() / void FixedRows([in] long rhs)
# Returns/sets the total number of fixed (non-scrollable) rows for a FlexGrid.
sub FixedRows {
croak("Usage: long FixedRows() / void FixedRows([in] long rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000006, $value);
}
else {
return $self->SUPER::GetProperty (0x00000006);
}
}
# long FixedCols() / void FixedCols([in] long rhs)
# Returns/sets the total number of fixed (non-scrollable) cols for a FlexGrid.
sub FixedCols {
croak("Usage: long FixedCols() / void FixedCols([in] long rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000007, $value);
}
else {
return $self->SUPER::GetProperty (0x00000007);
}
}
# long TopRow() / void TopRow([in] long rhs)
# Returns/sets the topmost visible row (other than a fixed row) in the FlexGrid.
sub TopRow {
croak("Usage: long TopRow() / void TopRow([in] long rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000008, $value);
}
else {
return $self->SUPER::GetProperty (0x00000008);
}
}
# long LeftCol() / void LeftCol([in] long rhs)
# Returns/sets the leftmost visible column (other than a fixed column) in the FlexGrid.
sub LeftCol {
croak("Usage: long LeftCol() / void LeftCol([in] long rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000009, $value);
}
else {
return $self->SUPER::GetProperty (0x00000009);
}
}
# long Row() / void Row([in] long rhs)
# Returns/sets the active cell in a FlexGrid.
sub Row {
croak("Usage: long Row() / void Row([in] long rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000000a, $value);
}
else {
return $self->SUPER::GetProperty (0x0000000a);
}
}
# long Col() / void Col([in] long rhs)
# Returns/sets the active cell in a FlexGrid.
sub Col {
croak("Usage: long Col() / void Col([in] long rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000000b, $value);
}
else {
return $self->SUPER::GetProperty (0x0000000b);
}
}
# long RowSel() / void RowSel([in] long rhs)
# Determines the starting or ending row or column for a range of cells.
sub RowSel {
croak("Usage: long RowSel() / void RowSel([in] long rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000000c, $value);
}
else {
return $self->SUPER::GetProperty (0x0000000c);
}
}
# long ColSel() / void ColSel([in] long rhs)
# Determines the starting or ending row or column for a range of cells.
sub ColSel {
croak("Usage: long ColSel() / void ColSel([in] long rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000000d, $value);
}
else {
return $self->SUPER::GetProperty (0x0000000d);
}
}
# OLE_COLOR BackColorFixed() / OLE_COLOR BackColorFixed()
# Returns/sets the background color of various elements of the FlexGrid.
sub BackColorFixed {
croak("Usage: OLE_COLOR BackColorFixed() / OLE_COLOR BackColorFixed()") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000000e, $value);
}
else {
return $self->SUPER::GetProperty (0x0000000e);
}
}
# OLE_COLOR ForeColorFixed() / OLE_COLOR ForeColorFixed()
# Determines the color used to draw text on each part of the FlexGrid..
sub ForeColorFixed {
croak("Usage: OLE_COLOR ForeColorFixed() / OLE_COLOR ForeColorFixed()") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000000f, $value);
}
else {
return $self->SUPER::GetProperty (0x0000000f);
}
}
# OLE_COLOR BackColorSel() / OLE_COLOR BackColorSel()
# Returns/sets the background color of various elements of the FlexGrid.
sub BackColorSel {
croak("Usage: OLE_COLOR BackColorSel() / OLE_COLOR BackColorSel()") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000010, $value);
}
else {
return $self->SUPER::GetProperty (0x00000010);
}
}
# OLE_COLOR ForeColorSel() / OLE_COLOR ForeColorSel()
# Determines the color used to draw text on each part of the FlexGrid.
sub ForeColorSel {
croak("Usage: OLE_COLOR ForeColorSel() / OLE_COLOR ForeColorSel()") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000011, $value);
}
else {
return $self->SUPER::GetProperty (0x00000011);
}
}
# OLE_COLOR BackColorBkg() / OLE_COLOR BackColorBkg()
# Returns/sets the background color of various elements of the FlexGrid.
sub BackColorBkg {
croak("Usage: OLE_COLOR BackColorBkg() / OLE_COLOR BackColorBkg()") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000012, $value);
}
else {
return $self->SUPER::GetProperty (0x00000012);
}
}
# VARIANT_BOOL WordWrap() / void WordWrap([in] VARIANT_BOOL rhs)
# Returns/sets whether text within a cell should be allowed to wrap.
sub WordWrap {
croak("Usage: VARIANT_BOOL WordWrap() / void WordWrap([in] VARIANT_BOOL rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000013, $value);
}
else {
return $self->SUPER::GetProperty (0x00000013);
}
}
# TextStyleSettings TextStyle() / void TextStyle([in] TextStyleSettings rhs)
# Returns/sets 3D effects for displaying text.
sub TextStyle {
croak("Usage: TextStyleSettings TextStyle() / void TextStyle([in] TextStyleSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000014, $value);
}
else {
return $self->SUPER::GetProperty (0x00000014);
}
}
# TextStyleSettings TextStyleFixed() / void TextStyleFixed([in] TextStyleSettings rhs)
# Returns/sets 3D effects for displaying text.
sub TextStyleFixed {
croak("Usage: TextStyleSettings TextStyleFixed() / void TextStyleFixed([in] TextStyleSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000015, $value);
}
else {
return $self->SUPER::GetProperty (0x00000015);
}
}
# VARIANT_BOOL ScrollTrack() / void ScrollTrack([in] VARIANT_BOOL rhs)
# Returns/sets whether FlexGrid should scroll its contents while the user moves the scroll box along the scroll bars.
sub ScrollTrack {
croak("Usage: VARIANT_BOOL ScrollTrack() / void ScrollTrack([in] VARIANT_BOOL rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000016, $value);
}
else {
return $self->SUPER::GetProperty (0x00000016);
}
}
# FocusRectSettings FocusRect() / void FocusRect([in] FocusRectSettings rhs)
# Determines whether the FlexGrid control should draw a focus rectangle around the current cell.
sub FocusRect {
croak("Usage: FocusRectSettings FocusRect() / void FocusRect([in] FocusRectSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000017, $value);
}
else {
return $self->SUPER::GetProperty (0x00000017);
}
}
# HighLightSettings HighLight() / void HighLight([in] HighLightSettings rhs)
# Returns/sets whether selected cells appear highlighted.
sub HighLight {
croak("Usage: HighLightSettings HighLight() / void HighLight([in] HighLightSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000018, $value);
}
else {
return $self->SUPER::GetProperty (0x00000018);
}
}
# VARIANT_BOOL Redraw() / void Redraw([in] VARIANT_BOOL rhs)
# Enables or disables redrawing of the FlexGrid control.
sub Redraw {
croak("Usage: VARIANT_BOOL Redraw() / void Redraw([in] VARIANT_BOOL rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000019, $value);
}
else {
return $self->SUPER::GetProperty (0x00000019);
}
}
# ScrollBarsSettings ScrollBars() / void ScrollBars([in] ScrollBarsSettings rhs)
# Returns/sets whether a FlexGrid has horizontal or vertical scroll bars.
sub ScrollBars {
croak("Usage: ScrollBarsSettings ScrollBars() / void ScrollBars([in] ScrollBarsSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000001a, $value);
}
else {
return $self->SUPER::GetProperty (0x0000001a);
}
}
# long MouseRow()
# Returns over which row (column) the mouse pointer is.
sub MouseRow {
croak("Usage: long MouseRow()") if (@_ != 1);
my $self = shift;
return $self->SUPER::GetProperty (0x0000001b);
}
# long MouseCol()
# Returns over which row (column) the mouse pointer is.
sub MouseCol {
croak("Usage: long MouseCol()") if (@_ != 1);
my $self = shift;
return $self->SUPER::GetProperty (0x0000001c);
}
# long CellLeft()
# Returns the left position of the current cell, in twips.
sub CellLeft {
croak("Usage: long CellLeft()") if (@_ != 1);
my $self = shift;
return $self->SUPER::GetProperty (0x0000001d);
}
# long CellTop()
# Returns the top position of the current cell, in twips.
sub CellTop {
croak("Usage: long CellTop()") if (@_ != 1);
my $self = shift;
return $self->SUPER::GetProperty (0x0000001e);
}
# long CellWidth()
# Returns the width of the current cell, in twips
sub CellWidth {
croak("Usage: long CellWidth()") if (@_ != 1);
my $self = shift;
return $self->SUPER::GetProperty (0x0000001f);
}
# long CellHeight()
# Returns the height of the current cell, in twips.
sub CellHeight {
croak("Usage: long CellHeight()") if (@_ != 1);
my $self = shift;
return $self->SUPER::GetProperty (0x00000020);
}
# long RowHeightMin() / void RowHeightMin([in] long rhs)
# Returns/sets a minimum row height for the entire control, in twips.
sub RowHeightMin {
croak("Usage: long RowHeightMin() / void RowHeightMin([in] long rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000021, $value);
}
else {
return $self->SUPER::GetProperty (0x00000021);
}
}
# GridLineSettings GridLines() / void GridLines([in] GridLineSettings rhs)
# Returns/sets the type of lines that should be drawn between cells.
sub GridLines {
croak("Usage: GridLineSettings GridLines() / void GridLines([in] GridLineSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000022, $value);
}
else {
return $self->SUPER::GetProperty (0x00000022);
}
}
# GridLineSettings GridLinesFixed() / void GridLinesFixed([in] GridLineSettings rhs)
# Returns/sets the type of lines that should be drawn between cells.
sub GridLinesFixed {
croak("Usage: GridLineSettings GridLinesFixed() / void GridLinesFixed([in] GridLineSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000023, $value);
}
else {
return $self->SUPER::GetProperty (0x00000023);
}
}
# OLE_COLOR GridColor() / void GridColor([in] OLE_COLOR rhs)
# Returns/sets the color used to draw the lines between FlexGrid cells.
sub GridColor {
croak("Usage: OLE_COLOR GridColor() / void GridColor([in] OLE_COLOR rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000024, $value);
}
else {
return $self->SUPER::GetProperty (0x00000024);
}
}
# OLE_COLOR GridColorFixed() / void GridColorFixed([in] OLE_COLOR rhs)
# Returns/sets the color used to draw the lines between FlexGrid cells.
sub GridColorFixed {
croak("Usage: OLE_COLOR GridColorFixed() / void GridColorFixed([in] OLE_COLOR rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000025, $value);
}
else {
return $self->SUPER::GetProperty (0x00000025);
}
}
# OLE_COLOR CellBackColor() / void CellBackColor([in] OLE_COLOR rhs)
# Returns/sets the background and foreground colors of individual cells or ranges of cells.
sub CellBackColor {
croak("Usage: OLE_COLOR CellBackColor() / void CellBackColor([in] OLE_COLOR rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000026, $value);
}
else {
return $self->SUPER::GetProperty (0x00000026);
}
}
# OLE_COLOR CellForeColor() / void CellForeColor([in] OLE_COLOR rhs)
# Returns/sets the background and foreground colors of individual cells or ranges of cells.
sub CellForeColor {
croak("Usage: OLE_COLOR CellForeColor() / void CellForeColor([in] OLE_COLOR rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000027, $value);
}
else {
return $self->SUPER::GetProperty (0x00000027);
}
}
# short CellAlignment() / void CellAlignment([in] short rhs)
# Returns/sets the alignment of data in a cell or range of selected cells.
sub CellAlignment {
croak("Usage: short CellAlignment() / void CellAlignment([in] short rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000028, $value);
}
else {
return $self->SUPER::GetProperty (0x00000028);
}
}
# TextStyleSettings CellTextStyle() / void CellTextStyle([in] TextStyleSettings rhs)
# Returns/sets 3D effects for text on a specific cell or range of cells.
sub CellTextStyle {
croak("Usage: TextStyleSettings CellTextStyle() / void CellTextStyle([in] TextStyleSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000029, $value);
}
else {
return $self->SUPER::GetProperty (0x00000029);
}
}
# short CellPictureAlignment() / void CellPictureAlignment([in] short rhs)
# Returns/sets the alignment of pictures in a cell or range of selected cells.
sub CellPictureAlignment {
croak("Usage: short CellPictureAlignment() / void CellPictureAlignment([in] short rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000002b, $value);
}
else {
return $self->SUPER::GetProperty (0x0000002b);
}
}
# BSTR Clip() / void Clip([in] BSTR rhs)
# Returns/sets the contents of the cells in a FlexGrid's selected region.
sub Clip {
croak("Usage: BSTR Clip() / void Clip([in] BSTR rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000002d, $value);
}
else {
return $self->SUPER::GetProperty (0x0000002d);
}
}
# void Sort([in] short rhs)
# Action-type property that sorts selected rows according to selected criteria.
sub Sort {
croak("Usage: void Sort([in] short rhs)") if (@_ != 2);
my ($self, $value) = @_;
return $self->SUPER::SetProperty (0x0000002e, $value);
}
# SelectionModeSettings SelectionMode() / void SelectionMode([in] SelectionModeSettings rhs)
# Returns/sets whether a FlexGrid should allow regular cell selection, selection by rows, or selection by columns.
sub SelectionMode {
croak("Usage: SelectionModeSettings SelectionMode() / void SelectionMode([in] SelectionModeSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000002f, $value);
}
else {
return $self->SUPER::GetProperty (0x0000002f);
}
}
# MergeCellsSettings MergeCells() / void MergeCells([in] MergeCellsSettings rhs)
# Returns/sets whether cells with the same contents should be grouped in a single cell spanning multiple rows or columns.
sub MergeCells {
croak("Usage: MergeCellsSettings MergeCells() / void MergeCells([in] MergeCellsSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000030, $value);
}
else {
return $self->SUPER::GetProperty (0x00000030);
}
}
# PictureTypeSettings PictureType() / void PictureType([in] PictureTypeSettings rhs)
# Returns/sets the type of picture that should be generated by the Picture property.
sub PictureType {
croak("Usage: PictureTypeSettings PictureType() / void PictureType([in] PictureTypeSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000032, $value);
}
else {
return $self->SUPER::GetProperty (0x00000032);
}
}
# VARIANT_BOOL AllowBigSelection() / void AllowBigSelection([in] VARIANT_BOOL rhs)
# Returns/sets whether clicking on a column or row header should cause the entire column or row to be selected.
sub AllowBigSelection {
croak("Usage: VARIANT_BOOL AllowBigSelection() / void AllowBigSelection([in] VARIANT_BOOL rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000033, $value);
}
else {
return $self->SUPER::GetProperty (0x00000033);
}
}
# AllowUserResizeSettings AllowUserResizing() / void AllowUserResizing([in] AllowUserResizeSettings rhs)
# Returns/sets whether the user should be allowed to resize rows and columns with the mouse.
sub AllowUserResizing {
croak("Usage: AllowUserResizeSettings AllowUserResizing() / void AllowUserResizing([in] AllowUserResizeSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000034, $value);
}
else {
return $self->SUPER::GetProperty (0x00000034);
}
}
# MousePointerSettings MousePointer() / void MousePointer([in] MousePointerSettings rhs)
# Returns/sets the type of mouse pointer displayed when over part of an object.
sub MousePointer {
croak("Usage: MousePointerSettings MousePointer() / void MousePointer([in] MousePointerSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000035, $value);
}
else {
return $self->SUPER::GetProperty (0x00000035);
}
}
# BSTR TextArray([in] long index) / void TextArray([in] long index, [in] BSTR rhs)
# Returns/sets the text contents of an arbitrary cell (single subscript).
sub TextArray {
croak("Usage: BSTR TextArray([in] long index) / void TextArray([in] long index, [in] BSTR rhs)") if (@_ != 2 && @_ != 3);
my ($self, $value, $value2) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000037, $value, $value2);
}
else {
return $self->SUPER::GetProperty (0x00000037, $value);
}
}
# short ColAlignment([in] long index) / void ColAlignment([in] long index, [in] short rhs)
# Returns/sets the alignment of data in a column.
sub ColAlignment {
croak("Usage: short ColAlignment([in] long index) / void ColAlignment([in] long index, [in] short rhs)") if (@_ != 2 && @_ != 3);
my ($self, $value, $value2) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000038, $value, $value2);
}
else {
return $self->SUPER::GetProperty (0x00000038, $value);
}
}
# long ColWidth([in] long index) / void ColWidth([in] long index, [in] long rhs)
# Determines the width of the specified column in Twips.
sub ColWidth {
croak("Usage: long ColWidth([in] long index) / void ColWidth([in] long index, [in] long rhs)") if (@_ != 2 && @_ != 3);
my ($self, $value, $value2) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000039, $value, $value2);
}
else {
return $self->SUPER::GetProperty (0x00000039, $value);
}
}
# long RowHeight([in] long index) / void RowHeight([in] long index, [in] long rhs)
# Returns/sets the height of the specified row in Twips.
sub RowHeight {
croak("Usage: long RowHeight([in] long index) / void RowHeight([in] long index, [in] long rhs)") if (@_ != 2 && @_ != 3);
my ($self, $value, $value2) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000003a, $value, $value2);
}
else {
return $self->SUPER::GetProperty (0x0000003a, $value);
}
}
# VARIANT_BOOL MergeRow([in] long index) / void MergeRow([in] long index, [in] VARIANT_BOOL rhs)
# Returns/sets which rows (columns) should have their contents merged when the MergeCells property is set to a value other than 0 - Never.
sub MergeRow {
croak("Usage: VARIANT_BOOL MergeRow([in] long index) / void MergeRow([in] long index, [in] VARIANT_BOOL rhs)") if (@_ != 2 && @_ != 3);
my ($self, $value, $value2) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000003b, $value, $value2);
}
else {
return $self->SUPER::GetProperty (0x0000003b, $value);
}
}
# VARIANT_BOOL MergeCol([in] long index) / void MergeCol([in] long index, [in] VARIANT_BOOL rhs)
# Returns/sets which rows (columns) should have their contents merged when the MergeCells property is set to a value other than 0 - Never.
sub MergeCol {
croak("Usage: VARIANT_BOOL MergeCol([in] long index) / void MergeCol([in] long index, [in] VARIANT_BOOL rhs)") if (@_ != 2 && @_ != 3);
my ($self, $value, $value2) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000003c, $value, $value2);
}
else {
return $self->SUPER::GetProperty (0x0000003c, $value);
}
}
# void RowPosition([in] long index, [in] long rhs)
# Returns the distance in Twips between the upper-left corner of the control and the upper-left corner of a specified row.
sub RowPosition {
croak("Usage: void RowPosition([in] long index, [in] long rhs)") if (@_ != 2 && @_ != 3);
my ($self, $value, $value2) = @_;
return $self->SUPER::SetProperty (0x0000003d, $value, $value2);
}
# void ColPosition([in] long index, [in] long rhs)
# Returns the distance in Twips between the upper-left corner of the control and the upper-left corner of a specified column.
sub ColPosition {
croak("Usage: void ColPosition([in] long index, [in] long rhs)") if (@_ != 2 && @_ != 3);
my ($self, $value, $value2) = @_;
return $self->SUPER::SetProperty (0x0000003e, $value, $value2);
}
# long RowData([in] long index) / void RowData([in] long index, [in] long rhs)
# Array of long integer values with one item for each row (RowData) and for each column (ColData) of the FlexGrid.
sub RowData {
croak("Usage: long RowData([in] long index) / void RowData([in] long index, [in] long rhs)") if (@_ != 2 && @_ != 3);
my ($self, $value, $value2) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000003f, $value, $value2);
}
else {
return $self->SUPER::GetProperty (0x0000003f, $value);
}
}
# long ColData([in] long index) / void ColData([in] long index, [in] long rhs)
# Array of long integer values with one item for each row (RowData) and for each column (ColData) of the FlexGrid.
sub ColData {
croak("Usage: long ColData([in] long index) / void ColData([in] long index, [in] long rhs)") if (@_ != 2 && @_ != 3);
my ($self, $value, $value2) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000040, $value, $value2);
}
else {
return $self->SUPER::GetProperty (0x00000040, $value);
}
}
# BSTR TextMatrix([in] long Row,[in] long Col) / void TextMatrix([in] long Row,[in] long Col,[in] BSTR)
# Returns/sets the text contents of an arbitrary cell (row/col subscripts).
sub TextMatrix {
croak("Usage: BSTR TextMatrix([in] long Row,[in] long Col) / void TextMatrix([in] long Row,[in] long Col,[in] BSTR)") if (@_ != 2 && @_ != 3);
my ($self, $value, $value2) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000041, $value, $value2);
}
else {
return $self->SUPER::GetProperty (0x00000041, $value);
}
}
# void AddItem([in] BSTR Item,[in, optional] VARIANT index)
# Adds a new row to a FlexGrid control at run time.
sub AddItem {
croak("Usage: void AddItem([in] BSTR Item,[in, optional] VARIANT index)") if (@_ == 0 || @_ > 3);
my ($self, $value, $value2) = @_;
if (defined $value2) {
return $self->SUPER::CallMethod (0x00000042, $value, $value2);
}
else {
return $self->SUPER::CallMethod (0x00000042, $value);
}
}
# void RemoveItem([in] long index)
# Removes a row from a FlexGrid control at run time.
sub RemoveItem {
croak("Usage: void RemoveItem([in] long index)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
return $self->SUPER::CallMethod (0x00000043, $value);
}
# void Clear()
# Clears the contents of the FlexGrid. This includes all text, pictures, and cell formatting.
sub Clear {
croak("Usage: void Clear()") if (@_ != 1);
my $self = shift;
return $self->SUPER::CallMethod (0x00000044);
}
# OLE_COLOR BackColor() / void BackColor([in] OLE_COLOR rhs)
# Returns/sets the background color of various elements of the FlexGrid.
sub BackColor {
croak("Usage: OLE_COLOR BackColor() / void BackColor([in] OLE_COLOR rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0xfffffe0b, $value);
}
else {
return $self->SUPER::GetProperty (0xfffffe0b);
}
}
# OLE_COLOR ForeColor() / void ForeColor([in] OLE_COLOR rhs)
# Determines the color used to draw text on each part of the FlexGrid.
sub ForeColor {
croak("Usage: OLE_COLOR ForeColor() / void ForeColor([in] OLE_COLOR rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0xfffffdff, $value);
}
else {
return $self->SUPER::GetProperty (0xfffffdff);
}
}
# single FontWidth() / void FontWidth([in] single rhs)
# Returns or sets the width, in points, of the font to be used for text displayed.
sub FontWidth {
croak("Usage: single FontWidth() / void FontWidth([in] single rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000054, $value);
}
else {
return $self->SUPER::GetProperty (0x00000054);
}
}
# BSTR CellFontName() / void CellFontName([in] BSTR rhs)
# Returns/sets the font to be used for individual cells or ranges of cells.
sub CellFontName {
croak("Usage: BSTR CellFontName() / void CellFontName([in] BSTR rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000004d, $value);
}
else {
return $self->SUPER::GetProperty (0x0000004d);
}
}
# single CellFontSize() / void CellFontSize([in] single rhs)
# Returns or sets the size, in points, for the current cell text.
sub CellFontSize {
croak("Usage: single CellFontSize() / void CellFontSize([in] single rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000004e, $value);
}
else {
return $self->SUPER::GetProperty (0x0000004e);
}
}
# VARIANT_BOOL CellFontBold() / void CellFontBold([in] VARIANT_BOOL rhs)
# Returns or sets the bold style for the current cell text.
sub CellFontBold {
croak("Usage: VARIANT_BOOL CellFontBold() / void CellFontBold([in] VARIANT_BOOL rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000004f, $value);
}
else {
return $self->SUPER::GetProperty (0x0000004f);
}
}
# VARIANT_BOOL CellFontItalic() / void CellFontItalic([in] VARIANT_BOOL rhs)
# Returns or sets the italic style for the current cell text.
sub CellFontItalic {
croak("Usage: VARIANT_BOOL CellFontItalic() / void CellFontItalic([in] VARIANT_BOOL rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000050, $value);
}
else {
return $self->SUPER::GetProperty (0x00000050);
}
}
# VARIANT_BOOL CellFontUnderline() / void CellFontUnderline([in] VARIANT_BOOL rhs)
# Returns or sets the underline style for the current cell text.
sub CellFontUnderline {
croak("Usage: VARIANT_BOOL CellFontUnderline() / void CellFontUnderline([in] VARIANT_BOOL rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000051, $value);
}
else {
return $self->SUPER::GetProperty (0x00000051);
}
}
# VARIANT_BOOL CellFontStrikeThrough() / void CellFontStrikeThrough([in] VARIANT_BOOL rhs)
# Returns or sets the strikethrough style for the current cell text.
sub CellFontStrikeThrough {
croak("Usage: VARIANT_BOOL CellFontStrikeThrough() / void CellFontStrikeThrough([in] VARIANT_BOOL rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000052, $value);
}
else {
return $self->SUPER::GetProperty (0x00000052);
}
}
# single CellFontWidth() / void CellFontWidth([in] single rhs)
# Returns or sets the font width for the current cell text.
sub CellFontWidth {
croak("Usage: single CellFontWidth() / void CellFontWidth([in] single rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000053, $value);
}
else {
return $self->SUPER::GetProperty (0x00000053);
}
}
# VARIANT_BOOL RowIsVisible([in] long index)
# Returns True if the specified row is visible.
sub RowIsVisible {
croak("Usage: VARIANT_BOOL RowIsVisible([in] long index)") if (@_ != 2);
my ($self, $value) = @_;
return $self->SUPER::GetProperty (0x00000055, $value);
}
# VARIANT_BOOL ColIsVisible([in] long index)
# Returns True if the specified column is visible.
sub ColIsVisible {
croak("Usage: VARIANT_BOOL ColIsVisible([in] long index)") if (@_ != 2);
my ($self, $value) = @_;
return $self->SUPER::GetProperty (0x00000056, $value);
}
# long RowPos([in] long index)
# Returns the distance in Twips between the upper-left corner of the control and the upper-left corner of a specified row.
sub RowPos {
croak("Usage: long RowPos([in] long index)") if (@_ != 2);
my ($self, $value) = @_;
return $self->SUPER::GetProperty (0x00000057, $value);
}
# long ColPos([in] long index)
# Returns the distance in Twips between the upper-left corner of the control and the upper-left corner of a specified column.
sub ColPos {
croak("Usage: long ColPos([in] long index)") if (@_ != 2);
my ($self, $value) = @_;
return $self->SUPER::GetProperty (0x00000058, $value);
}
# short GridLineWidth() / void GridLineWidth([in] short rhs)
# Returns/sets the width in Pixels of the gridlines for the control.
sub GridLineWidth {
croak("Usage: short GridLineWidth() / void GridLineWidth([in] short rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000059, $value);
}
else {
return $self->SUPER::GetProperty (0x00000059);
}
}
# short FixedAlignment([in] long index) / void FixedAlignment([in] long index,[in] short rhs)
# Returns/sets the alignment of data in the fixed cells of a column.
sub FixedAlignment {
croak("Usage: short FixedAlignment([in] long index) / void FixedAlignment([in] long index,[in] short rhs)") if (@_ != 2 && @_ != 3);
my ($self, $value, $value2) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000005a, $value, $value2);
}
else {
return $self->SUPER::GetProperty (0x0000005a, $value);
}
}
# BSTR FontName() / void FontName([in] BSTR rhs) HIDDEN
# ???
sub FontName {
croak("Usage: BSTR FontName() / void FontName([in] BSTR rhs) ") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000005b, $value);
}
else {
return $self->SUPER::GetProperty (0x0000005b);
}
}
# single FontSize() / void FontSize([in] single rhs) HIDDEN
# ???
sub FontSize {
croak("Usage: single FontSize() / void FontSize([in] single rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000005c, $value);
}
else {
return $self->SUPER::GetProperty (0x0000005c);
}
}
# VARIANT_BOOL FontBold() / VARIANT_BOOL FontBold() HIDDEN
# ???
sub FontBold {
croak("Usage: VARIANT_BOOL FontBold() / VARIANT_BOOL FontBold()") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000005d, $value);
}
else {
return $self->SUPER::GetProperty (0x0000005d);
}
}
# VARIANT_BOOL FontItalic() / VARIANT_BOOL FontItalic() HIDDEN
# ???
sub FontItalic {
croak("Usage: VARIANT_BOOL FontItalic() / VARIANT_BOOL FontItalic()") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000005e, $value);
}
else {
return $self->SUPER::GetProperty (0x0000005e);
}
}
# VARIANT_BOOL FontStrikethru() / VARIANT_BOOL FontStrikethru() HIDDEN
# ???
sub FontStrikethru {
croak("Usage: VARIANT_BOOL FontStrikethru() / VARIANT_BOOL FontStrikethru()") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000005f, $value);
}
else {
return $self->SUPER::GetProperty (0x0000005f);
}
}
# VARIANT_BOOL FontUnderline() / VARIANT_BOOL FontUnderline() HIDDEN
# ???
sub FontUnderline {
croak("Usage: VARIANT_BOOL FontUnderline() / VARIANT_BOOL FontUnderline()") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x00000060, $value);
}
else {
return $self->SUPER::GetProperty (0x00000060);
}
}
# OLEDropConstants OLEDropMode() / void OLEDropMode([in] OLEDropConstants rhs)
# Returns/Sets whether this control can act as an OLE drop target.
sub OLEDropMode {
croak("Usage: OLEDropConstants OLEDropMode() / void OLEDropMode([in] OLEDropConstants rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0x0000060f, $value);
}
else {
return $self->SUPER::GetProperty (0x0000060f);
}
}
# void OLEDrag()
# Starts an OLE drag/drop event with the given control as the source.
sub OLEDrag {
croak("Usage: void OLEDrag()") if (@_ != 1);
my $self = shift;
return $self->SUPER::CallMethod (0x00000610);
}
# FillStyleSettings FillStyle() / void FillStyle([in] FillStyleSettings rhs)
# Determines whether setting the Text property or one of the Cell formatting properties of a FlexGrid applies the change to all selected cells.
sub FillStyle {
croak("Usage: FillStyleSettings FillStyle() / void FillStyle([in] FillStyleSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0xfffffe01, $value);
}
else {
return $self->SUPER::GetProperty (0xfffffe01);
}
}
# BorderStyleSettings BorderStyle() / void BorderStyle([in] BorderStyleSettings rhs)
# Returns/sets the border style for an object.
sub BorderStyle {
croak("Usage: BorderStyleSettings BorderStyle() / void BorderStyle([in] BorderStyleSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0xfffffe08, $value);
}
else {
return $self->SUPER::GetProperty (0xfffffe08);
}
}
# AppearanceSettings Appearance() / void Appearance([in] AppearanceSettings rhs)
# Returns/sets whether a control should be painted with 3-D effects.
sub Appearance {
croak("Usage: AppearanceSettings Appearance() / void Appearance([in] AppearanceSettings rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0xfffffdf8, $value);
}
else {
return $self->SUPER::GetProperty (0xfffffdf8);
}
}
# long hWnd()
# Returns a handle to a form or control.
sub hWnd {
croak("Usage: long hWnd()") if (@_ != 1);
my $self = shift;
return $self->SUPER::GetProperty (0xfffffdfd);
}
# VARIANT_BOOL Enabled() / void Enabled([in] VARIANT_BOOL rhs) bindable, requestedit
# Returns/sets a value that determines whether a form or control can respond to user-generated events.
sub Enabled {
croak("Usage: VARIANT_BOOL Enabled() / void Enabled([in] VARIANT_BOOL rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0xfffffdfe, $value);
}
else {
return $self->SUPER::GetProperty (0xfffffdfe);
}
}
# void AboutBox() HIDDEN
# Displays an About box with version and copyright information.
sub AboutBox {
croak("Usage: void AboutBox()") if (@_ != 1);
my $self = shift;
return $self->SUPER::CallMethod (0xfffffdd8);
}
# void Refresh()
# Forces a complete repaint of a form or control.
sub Refresh {
croak("Usage: void Refresh()") if (@_ != 1);
my $self = shift;
return $self->SUPER::CallMethod (0xfffffdda);
}
# VARIANT_BOOL RightToLeft() / void RightToLeft([in] VARIANT_BOOL rhs)
# Determines text display direction and control visual appearance on a bidirectional system.
sub RightToLeft {
croak("Usage: VARIANT_BOOL RightToLeft() / void RightToLeft([in] VARIANT_BOOL rhs)") if (@_ != 1 && @_ != 2);
my ($self, $value) = @_;
if (defined $value) {
return $self->SUPER::SetProperty (0xfffffd9d, $value);
}
else {
return $self->SUPER::GetProperty (0xfffffd9d);
}
}
1;
__END__