Code: Select all
/' ********************************************************************************************
Library name: MSFlexGridLib
Version: 1.0
Documentation string: Microsoft FlexGrid Control 6.0 (SP6)
Path: C:\WINDOWS\system32\MSFLXGRD.OCX
Library GUID: {5E9E78A0-531B-11CF-91F6-C2863C385E30}
Help file: C:\WINDOWS\HELP\MSHFlx98.chm
Code machine generated by COM BUILD
Date: 02-11-2014 Time: 12:33:09
author of the work : Alober contact: aloberr@yahoo.fr
******************************************************************************************** '/
#Include Once "MSFlxGrd.bi"
'********************************************************************************************
' Wrappers Class For Interface
'********************************************************************************************
'********************************************************************************************
'derived from IVBDataObjectFiles interface
' Number of functions: 6
'********************************************************************************************
Type DataObjectFiles
Private:
ptrIVBDataObjectFiles As IVBDataObjectFiles PTR
Public:
Declare Constructor()
Declare Constructor(byref AS IVBDataObjectFiles PTR)
Declare Destructor()
Declare Operator Cast() AS IVBDataObjectFiles PTR
Declare Operator Let(byref AS IVBDataObjectFiles PTR)
Declare SUB Release()
Declare Property Item(Byval prmlIndex AS long) AS STRING
Declare Property Count() AS long
Declare Sub Add(Byval pbstrbstrFilename AS STRING, Byval varvIndex AS VARIANT)
Declare Sub Clear()
Declare Sub Remove(Byval varvIndex AS VARIANT)
Declare FUNCTION _NewEnum() AS LPUNKNOWN
End Type
'********************************************************************************************
'derived from IVBDataObject interface
' Number of functions: 5
'********************************************************************************************
Type DataObject
Private:
ptrIVBDataObject As IVBDataObject PTR
Public:
Declare Constructor()
Declare Constructor(byref AS IVBDataObject PTR)
Declare Destructor()
Declare Operator Cast() AS IVBDataObject PTR
Declare Operator Let(byref AS IVBDataObject PTR)
Declare SUB Release()
Declare Sub Clear()
Declare FUNCTION GetData(Byval prmsFormat AS short) AS VARIANT
Declare FUNCTION GetFormat(Byval prmsFormat AS short) AS VARIANT_BOOL
Declare Sub SetData(Byval varvValue AS VARIANT, Byval varvFormat AS VARIANT)
Declare Property Files() AS DataObjectFiles
End Type
'********************************************************************************************
'derived from IRowCursor interface
' Number of functions: 0
'********************************************************************************************
Type RowCursor
Private:
ptrIRowCursor As IRowCursor PTR
Public:
Declare Constructor()
Declare Constructor(byref AS IRowCursor PTR)
Declare Destructor()
Declare Operator Cast() AS IRowCursor PTR
Declare Operator Let(byref AS IRowCursor PTR)
Declare SUB Release()
End Type
'********************************************************************************************
'derived from IMSFlexGrid interface
' Number of functions: 180
'********************************************************************************************
Type MSFlexGrid
Private:
ptrIMSFlexGrid As IMSFlexGrid PTR
Public:
Declare Constructor()
Declare Constructor(byref AS IMSFlexGrid PTR)
Declare Destructor()
Declare Operator Cast() AS IMSFlexGrid PTR
Declare Operator Let(byref AS IMSFlexGrid PTR)
Declare SUB Release()
Declare Property Rows() AS long
Declare Property Rows(Byval prmRows AS long)
Declare Property Cols() AS long
Declare Property Cols(Byval prmCols AS long)
Declare Property FixedRows() AS long
Declare Property FixedRows(Byval prmFixedRows AS long)
Declare Property FixedCols() AS long
Declare Property FixedCols(Byval prmFixedCols AS long)
Declare Property Version() AS short
Declare Property FormatString() AS STRING
Declare Property FormatString(Byval pbstrFormatString AS STRING)
Declare Property TopRow() AS long
Declare Property TopRow(Byval prmTopRow AS long)
Declare Property LeftCol() AS long
Declare Property LeftCol(Byval prmLeftCol AS long)
Declare Property Row() AS long
Declare Property Row(Byval prmRow AS long)
Declare Property Col() AS long
Declare Property Col(Byval prmCol AS long)
Declare Property RowSel() AS long
Declare Property RowSel(Byval prmRowSel AS long)
Declare Property ColSel() AS long
Declare Property ColSel(Byval prmColSel AS long)
Declare Property Text() AS STRING
Declare Property Text(Byval pbstrText AS STRING)
Declare Property BackColor() AS OLE_COLOR
Declare Property BackColor(Byval prmBackColor AS OLE_COLOR)
Declare Property ForeColor() AS OLE_COLOR
Declare Property ForeColor(Byval prmForeColor AS OLE_COLOR)
Declare Property BackColorFixed() AS OLE_COLOR
Declare Property BackColorFixed(Byval prmBackColorFixed AS OLE_COLOR)
Declare Property ForeColorFixed() AS OLE_COLOR
Declare Property ForeColorFixed(Byval prmForeColorFixed AS OLE_COLOR)
Declare Property BackColorSel() AS OLE_COLOR
Declare Property BackColorSel(Byval prmBackColorSel AS OLE_COLOR)
Declare Property ForeColorSel() AS OLE_COLOR
Declare Property ForeColorSel(Byval prmForeColorSel AS OLE_COLOR)
Declare Property BackColorBkg() AS OLE_COLOR
Declare Property BackColorBkg(Byval prmBackColorBkg AS OLE_COLOR)
Declare Property WordWrap() AS VARIANT_BOOL
Declare Property WordWrap(Byval tWordWrap AS VARIANT_BOOL)
Declare Property Font() AS IFONTDISP Ptr
Declare Property Font(Byval prmFont AS IFONTDISP Ptr)
Declare Property FontWidth() AS float
Declare Property FontWidth(Byval prmFontWidth AS float)
Declare Property CellFontName() AS STRING
Declare Property CellFontName(Byval pbstrCellFontName AS STRING)
Declare Property CellFontSize() AS float
Declare Property CellFontSize(Byval prmCellFontSize AS float)
Declare Property CellFontBold() AS VARIANT_BOOL
Declare Property CellFontBold(Byval tCellFontBold AS VARIANT_BOOL)
Declare Property CellFontItalic() AS VARIANT_BOOL
Declare Property CellFontItalic(Byval tCellFontItalic AS VARIANT_BOOL)
Declare Property CellFontUnderline() AS VARIANT_BOOL
Declare Property CellFontUnderline(Byval tCellFontUnderline AS VARIANT_BOOL)
Declare Property CellFontStrikeThrough() AS VARIANT_BOOL
Declare Property CellFontStrikeThrough(Byval tCellFontStrikeThrough AS VARIANT_BOOL)
Declare Property CellFontWidth() AS float
Declare Property CellFontWidth(Byval prmCellFontWidth AS float)
Declare Property TextStyle() AS TextStyleSettings
Declare Property TextStyle(Byval prmTextStyle AS TextStyleSettings)
Declare Property TextStyleFixed() AS TextStyleSettings
Declare Property TextStyleFixed(Byval prmTextStyleFixed AS TextStyleSettings)
Declare Property ScrollTrack() AS VARIANT_BOOL
Declare Property ScrollTrack(Byval tScrollTrack AS VARIANT_BOOL)
Declare Property FocusRect() AS FocusRectSettings
Declare Property FocusRect(Byval prmFocusRect AS FocusRectSettings)
Declare Property HighLight() AS HighLightSettings
Declare Property HighLight(Byval prmHighLight AS HighLightSettings)
Declare Property Redraw() AS VARIANT_BOOL
Declare Property Redraw(Byval tRedraw AS VARIANT_BOOL)
Declare Property ScrollBars() AS ScrollBarsSettings
Declare Property ScrollBars(Byval prmScrollBars AS ScrollBarsSettings)
Declare Property MouseRow() AS long
Declare Property MouseCol() AS long
Declare Property CellLeft() AS long
Declare Property CellTop() AS long
Declare Property CellWidth() AS long
Declare Property CellHeight() AS long
Declare Property RowHeightMin() AS long
Declare Property RowHeightMin(Byval prmRowHeightMin AS long)
Declare Property FillStyle() AS FillStyleSettings
Declare Property FillStyle(Byval prmFillStyle AS FillStyleSettings)
Declare Property GridLines() AS GridLineSettings
Declare Property GridLines(Byval prmGridLines AS GridLineSettings)
Declare Property GridLinesFixed() AS GridLineSettings
Declare Property GridLinesFixed(Byval prmGridLinesFixed AS GridLineSettings)
Declare Property GridColor() AS OLE_COLOR
Declare Property GridColor(Byval prmGridColor AS OLE_COLOR)
Declare Property GridColorFixed() AS OLE_COLOR
Declare Property GridColorFixed(Byval prmGridColorFixed AS OLE_COLOR)
Declare Property CellBackColor() AS OLE_COLOR
Declare Property CellBackColor(Byval prmCellBackColor AS OLE_COLOR)
Declare Property CellForeColor() AS OLE_COLOR
Declare Property CellForeColor(Byval prmCellForeColor AS OLE_COLOR)
Declare Property CellAlignment() AS short
Declare Property CellAlignment(Byval prmCellAlignment AS short)
Declare Property CellTextStyle() AS TextStyleSettings
Declare Property CellTextStyle(Byval prmCellTextStyle AS TextStyleSettings)
Declare Property CellPictureAlignment() AS short
Declare Property CellPictureAlignment(Byval prmCellPictureAlignment AS short)
Declare Property Clip() AS STRING
Declare Property Clip(Byval pbstrClip AS STRING)
Declare Property Sort(Byval prmClip AS short)
Declare Property SelectionMode() AS SelectionModeSettings
Declare Property SelectionMode(Byval prmSelectionMode AS SelectionModeSettings)
Declare Property MergeCells() AS MergeCellsSettings
Declare Property MergeCells(Byval prmMergeCells AS MergeCellsSettings)
Declare Property AllowBigSelection() AS VARIANT_BOOL
Declare Property AllowBigSelection(Byval tAllowBigSelection AS VARIANT_BOOL)
Declare Property AllowUserResizing() AS AllowUserResizeSettings
Declare Property AllowUserResizing(Byval prmAllowUserResizing AS AllowUserResizeSettings)
Declare Property BorderStyle() AS BorderStyleSettings
Declare Property BorderStyle(Byval prmBorderStyle AS BorderStyleSettings)
Declare Property hWnd() AS long
Declare Property Enabled() AS VARIANT_BOOL
Declare Property Enabled(Byval tEnabled AS VARIANT_BOOL)
Declare Property Appearance() AS AppearanceSettings
Declare Property Appearance(Byval prmAppearance AS AppearanceSettings)
Declare Property MousePointer() AS MousePointerSettings
Declare Property MousePointer(Byval prmMousePointer AS MousePointerSettings)
Declare Property MouseIcon() AS IPICTUREDISP PTR
Declare Property MouseIcon(Byval prmMouseIcon AS IPICTUREDISP Ptr)
Declare Property PictureType() AS PictureTypeSettings
Declare Property PictureType(Byval prmPictureType AS PictureTypeSettings)
Declare Property Picture() AS IPICTUREDISP Ptr
Declare Property CellPicture() AS IPICTUREDISP Ptr
Declare Property CellPicture(Byval prmCellPicture AS IPICTUREDISP Ptr)
Declare Sub AboutBox()
Declare Property TextArray(Byval prmindex AS long) AS STRING
Declare Property TextArray(Byval prmindex AS long, Byval pbstrTextArray AS STRING)
Declare Property ColAlignment(Byval prmindex AS long) AS short
Declare Property ColAlignment(Byval prmindex AS long, Byval prmColAlignment AS short)
Declare Property ColWidth(Byval prmindex AS long) AS long
Declare Property ColWidth(Byval prmindex AS long, Byval prmColWidth AS long)
Declare Property RowHeight(Byval prmindex AS long) AS long
Declare Property RowHeight(Byval prmindex AS long, Byval prmRowHeight AS long)
Declare Property MergeRow(Byval prmindex AS long) AS VARIANT_BOOL
Declare Property MergeRow(Byval prmindex AS long, Byval tMergeRow AS VARIANT_BOOL)
Declare Property MergeCol(Byval prmindex AS long) AS VARIANT_BOOL
Declare Property MergeCol(Byval prmindex AS long, Byval tMergeCol AS VARIANT_BOOL)
Declare Property RowPosition(Byval prmindex AS long, Byval prmMergeCol AS long)
Declare Property ColPosition(Byval prmindex AS long, Byval prmMergeCol AS long)
Declare Property RowData(Byval prmindex AS long) AS long
Declare Property RowData(Byval prmindex AS long, Byval prmRowData AS long)
Declare Property ColData(Byval prmindex AS long) AS long
Declare Property ColData(Byval prmindex AS long, Byval prmColData AS long)
Declare Function TextMatrix(Byval prmRow AS long, Byval prmCol AS long) AS STRING
Declare Sub TextMatrix(Byval prmRow AS long, Byval prmCol AS long, Byval pbstrTextMatrix AS STRING)
Declare Sub AddItem(Byval pbstrItem AS STRING, Byval varindex AS VARIANT)
Declare Sub RemoveItem(Byval prmindex AS long)
Declare Sub Clear()
Declare Sub Refresh()
Declare Property DataSource() AS RowCursor
Declare Property DataSource(Byval prmDataSource AS RowCursor)
Declare Property RowIsVisible(Byval prmindex AS long) AS VARIANT_BOOL
Declare Property ColIsVisible(Byval prmindex AS long) AS VARIANT_BOOL
Declare Property RowPos(Byval prmindex AS long) AS long
Declare Property ColPos(Byval prmindex AS long) AS long
Declare Property GridLineWidth() AS short
Declare Property GridLineWidth(Byval prmGridLineWidth AS short)
Declare Property FixedAlignment(Byval prmindex AS long) AS short
Declare Property FixedAlignment(Byval prmindex AS long, Byval prmFixedAlignment AS short)
Declare Property FontName() AS STRING
Declare Property FontName(Byval pbstrFontName AS STRING)
Declare Property FontSize() AS float
Declare Property FontSize(Byval prmFontSize AS float)
Declare Property FontBold() AS VARIANT_BOOL
Declare Property FontBold(Byval tFontBold AS VARIANT_BOOL)
Declare Property FontItalic() AS VARIANT_BOOL
Declare Property FontItalic(Byval tFontItalic AS VARIANT_BOOL)
Declare Property FontStrikethru() AS VARIANT_BOOL
Declare Property FontStrikethru(Byval tFontStrikethru AS VARIANT_BOOL)
Declare Property FontUnderline() AS VARIANT_BOOL
Declare Property FontUnderline(Byval tFontUnderline AS VARIANT_BOOL)
Declare Property RightToLeft() AS VARIANT_BOOL
Declare Property RightToLeft(Byval tRightToLeft AS VARIANT_BOOL)
Declare Property OLEDropMode() AS OLEDropConstants
Declare Property OLEDropMode(Byval prmpsOLEDropMode AS OLEDropConstants)
Declare Sub OLEDrag()
End Type
' IMPLEMENTATION DES CLASSE
Constructor DataObject()
ptrIVBDataObject=Create_IVBDataObject()
End Constructor
Constructor DataObject(byref value AS IVBDataObject PTR)
ptrIVBDataObject=value
End Constructor
Destructor DataObject()
End Destructor
Operator DataObject.Cast() AS IVBDataObject PTR
Return ptrIVBDataObject
End Operator
Operator DataObject.let(byref value AS IVBDataObject PTR)
ptrIVBDataObject= value
End Operator
SUB DataObject.Release()
ptrIVBDataObject->lpvtbl->Release(ptrIVBDataObject)
End SUB
Sub DataObject.Clear()
ptrIVBDataObject->lpvtbl->Clear(ptrIVBDataObject)
End Sub
FUNCTION DataObject.GetData(Byval prmsFormat AS short) AS VARIANT
DIM As VARIANT Retval
ptrIVBDataObject->lpvtbl->GetData(ptrIVBDataObject,prmsFormat,@Retval)
Return Retval
END FUNCTION
FUNCTION DataObject.GetFormat(Byval prmsFormat AS short) AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIVBDataObject->lpvtbl->GetFormat(ptrIVBDataObject,prmsFormat,@Retval)
Return Retval
END FUNCTION
Sub DataObject.SetData(Byval varvValue AS VARIANT, Byval varvFormat AS VARIANT)
ptrIVBDataObject->lpvtbl->SetData(ptrIVBDataObject,varvValue,varvFormat)
End Sub
Property DataObject.Files() AS DataObjectFiles
DIM As IVBDataObjectFiles ptr Retval
ptrIVBDataObject->lpvtbl->get_Files(ptrIVBDataObject,@Retval)
Return Retval
End Property
Constructor DataObjectFiles()
ptrIVBDataObjectFiles=Create_IVBDataObjectFiles()
End Constructor
Constructor DataObjectFiles(byref value AS IVBDataObjectFiles PTR)
ptrIVBDataObjectFiles=value
End Constructor
Destructor DataObjectFiles()
End Destructor
Operator DataObjectFiles.Cast() AS IVBDataObjectFiles PTR
Return ptrIVBDataObjectFiles
End Operator
Operator DataObjectFiles.let(byref value AS IVBDataObjectFiles PTR)
ptrIVBDataObjectFiles= value
End Operator
SUB DataObjectFiles.Release()
ptrIVBDataObjectFiles->lpvtbl->Release(ptrIVBDataObjectFiles)
End SUB
Property DataObjectFiles.Item(Byval prmlIndex AS long) AS STRING
DIM As BSTR Retval
ptrIVBDataObjectFiles->lpvtbl->get_Item(ptrIVBDataObjectFiles,prmlIndex,@Retval)
Return *cast(WSTRING PTR,Retval)
End Property
Property DataObjectFiles.Count() AS long
DIM As long Retval
ptrIVBDataObjectFiles->lpvtbl->get_Count(ptrIVBDataObjectFiles,@Retval)
Return Retval
End Property
Sub DataObjectFiles.Add(Byval pbstrbstrFilename AS STRING, Byval varvIndex AS VARIANT)
ptrIVBDataObjectFiles->lpvtbl->Add(ptrIVBDataObjectFiles,StrToBstr(pbstrbstrFilename),varvIndex)
End Sub
Sub DataObjectFiles.Clear()
ptrIVBDataObjectFiles->lpvtbl->Clear(ptrIVBDataObjectFiles)
End Sub
Sub DataObjectFiles.Remove(Byval varvIndex AS VARIANT)
ptrIVBDataObjectFiles->lpvtbl->Remove(ptrIVBDataObjectFiles,varvIndex)
End Sub
FUNCTION DataObjectFiles._NewEnum() AS LPUNKNOWN
DIM As LPUNKNOWN Retval
ptrIVBDataObjectFiles->lpvtbl->_NewEnum(ptrIVBDataObjectFiles,@Retval)
Return Retval
END FUNCTION
Constructor RowCursor()
End Constructor
Constructor RowCursor(byref value AS IRowCursor PTR)
ptrIRowCursor=value
End Constructor
Destructor RowCursor()
End Destructor
Operator RowCursor.Cast() AS IRowCursor PTR
Return ptrIRowCursor
End Operator
Operator RowCursor.let(byref value AS IRowCursor PTR)
ptrIRowCursor= value
End Operator
SUB RowCursor.Release()
ptrIRowCursor->lpvtbl->Release(ptrIRowCursor)
End SUB
Constructor MSFlexGrid()
' ptrIMSFlexGrid=Create_IMSFlexGrid()
' If this Interface have an event Interface please use Atlgetdispatch to initialize it
End Constructor
Constructor MSFlexGrid(byref value AS IMSFlexGrid PTR)
ptrIMSFlexGrid=value
End Constructor
Destructor MSFlexGrid()
End Destructor
Operator MSFlexGrid.Cast() AS IMSFlexGrid PTR
Return ptrIMSFlexGrid
End Operator
Operator MSFlexGrid.let(byref value AS IMSFlexGrid PTR)
ptrIMSFlexGrid= value
End Operator
SUB MSFlexGrid.Release()
ptrIMSFlexGrid->lpvtbl->Release(ptrIMSFlexGrid)
End SUB
Property MSFlexGrid.Rows() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_Rows(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.Rows(Byval prmRows AS long)
ptrIMSFlexGrid->lpvtbl->Put_Rows(ptrIMSFlexGrid,prmRows)
End Property
Property MSFlexGrid.Cols() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_Cols(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.Cols(Byval prmCols AS long)
ptrIMSFlexGrid->lpvtbl->Put_Cols(ptrIMSFlexGrid,prmCols)
End Property
Property MSFlexGrid.FixedRows() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_FixedRows(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.FixedRows(Byval prmFixedRows AS long)
ptrIMSFlexGrid->lpvtbl->Put_FixedRows(ptrIMSFlexGrid,prmFixedRows)
End Property
Property MSFlexGrid.FixedCols() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_FixedCols(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.FixedCols(Byval prmFixedCols AS long)
ptrIMSFlexGrid->lpvtbl->Put_FixedCols(ptrIMSFlexGrid,prmFixedCols)
End Property
Property MSFlexGrid.Version() AS short
DIM As short Retval
ptrIMSFlexGrid->lpvtbl->get_Version(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.FormatString() AS STRING
DIM As BSTR Retval
ptrIMSFlexGrid->lpvtbl->get_FormatString(ptrIMSFlexGrid,@Retval)
Return *cast(WSTRING PTR,Retval)
End Property
Property MSFlexGrid.FormatString(Byval pbstrFormatString AS STRING)
ptrIMSFlexGrid->lpvtbl->Put_FormatString(ptrIMSFlexGrid,StrToBstr(pbstrFormatString))
End Property
Property MSFlexGrid.TopRow() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_TopRow(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.TopRow(Byval prmTopRow AS long)
ptrIMSFlexGrid->lpvtbl->Put_TopRow(ptrIMSFlexGrid,prmTopRow)
End Property
Property MSFlexGrid.LeftCol() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_LeftCol(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.LeftCol(Byval prmLeftCol AS long)
ptrIMSFlexGrid->lpvtbl->Put_LeftCol(ptrIMSFlexGrid,prmLeftCol)
End Property
Property MSFlexGrid.Row() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_Row(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.Row(Byval prmRow AS long)
ptrIMSFlexGrid->lpvtbl->Put_Row(ptrIMSFlexGrid,prmRow)
End Property
Property MSFlexGrid.Col() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_Col(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.Col(Byval prmCol AS long)
ptrIMSFlexGrid->lpvtbl->Put_Col(ptrIMSFlexGrid,prmCol)
End Property
Property MSFlexGrid.RowSel() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_RowSel(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.RowSel(Byval prmRowSel AS long)
ptrIMSFlexGrid->lpvtbl->Put_RowSel(ptrIMSFlexGrid,prmRowSel)
End Property
Property MSFlexGrid.ColSel() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_ColSel(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.ColSel(Byval prmColSel AS long)
ptrIMSFlexGrid->lpvtbl->Put_ColSel(ptrIMSFlexGrid,prmColSel)
End Property
Property MSFlexGrid.Text() AS STRING
DIM As BSTR Retval
ptrIMSFlexGrid->lpvtbl->get_Text(ptrIMSFlexGrid,@Retval)
Return *cast(WSTRING PTR,Retval)
End Property
Property MSFlexGrid.Text(Byval pbstrText AS STRING)
ptrIMSFlexGrid->lpvtbl->Put_Text(ptrIMSFlexGrid,StrToBstr(pbstrText))
End Property
Property MSFlexGrid.BackColor() AS OLE_COLOR
DIM As OLE_COLOR Retval
ptrIMSFlexGrid->lpvtbl->get_BackColor(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.BackColor(Byval prmBackColor AS OLE_COLOR)
ptrIMSFlexGrid->lpvtbl->Put_BackColor(ptrIMSFlexGrid,prmBackColor)
End Property
Property MSFlexGrid.ForeColor() AS OLE_COLOR
DIM As OLE_COLOR Retval
ptrIMSFlexGrid->lpvtbl->get_ForeColor(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.ForeColor(Byval prmForeColor AS OLE_COLOR)
ptrIMSFlexGrid->lpvtbl->Put_ForeColor(ptrIMSFlexGrid,prmForeColor)
End Property
Property MSFlexGrid.BackColorFixed() AS OLE_COLOR
DIM As OLE_COLOR Retval
ptrIMSFlexGrid->lpvtbl->get_BackColorFixed(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.BackColorFixed(Byval prmBackColorFixed AS OLE_COLOR)
ptrIMSFlexGrid->lpvtbl->Put_BackColorFixed(ptrIMSFlexGrid,prmBackColorFixed)
End Property
Property MSFlexGrid.ForeColorFixed() AS OLE_COLOR
DIM As OLE_COLOR Retval
ptrIMSFlexGrid->lpvtbl->get_ForeColorFixed(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.ForeColorFixed(Byval prmForeColorFixed AS OLE_COLOR)
ptrIMSFlexGrid->lpvtbl->Put_ForeColorFixed(ptrIMSFlexGrid,prmForeColorFixed)
End Property
Property MSFlexGrid.BackColorSel() AS OLE_COLOR
DIM As OLE_COLOR Retval
ptrIMSFlexGrid->lpvtbl->get_BackColorSel(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.BackColorSel(Byval prmBackColorSel AS OLE_COLOR)
ptrIMSFlexGrid->lpvtbl->Put_BackColorSel(ptrIMSFlexGrid,prmBackColorSel)
End Property
Property MSFlexGrid.ForeColorSel() AS OLE_COLOR
DIM As OLE_COLOR Retval
ptrIMSFlexGrid->lpvtbl->get_ForeColorSel(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.ForeColorSel(Byval prmForeColorSel AS OLE_COLOR)
ptrIMSFlexGrid->lpvtbl->Put_ForeColorSel(ptrIMSFlexGrid,prmForeColorSel)
End Property
Property MSFlexGrid.BackColorBkg() AS OLE_COLOR
DIM As OLE_COLOR Retval
ptrIMSFlexGrid->lpvtbl->get_BackColorBkg(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.BackColorBkg(Byval prmBackColorBkg AS OLE_COLOR)
ptrIMSFlexGrid->lpvtbl->Put_BackColorBkg(ptrIMSFlexGrid,prmBackColorBkg)
End Property
Property MSFlexGrid.WordWrap() AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_WordWrap(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.WordWrap(Byval tWordWrap AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_WordWrap(ptrIMSFlexGrid,tWordWrap)
End Property
Property MSFlexGrid.Font() AS IFONTDISP PTR
DIM As IFONTDISP Ptr Retval
ptrIMSFlexGrid->lpvtbl->get_Font(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.Font(Byval prmFont AS IFONTDISP PTR)
ptrIMSFlexGrid->lpvtbl->PutRef_Font(ptrIMSFlexGrid,prmFont)
End Property
Property MSFlexGrid.FontWidth() AS float
DIM As float Retval
ptrIMSFlexGrid->lpvtbl->get_FontWidth(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.FontWidth(Byval prmFontWidth AS float)
ptrIMSFlexGrid->lpvtbl->Put_FontWidth(ptrIMSFlexGrid,prmFontWidth)
End Property
Property MSFlexGrid.CellFontName() AS STRING
DIM As BSTR Retval
ptrIMSFlexGrid->lpvtbl->get_CellFontName(ptrIMSFlexGrid,@Retval)
Return *cast(WSTRING PTR,Retval)
End Property
Property MSFlexGrid.CellFontName(Byval pbstrCellFontName AS STRING)
ptrIMSFlexGrid->lpvtbl->Put_CellFontName(ptrIMSFlexGrid,StrToBstr(pbstrCellFontName))
End Property
Property MSFlexGrid.CellFontSize() AS float
DIM As float Retval
ptrIMSFlexGrid->lpvtbl->get_CellFontSize(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellFontSize(Byval prmCellFontSize AS float)
ptrIMSFlexGrid->lpvtbl->Put_CellFontSize(ptrIMSFlexGrid,prmCellFontSize)
End Property
Property MSFlexGrid.CellFontBold() AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_CellFontBold(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellFontBold(Byval tCellFontBold AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_CellFontBold(ptrIMSFlexGrid,tCellFontBold)
End Property
Property MSFlexGrid.CellFontItalic() AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_CellFontItalic(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellFontItalic(Byval tCellFontItalic AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_CellFontItalic(ptrIMSFlexGrid,tCellFontItalic)
End Property
Property MSFlexGrid.CellFontUnderline() AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_CellFontUnderline(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellFontUnderline(Byval tCellFontUnderline AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_CellFontUnderline(ptrIMSFlexGrid,tCellFontUnderline)
End Property
Property MSFlexGrid.CellFontStrikeThrough() AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_CellFontStrikeThrough(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellFontStrikeThrough(Byval tCellFontStrikeThrough AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_CellFontStrikeThrough(ptrIMSFlexGrid,tCellFontStrikeThrough)
End Property
Property MSFlexGrid.CellFontWidth() AS float
DIM As float Retval
ptrIMSFlexGrid->lpvtbl->get_CellFontWidth(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellFontWidth(Byval prmCellFontWidth AS float)
ptrIMSFlexGrid->lpvtbl->Put_CellFontWidth(ptrIMSFlexGrid,prmCellFontWidth)
End Property
Property MSFlexGrid.TextStyle() AS TextStyleSettings
DIM As TextStyleSettings Retval
ptrIMSFlexGrid->lpvtbl->get_TextStyle(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.TextStyle(Byval prmTextStyle AS TextStyleSettings)
ptrIMSFlexGrid->lpvtbl->Put_TextStyle(ptrIMSFlexGrid,prmTextStyle)
End Property
Property MSFlexGrid.TextStyleFixed() AS TextStyleSettings
DIM As TextStyleSettings Retval
ptrIMSFlexGrid->lpvtbl->get_TextStyleFixed(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.TextStyleFixed(Byval prmTextStyleFixed AS TextStyleSettings)
ptrIMSFlexGrid->lpvtbl->Put_TextStyleFixed(ptrIMSFlexGrid,prmTextStyleFixed)
End Property
Property MSFlexGrid.ScrollTrack() AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_ScrollTrack(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.ScrollTrack(Byval tScrollTrack AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_ScrollTrack(ptrIMSFlexGrid,tScrollTrack)
End Property
Property MSFlexGrid.FocusRect() AS FocusRectSettings
DIM As FocusRectSettings Retval
ptrIMSFlexGrid->lpvtbl->get_FocusRect(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.FocusRect(Byval prmFocusRect AS FocusRectSettings)
ptrIMSFlexGrid->lpvtbl->Put_FocusRect(ptrIMSFlexGrid,prmFocusRect)
End Property
Property MSFlexGrid.HighLight() AS HighLightSettings
DIM As HighLightSettings Retval
ptrIMSFlexGrid->lpvtbl->get_HighLight(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.HighLight(Byval prmHighLight AS HighLightSettings)
ptrIMSFlexGrid->lpvtbl->Put_HighLight(ptrIMSFlexGrid,prmHighLight)
End Property
Property MSFlexGrid.Redraw() AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_Redraw(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.Redraw(Byval tRedraw AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_Redraw(ptrIMSFlexGrid,tRedraw)
End Property
Property MSFlexGrid.ScrollBars() AS ScrollBarsSettings
DIM As ScrollBarsSettings Retval
ptrIMSFlexGrid->lpvtbl->get_ScrollBars(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.ScrollBars(Byval prmScrollBars AS ScrollBarsSettings)
ptrIMSFlexGrid->lpvtbl->Put_ScrollBars(ptrIMSFlexGrid,prmScrollBars)
End Property
Property MSFlexGrid.MouseRow() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_MouseRow(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.MouseCol() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_MouseCol(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellLeft() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_CellLeft(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellTop() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_CellTop(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellWidth() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_CellWidth(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellHeight() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_CellHeight(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.RowHeightMin() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_RowHeightMin(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.RowHeightMin(Byval prmRowHeightMin AS long)
ptrIMSFlexGrid->lpvtbl->Put_RowHeightMin(ptrIMSFlexGrid,prmRowHeightMin)
End Property
Property MSFlexGrid.FillStyle() AS FillStyleSettings
DIM As FillStyleSettings Retval
ptrIMSFlexGrid->lpvtbl->get_FillStyle(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.FillStyle(Byval prmFillStyle AS FillStyleSettings)
ptrIMSFlexGrid->lpvtbl->Put_FillStyle(ptrIMSFlexGrid,prmFillStyle)
End Property
Property MSFlexGrid.GridLines() AS GridLineSettings
DIM As GridLineSettings Retval
ptrIMSFlexGrid->lpvtbl->get_GridLines(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.GridLines(Byval prmGridLines AS GridLineSettings)
ptrIMSFlexGrid->lpvtbl->Put_GridLines(ptrIMSFlexGrid,prmGridLines)
End Property
Property MSFlexGrid.GridLinesFixed() AS GridLineSettings
DIM As GridLineSettings Retval
ptrIMSFlexGrid->lpvtbl->get_GridLinesFixed(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.GridLinesFixed(Byval prmGridLinesFixed AS GridLineSettings)
ptrIMSFlexGrid->lpvtbl->Put_GridLinesFixed(ptrIMSFlexGrid,prmGridLinesFixed)
End Property
Property MSFlexGrid.GridColor() AS OLE_COLOR
DIM As OLE_COLOR Retval
ptrIMSFlexGrid->lpvtbl->get_GridColor(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.GridColor(Byval prmGridColor AS OLE_COLOR)
ptrIMSFlexGrid->lpvtbl->Put_GridColor(ptrIMSFlexGrid,prmGridColor)
End Property
Property MSFlexGrid.GridColorFixed() AS OLE_COLOR
DIM As OLE_COLOR Retval
ptrIMSFlexGrid->lpvtbl->get_GridColorFixed(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.GridColorFixed(Byval prmGridColorFixed AS OLE_COLOR)
ptrIMSFlexGrid->lpvtbl->Put_GridColorFixed(ptrIMSFlexGrid,prmGridColorFixed)
End Property
Property MSFlexGrid.CellBackColor() AS OLE_COLOR
DIM As OLE_COLOR Retval
ptrIMSFlexGrid->lpvtbl->get_CellBackColor(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellBackColor(Byval prmCellBackColor AS OLE_COLOR)
ptrIMSFlexGrid->lpvtbl->Put_CellBackColor(ptrIMSFlexGrid,prmCellBackColor)
End Property
Property MSFlexGrid.CellForeColor() AS OLE_COLOR
DIM As OLE_COLOR Retval
ptrIMSFlexGrid->lpvtbl->get_CellForeColor(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellForeColor(Byval prmCellForeColor AS OLE_COLOR)
ptrIMSFlexGrid->lpvtbl->Put_CellForeColor(ptrIMSFlexGrid,prmCellForeColor)
End Property
Property MSFlexGrid.CellAlignment() AS short
DIM As short Retval
ptrIMSFlexGrid->lpvtbl->get_CellAlignment(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellAlignment(Byval prmCellAlignment AS short)
ptrIMSFlexGrid->lpvtbl->Put_CellAlignment(ptrIMSFlexGrid,prmCellAlignment)
End Property
Property MSFlexGrid.CellTextStyle() AS TextStyleSettings
DIM As TextStyleSettings Retval
ptrIMSFlexGrid->lpvtbl->get_CellTextStyle(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellTextStyle(Byval prmCellTextStyle AS TextStyleSettings)
ptrIMSFlexGrid->lpvtbl->Put_CellTextStyle(ptrIMSFlexGrid,prmCellTextStyle)
End Property
Property MSFlexGrid.CellPictureAlignment() AS short
DIM As short Retval
ptrIMSFlexGrid->lpvtbl->get_CellPictureAlignment(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellPictureAlignment(Byval prmCellPictureAlignment AS short)
ptrIMSFlexGrid->lpvtbl->Put_CellPictureAlignment(ptrIMSFlexGrid,prmCellPictureAlignment)
End Property
Property MSFlexGrid.Clip() AS STRING
DIM As BSTR Retval
ptrIMSFlexGrid->lpvtbl->get_Clip(ptrIMSFlexGrid,@Retval)
Return *cast(WSTRING PTR,Retval)
End Property
Property MSFlexGrid.Clip(Byval pbstrClip AS STRING)
ptrIMSFlexGrid->lpvtbl->Put_Clip(ptrIMSFlexGrid,StrToBstr(pbstrClip))
End Property
Property MSFlexGrid.Sort(Byval prmClip AS short)
ptrIMSFlexGrid->lpvtbl->Put_Sort(ptrIMSFlexGrid,prmClip)
End Property
Property MSFlexGrid.SelectionMode() AS SelectionModeSettings
DIM As SelectionModeSettings Retval
ptrIMSFlexGrid->lpvtbl->get_SelectionMode(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.SelectionMode(Byval prmSelectionMode AS SelectionModeSettings)
ptrIMSFlexGrid->lpvtbl->Put_SelectionMode(ptrIMSFlexGrid,prmSelectionMode)
End Property
Property MSFlexGrid.MergeCells() AS MergeCellsSettings
DIM As MergeCellsSettings Retval
ptrIMSFlexGrid->lpvtbl->get_MergeCells(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.MergeCells(Byval prmMergeCells AS MergeCellsSettings)
ptrIMSFlexGrid->lpvtbl->Put_MergeCells(ptrIMSFlexGrid,prmMergeCells)
End Property
Property MSFlexGrid.AllowBigSelection() AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_AllowBigSelection(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.AllowBigSelection(Byval tAllowBigSelection AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_AllowBigSelection(ptrIMSFlexGrid,tAllowBigSelection)
End Property
Property MSFlexGrid.AllowUserResizing() AS AllowUserResizeSettings
DIM As AllowUserResizeSettings Retval
ptrIMSFlexGrid->lpvtbl->get_AllowUserResizing(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.AllowUserResizing(Byval prmAllowUserResizing AS AllowUserResizeSettings)
ptrIMSFlexGrid->lpvtbl->Put_AllowUserResizing(ptrIMSFlexGrid,prmAllowUserResizing)
End Property
Property MSFlexGrid.BorderStyle() AS BorderStyleSettings
DIM As BorderStyleSettings Retval
ptrIMSFlexGrid->lpvtbl->get_BorderStyle(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.BorderStyle(Byval prmBorderStyle AS BorderStyleSettings)
ptrIMSFlexGrid->lpvtbl->Put_BorderStyle(ptrIMSFlexGrid,prmBorderStyle)
End Property
Property MSFlexGrid.hWnd() AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_hWnd(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.Enabled() AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_Enabled(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.Enabled(Byval tEnabled AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_Enabled(ptrIMSFlexGrid,tEnabled)
End Property
Property MSFlexGrid.Appearance() AS AppearanceSettings
DIM As AppearanceSettings Retval
ptrIMSFlexGrid->lpvtbl->get_Appearance(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.Appearance(Byval prmAppearance AS AppearanceSettings)
ptrIMSFlexGrid->lpvtbl->Put_Appearance(ptrIMSFlexGrid,prmAppearance)
End Property
Property MSFlexGrid.MousePointer() AS MousePointerSettings
DIM As MousePointerSettings Retval
ptrIMSFlexGrid->lpvtbl->get_MousePointer(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.MousePointer(Byval prmMousePointer AS MousePointerSettings)
ptrIMSFlexGrid->lpvtbl->Put_MousePointer(ptrIMSFlexGrid,prmMousePointer)
End Property
Property MSFlexGrid.MouseIcon() AS IPICTUREDISP Ptr
DIM As IPICTUREDISP Ptr Retval
ptrIMSFlexGrid->lpvtbl->get_MouseIcon(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.MouseIcon(Byval prmMouseIcon AS IPICTUREDISP Ptr)
ptrIMSFlexGrid->lpvtbl->PutRef_MouseIcon(ptrIMSFlexGrid,prmMouseIcon)
End Property
Property MSFlexGrid.PictureType() AS PictureTypeSettings
DIM As PictureTypeSettings Retval
ptrIMSFlexGrid->lpvtbl->get_PictureType(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.PictureType(Byval prmPictureType AS PictureTypeSettings)
ptrIMSFlexGrid->lpvtbl->Put_PictureType(ptrIMSFlexGrid,prmPictureType)
End Property
Property MSFlexGrid.Picture() AS IPICTUREDISP Ptr
DIM As IPICTUREDISP Ptr Retval
ptrIMSFlexGrid->lpvtbl->get_Picture(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellPicture() AS IPICTUREDISP Ptr
DIM As IPICTUREDISP Ptr Retval
ptrIMSFlexGrid->lpvtbl->get_CellPicture(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.CellPicture(Byval prmCellPicture AS IPICTUREDISP PTR)
ptrIMSFlexGrid->lpvtbl->PutRef_CellPicture(ptrIMSFlexGrid,prmCellPicture)
End Property
Sub MSFlexGrid.AboutBox()
ptrIMSFlexGrid->lpvtbl->AboutBox(ptrIMSFlexGrid)
End Sub
Property MSFlexGrid.TextArray(Byval prmindex AS long) AS STRING
DIM As BSTR Retval
ptrIMSFlexGrid->lpvtbl->get_TextArray(ptrIMSFlexGrid,prmindex,@Retval)
Return *cast(WSTRING PTR,Retval)
End Property
Property MSFlexGrid.TextArray(Byval prmindex AS long, Byval pbstrTextArray AS STRING)
ptrIMSFlexGrid->lpvtbl->Put_TextArray(ptrIMSFlexGrid,prmindex,StrToBstr(pbstrTextArray))
End Property
Property MSFlexGrid.ColAlignment(Byval prmindex AS long) AS short
DIM As short Retval
ptrIMSFlexGrid->lpvtbl->get_ColAlignment(ptrIMSFlexGrid,prmindex,@Retval)
Return Retval
End Property
Property MSFlexGrid.ColAlignment(Byval prmindex AS long, Byval prmColAlignment AS short)
ptrIMSFlexGrid->lpvtbl->Put_ColAlignment(ptrIMSFlexGrid,prmindex,prmColAlignment)
End Property
Property MSFlexGrid.ColWidth(Byval prmindex AS long) AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_ColWidth(ptrIMSFlexGrid,prmindex,@Retval)
Return Retval
End Property
Property MSFlexGrid.ColWidth(Byval prmindex AS long, Byval prmColWidth AS long)
ptrIMSFlexGrid->lpvtbl->Put_ColWidth(ptrIMSFlexGrid,prmindex,prmColWidth)
End Property
Property MSFlexGrid.RowHeight(Byval prmindex AS long) AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_RowHeight(ptrIMSFlexGrid,prmindex,@Retval)
Return Retval
End Property
Property MSFlexGrid.RowHeight(Byval prmindex AS long, Byval prmRowHeight AS long)
ptrIMSFlexGrid->lpvtbl->Put_RowHeight(ptrIMSFlexGrid,prmindex,prmRowHeight)
End Property
Property MSFlexGrid.MergeRow(Byval prmindex AS long) AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_MergeRow(ptrIMSFlexGrid,prmindex,@Retval)
Return Retval
End Property
Property MSFlexGrid.MergeRow(Byval prmindex AS long, Byval tMergeRow AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_MergeRow(ptrIMSFlexGrid,prmindex,tMergeRow)
End Property
Property MSFlexGrid.MergeCol(Byval prmindex AS long) AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_MergeCol(ptrIMSFlexGrid,prmindex,@Retval)
Return Retval
End Property
Property MSFlexGrid.MergeCol(Byval prmindex AS long, Byval tMergeCol AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_MergeCol(ptrIMSFlexGrid,prmindex,tMergeCol)
End Property
Property MSFlexGrid.RowPosition(Byval prmindex AS long, Byval prmMergeCol AS long)
ptrIMSFlexGrid->lpvtbl->Put_RowPosition(ptrIMSFlexGrid,prmindex,prmMergeCol)
End Property
Property MSFlexGrid.ColPosition(Byval prmindex AS long, Byval prmMergeCol AS long)
ptrIMSFlexGrid->lpvtbl->Put_ColPosition(ptrIMSFlexGrid,prmindex,prmMergeCol)
End Property
Property MSFlexGrid.RowData(Byval prmindex AS long) AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_RowData(ptrIMSFlexGrid,prmindex,@Retval)
Return Retval
End Property
Property MSFlexGrid.RowData(Byval prmindex AS long, Byval prmRowData AS long)
ptrIMSFlexGrid->lpvtbl->Put_RowData(ptrIMSFlexGrid,prmindex,prmRowData)
End Property
Property MSFlexGrid.ColData(Byval prmindex AS long) AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_ColData(ptrIMSFlexGrid,prmindex,@Retval)
Return Retval
End Property
Property MSFlexGrid.ColData(Byval prmindex AS long, Byval prmColData AS long)
ptrIMSFlexGrid->lpvtbl->Put_ColData(ptrIMSFlexGrid,prmindex,prmColData)
End Property
FUNCTION MSFlexGrid.TextMatrix(Byval prmRow AS long, Byval prmCol AS long) AS STRING
DIM As BSTR Retval
ptrIMSFlexGrid->lpvtbl->get_TextMatrix(ptrIMSFlexGrid,prmRow,prmCol,@Retval)
Return *cast(WSTRING PTR,Retval)
END FUNCTION
Sub MSFlexGrid.TextMatrix(Byval prmRow AS long, Byval prmCol AS long, Byval pbstrTextMatrix AS STRING)
ptrIMSFlexGrid->lpvtbl->Put_TextMatrix(ptrIMSFlexGrid,prmRow,prmCol,StrToBstr(pbstrTextMatrix))
End Sub
Sub MSFlexGrid.AddItem(Byval pbstrItem AS STRING, Byval varindex AS VARIANT)
ptrIMSFlexGrid->lpvtbl->AddItem(ptrIMSFlexGrid,StrToBstr(pbstrItem),varindex)
End Sub
Sub MSFlexGrid.RemoveItem(Byval prmindex AS long)
ptrIMSFlexGrid->lpvtbl->RemoveItem(ptrIMSFlexGrid,prmindex)
End Sub
Sub MSFlexGrid.Clear()
ptrIMSFlexGrid->lpvtbl->Clear(ptrIMSFlexGrid)
End Sub
Sub MSFlexGrid.Refresh()
ptrIMSFlexGrid->lpvtbl->Refresh(ptrIMSFlexGrid)
End Sub
Property MSFlexGrid.DataSource() AS RowCursor
DIM As IRowCursor ptr Retval
ptrIMSFlexGrid->lpvtbl->get_DataSource(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.DataSource(Byval prmDataSource AS RowCursor)
ptrIMSFlexGrid->lpvtbl->Put_DataSource(ptrIMSFlexGrid,prmDataSource)
End Property
Property MSFlexGrid.RowIsVisible(Byval prmindex AS long) AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_RowIsVisible(ptrIMSFlexGrid,prmindex,@Retval)
Return Retval
End Property
Property MSFlexGrid.ColIsVisible(Byval prmindex AS long) AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_ColIsVisible(ptrIMSFlexGrid,prmindex,@Retval)
Return Retval
End Property
Property MSFlexGrid.RowPos(Byval prmindex AS long) AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_RowPos(ptrIMSFlexGrid,prmindex,@Retval)
Return Retval
End Property
Property MSFlexGrid.ColPos(Byval prmindex AS long) AS long
DIM As long Retval
ptrIMSFlexGrid->lpvtbl->get_ColPos(ptrIMSFlexGrid,prmindex,@Retval)
Return Retval
End Property
Property MSFlexGrid.GridLineWidth() AS short
DIM As short Retval
ptrIMSFlexGrid->lpvtbl->get_GridLineWidth(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.GridLineWidth(Byval prmGridLineWidth AS short)
ptrIMSFlexGrid->lpvtbl->Put_GridLineWidth(ptrIMSFlexGrid,prmGridLineWidth)
End Property
Property MSFlexGrid.FixedAlignment(Byval prmindex AS long) AS short
DIM As short Retval
ptrIMSFlexGrid->lpvtbl->get_FixedAlignment(ptrIMSFlexGrid,prmindex,@Retval)
Return Retval
End Property
Property MSFlexGrid.FixedAlignment(Byval prmindex AS long, Byval prmFixedAlignment AS short)
ptrIMSFlexGrid->lpvtbl->Put_FixedAlignment(ptrIMSFlexGrid,prmindex,prmFixedAlignment)
End Property
Property MSFlexGrid.FontName() AS STRING
DIM As BSTR Retval
ptrIMSFlexGrid->lpvtbl->get_FontName(ptrIMSFlexGrid,@Retval)
Return *cast(WSTRING PTR,Retval)
End Property
Property MSFlexGrid.FontName(Byval pbstrFontName AS STRING)
ptrIMSFlexGrid->lpvtbl->Put_FontName(ptrIMSFlexGrid,StrToBstr(pbstrFontName))
End Property
Property MSFlexGrid.FontSize() AS float
DIM As float Retval
ptrIMSFlexGrid->lpvtbl->get_FontSize(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.FontSize(Byval prmFontSize AS float)
ptrIMSFlexGrid->lpvtbl->Put_FontSize(ptrIMSFlexGrid,prmFontSize)
End Property
Property MSFlexGrid.FontBold() AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_FontBold(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.FontBold(Byval tFontBold AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_FontBold(ptrIMSFlexGrid,tFontBold)
End Property
Property MSFlexGrid.FontItalic() AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_FontItalic(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.FontItalic(Byval tFontItalic AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_FontItalic(ptrIMSFlexGrid,tFontItalic)
End Property
Property MSFlexGrid.FontStrikethru() AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_FontStrikethru(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.FontStrikethru(Byval tFontStrikethru AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_FontStrikethru(ptrIMSFlexGrid,tFontStrikethru)
End Property
Property MSFlexGrid.FontUnderline() AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_FontUnderline(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.FontUnderline(Byval tFontUnderline AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_FontUnderline(ptrIMSFlexGrid,tFontUnderline)
End Property
Property MSFlexGrid.RightToLeft() AS VARIANT_BOOL
DIM As VARIANT_BOOL Retval
ptrIMSFlexGrid->lpvtbl->get_RightToLeft(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.RightToLeft(Byval tRightToLeft AS VARIANT_BOOL)
ptrIMSFlexGrid->lpvtbl->Put_RightToLeft(ptrIMSFlexGrid,tRightToLeft)
End Property
Property MSFlexGrid.OLEDropMode() AS OLEDropConstants
DIM As OLEDropConstants Retval
ptrIMSFlexGrid->lpvtbl->get_OLEDropMode(ptrIMSFlexGrid,@Retval)
Return Retval
End Property
Property MSFlexGrid.OLEDropMode(Byval prmpsOLEDropMode AS OLEDropConstants)
ptrIMSFlexGrid->lpvtbl->Put_OLEDropMode(ptrIMSFlexGrid,prmpsOLEDropMode)
End Property
Sub MSFlexGrid.OLEDrag()
ptrIMSFlexGrid->lpvtbl->OLEDrag(ptrIMSFlexGrid)
End Sub