view release on metacpan or  search on metacpan

Win32-GUI_AxWindow/demos/UnComplete/MsFlexGrid.pm  view on Meta::CPAN

#
#  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);
  }
}