home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / VCFRMLA1.PAS < prev    next >
Pascal/Delphi Source File  |  1997-01-16  |  75KB  |  2,150 lines
  1. unit VCFrmla1;
  2.  
  3. { Conversion log:
  4.   Property TVCFormulaOne.Type renamed to Type_: Identifier is a reserved word }
  5.  
  6. interface
  7.  
  8. uses Ole2, OleCtl, Classes, Graphics, OleCtrls;
  9.  
  10. const
  11.  
  12. { F1ColWidthUnitsConstants }
  13.  
  14.   F1ColWidthUnitsCharacters = 0;
  15.   F1ColWidthUnitsTwips = 1;
  16.  
  17. { F1MousePointerConstants }
  18.  
  19.   F1Default = 0;
  20.   F1Arrow = 1;
  21.   F1Cross = 2;
  22.   F1IBeam = 3;
  23.   F1Icon = 4;
  24.   F1Size = 5;
  25.   F1SizeNESW = 6;
  26.   F1SizeNS = 7;
  27.   F1SizeNWSE = 8;
  28.   F1SizeWE = 9;
  29.   F1UpArrow = 10;
  30.   F1Hourglass = 11;
  31.   F1NoDrop = 12;
  32.   F1Custom = 13;
  33.  
  34. { F1ShowOffOnAutoConstants }
  35.  
  36.   F1Off = 0;
  37.   F1On = 1;
  38.   F1Auto = 2;
  39.  
  40. { F1ShowTabsConstants }
  41.  
  42.   F1TabsOff = 0;
  43.   F1TabsBottom = 1;
  44.   F1TabsTop = 2;
  45.  
  46. { F1ModeConstants }
  47.  
  48.   F1ModeNormal = 0;
  49.   F1ModeLine = 1;
  50.   F1ModeRectangle = 2;
  51.   F1ModeOval = 3;
  52.   F1ModeArc = 4;
  53.   F1ModeChart = 5;
  54.   F1ModeField = 6;
  55.   F1ModeButton = 7;
  56.   F1ModePolygon = 8;
  57.   F1ModeCheckBox = 9;
  58.   F1ModeDropDown = 10;
  59.  
  60. { F1PolyEditModeConstants }
  61.  
  62.   F1PolyEditModeNormal = 0;
  63.   F1PolyEditModePoints = 1;
  64.  
  65. { F1ShiftTypeConstants }
  66.  
  67.   F1ShiftHorizontal = 1;
  68.   F1ShiftVertical = 2;
  69.   F1ShiftRows = 3;
  70.   F1ShiftCols = 4;
  71.  
  72. { F1HAlignConstants }
  73.  
  74.   F1HAlignGeneral = 1;
  75.   F1HAlignLeft = 2;
  76.   F1HAlignCenter = 3;
  77.   F1HAlignRight = 4;
  78.   F1HAlignFill = 5;
  79.   F1HAlignJustify = 6;
  80.   F1HAlignCenterAcrossCells = 7;
  81.  
  82. { F1VAlignConstants }
  83.  
  84.   F1VAlignTop = 1;
  85.   F1VAlignCenter = 2;
  86.   F1VAlignBottom = 3;
  87.  
  88. { F1ClearTypeConstants }
  89.  
  90.   F1ClearDlg = 0;
  91.   F1ClearAll = 1;
  92.   F1ClearFormats = 2;
  93.   F1ClearValues = 3;
  94.  
  95. { F1FileTypeConstants }
  96.  
  97.   F1FileFormulaOne = 1;
  98.   F1FileExcel4 = 2;
  99.   F1FileTabbedText = 3;
  100.   F1FileExcel5 = 4;
  101.   F1FileFormulaOne3 = 5;
  102.   F1FileTabbedTextValuesOnly = 6;
  103.  
  104. { F1ObjTypeConstants }
  105.  
  106.   F1ObjLine = 1;
  107.   F1ObjRectangle = 2;
  108.   F1ObjOval = 3;
  109.   F1ObjArc = 4;
  110.   F1ObjChart = 5;
  111.   F1ObjButton = 7;
  112.   F1ObjPolygon = 8;
  113.   F1ObjCheckBox = 9;
  114.   F1ObjDropDown = 10;
  115.   F1ObjPicture = 11;
  116.  
  117. { F1ErrorConstants }
  118.  
  119.   F1ErrorNone = 0;
  120.   F1ErrorGeneral = 20001;
  121.   F1ErrorBadArgument = 20002;
  122.   F1ErrorNoMemory = 20003;
  123.   F1ErrorBadFormula = 20004;
  124.   F1ErrorBufTooShort = 20005;
  125.   F1ErrorNotFound = 20006;
  126.   F1ErrorBadRC = 20007;
  127.   F1ErrorBadHSS = 20008;
  128.   F1ErrorTooManyHSS = 20009;
  129.   F1ErrorNoTable = 20010;
  130.   F1ErrorUnableToOpenFile = 20011;
  131.   F1ErrorInvalidFile = 20012;
  132.   F1ErrorInsertShiftOffTable = 20013;
  133.   F1ErrorOnlyOneRange = 20014;
  134.   F1ErrorNothingToPaste = 20015;
  135.   F1ErrorBadNumberFormat = 20016;
  136.   F1ErrorTooManyFonts = 20017;
  137.   F1ErrorTooManySelectedRanges = 20018;
  138.   F1ErrorUnableToWriteFile = 20019;
  139.   F1ErrorNoTransaction = 20020;
  140.   F1ErrorNothingToPrint = 20021;
  141.   F1ErrorPrintMarginsDontFit = 20022;
  142.   F1ErrorCancel = 20023;
  143.   F1ErrorUnableToInitializePrinter = 20024;
  144.   F1ErrorStringTooLong = 20025;
  145.   F1ErrorFormulaTooLong = 20026;
  146.   F1ErrorUnableToOpenClipboard = 20027;
  147.   F1ErrorPasteWouldOverflowSheet = 20028;
  148.   F1ErrorLockedCellsCannotBeModified = 20029;
  149.   F1ErrorLockedDocCannotBeModified = 20030;
  150.   F1ErrorInvalidName = 20031;
  151.   F1ErrorCannotDeleteNameInUse = 20032;
  152.   F1ErrorUnableToFindName = 20033;
  153.   F1ErrorNoWindow = 20034;
  154.   F1ErrorSelection = 20035;
  155.   F1ErrorTooManyObjects = 20036;
  156.   F1ErrorInvalidObjectType = 20037;
  157.   F1ErrorObjectNotFound = 20038;
  158.   F1ErrorInvalidRequest = 20039;
  159.   F1ErrorBadValidationRule = 20040;
  160.   F1ErrorBadInputMask = 20041;
  161.   F1ErrorValidationFailed = 20042;
  162.   F1ErrorNoODBCConnection = 20043;
  163.   F1ErrorUnableToLoadODBC = 20044;
  164.   F1ErrorUnsupportedFeature = 20045;
  165.  
  166. { F1ControlCellConstants }
  167.  
  168.   F1ControlNoCell = 0;
  169.   F1ControlCellValue = 1;
  170.   F1ControlCellText = 2;
  171.  
  172. type
  173.  
  174.   TVCFormulaOneClick = procedure(Sender: TObject; nRow, nCol: Integer) of object;
  175.   TVCFormulaOneDblClick = procedure(Sender: TObject; nRow, nCol: Integer) of object;
  176.   TVCFormulaOneStartEdit = procedure(Sender: TObject; var EditString: string; var Cancel: Smallint) of object;
  177.   TVCFormulaOneEndEdit = procedure(Sender: TObject; var EditString: string; var Cancel: Smallint) of object;
  178.   TVCFormulaOneObjClick = procedure(Sender: TObject; var ObjName: string; ObjID: Integer) of object;
  179.   TVCFormulaOneObjDblClick = procedure(Sender: TObject; var ObjName: string; ObjID: Integer) of object;
  180.   TVCFormulaOneRClick = procedure(Sender: TObject; nRow, nCol: Integer) of object;
  181.   TVCFormulaOneRDblClick = procedure(Sender: TObject; nRow, nCol: Integer) of object;
  182.   TVCFormulaOneObjValueChanged = procedure(Sender: TObject; var ObjName: string; ObjID: Integer) of object;
  183.   TVCFormulaOneObjGotFocus = procedure(Sender: TObject; var ObjName: string; ObjID: Integer) of object;
  184.   TVCFormulaOneObjLostFocus = procedure(Sender: TObject; var ObjName: string; ObjID: Integer) of object;
  185.   TVCFormulaOneValidationFailed = procedure(Sender: TObject; var pEntry: string; nSheet, nRow, nCol: Integer; var pShowMessage: string; var pAction: Smallint) of object;
  186.  
  187.   TVCFormulaOne = class(TOleControl)
  188.   private
  189.     FOnClick: TVCFormulaOneClick;
  190.     FOnDblClick: TVCFormulaOneDblClick;
  191.     FOnCancelEdit: TNotifyEvent;
  192.     FOnSelChange: TNotifyEvent;
  193.     FOnStartEdit: TVCFormulaOneStartEdit;
  194.     FOnEndEdit: TVCFormulaOneEndEdit;
  195.     FOnStartRecalc: TNotifyEvent;
  196.     FOnEndRecalc: TNotifyEvent;
  197.     FOnTopLeftChanged: TNotifyEvent;
  198.     FOnObjClick: TVCFormulaOneObjClick;
  199.     FOnObjDblClick: TVCFormulaOneObjDblClick;
  200.     FOnRClick: TVCFormulaOneRClick;
  201.     FOnRDblClick: TVCFormulaOneRDblClick;
  202.     FOnObjValueChanged: TVCFormulaOneObjValueChanged;
  203.     FOnModified: TNotifyEvent;
  204.     FOnObjGotFocus: TVCFormulaOneObjGotFocus;
  205.     FOnObjLostFocus: TVCFormulaOneObjLostFocus;
  206.     FOnValidationFailed: TVCFormulaOneValidationFailed;
  207.     function Get_ColText(nCol: Integer): string; stdcall;
  208.     procedure Set_ColText(nCol: Integer; const Value: string); stdcall;
  209.     function Get_DefinedName(const pName: string): string; stdcall;
  210.     procedure Set_DefinedName(const pName: string; const Value: string); stdcall;
  211.     function Get_EntryRC(nRow, nCol: Integer): string; stdcall;
  212.     procedure Set_EntryRC(nRow, nCol: Integer; const Value: string); stdcall;
  213.     function Get_FormattedTextRC(nRow, nCol: Integer): string; stdcall;
  214.     procedure Set_FormattedTextRC(nRow, nCol: Integer; const Value: string); stdcall;
  215.     function Get_FormulaRC(nRow, nCol: Integer): string; stdcall;
  216.     procedure Set_FormulaRC(nRow, nCol: Integer; const Value: string); stdcall;
  217.     function Get_LastColForRow(nRow: Integer): Integer; stdcall;
  218.     procedure Set_LastColForRow(nRow: Integer; Value: Integer); stdcall;
  219.     function Get_LogicalRC(nRow, nCol: Integer): TOleBool; stdcall;
  220.     procedure Set_LogicalRC(nRow, nCol: Integer; Value: TOleBool); stdcall;
  221.     function Get_NumberRC(nRow, nCol: Integer): Double; stdcall;
  222.     procedure Set_NumberRC(nRow, nCol: Integer; Value: Double); stdcall;
  223.     function Get_RowText(nRow: Integer): string; stdcall;
  224.     procedure Set_RowText(nRow: Integer; const Value: string); stdcall;
  225.     function Get_TextRC(nRow, nCol: Integer): string; stdcall;
  226.     procedure Set_TextRC(nRow, nCol: Integer; const Value: string); stdcall;
  227.     function Get_TypeRC(nRow, nCol: Integer): Smallint; stdcall;
  228.     procedure Set_TypeRC(nRow, nCol: Integer; Value: Smallint); stdcall;
  229.     function Get_ColWidth(nCol: Integer): Smallint; stdcall;
  230.     procedure Set_ColWidth(nCol: Integer; Value: Smallint); stdcall;
  231.     function Get_RowHeight(nRow: Integer): Smallint; stdcall;
  232.     procedure Set_RowHeight(nRow: Integer; Value: Smallint); stdcall;
  233.     function Get_DefinedNameByIndex(nName: Integer): string; stdcall;
  234.     procedure Set_DefinedNameByIndex(nName: Integer; const Value: string); stdcall;
  235.     function Get_SheetName(nSheet: Integer): string; stdcall;
  236.     procedure Set_SheetName(nSheet: Integer; const Value: string); stdcall;
  237.     function Get_PaletteEntry(nEntry: Integer): TColor; stdcall;
  238.     procedure Set_PaletteEntry(nEntry: Integer; Value: TColor); stdcall;
  239.     function Get_ColWidthTwips(Col: Integer): Smallint; stdcall;
  240.     procedure Set_ColWidthTwips(Col: Integer; Value: Smallint); stdcall;
  241.     function Get_ObjItem(ID: Integer; Item: Smallint): string; stdcall;
  242.     procedure Set_ObjItem(ID: Integer; Item: Smallint; const Value: string); stdcall;
  243.     function Get_ObjItems(ID: Integer): string; stdcall;
  244.     procedure Set_ObjItems(ID: Integer; const Value: string); stdcall;
  245.     function Get_ObjName(ID: Integer): string; stdcall;
  246.     procedure Set_ObjName(ID: Integer; const Value: string); stdcall;
  247.     function Get_ObjText(ID: Integer): string; stdcall;
  248.     procedure Set_ObjText(ID: Integer; const Value: string); stdcall;
  249.     function Get_ObjValue(ID: Integer): Smallint; stdcall;
  250.     procedure Set_ObjValue(ID: Integer; Value: Smallint); stdcall;
  251.     function Get_ObjVisible(ID: Integer): TOleBool; stdcall;
  252.     procedure Set_ObjVisible(ID: Integer; Value: TOleBool); stdcall;
  253.     function Get_AutoFillItems(Index: Smallint): string; stdcall;
  254.     procedure Set_AutoFillItems(Index: Smallint; const Value: string); stdcall;
  255.     function Get_ColHidden(nCol: Integer): TOleBool; stdcall;
  256.     procedure Set_ColHidden(nCol: Integer; Value: TOleBool); stdcall;
  257.     function Get_RowHidden(nRow: Integer): TOleBool; stdcall;
  258.     procedure Set_RowHidden(nRow: Integer; Value: TOleBool); stdcall;
  259.     function Get_SheetSelected(nSheet: Integer): TOleBool; stdcall;
  260.     procedure Set_SheetSelected(nSheet: Integer; Value: TOleBool); stdcall;
  261.   protected
  262.     procedure InitControlData; override;
  263.   public
  264.     procedure EditPasteValues; stdcall;
  265.     procedure GetAlignment(var pHorizontal: Smallint; var pWordWrap: TOleBool; var pVertical, pOrientation: Smallint); stdcall;
  266.     procedure GetBorder(var pLeft, pRight, pTop, pBottom, pShade: Smallint; var pcrLeft, pcrRight, pcrTop, pcrBottom: TColor); stdcall;
  267.     procedure GetFont(var pName: string; var pSize: Smallint; var pBold, pItalic, pUnderline, pStrikeout: TOleBool; var pcrColor: TColor; var pOutline, pShadow: TOleBool); stdcall;
  268.     procedure GetLineStyle(var pStyle: Smallint; var pcrColor: TColor; var pWeight: Smallint); stdcall;
  269.     procedure GetPattern(var pPattern: Smallint; var pcrFG, pcrBG: TColor); stdcall;
  270.     procedure GetProtection(var pLocked, pHidden: TOleBool); stdcall;
  271.     procedure GetTabbedText(nR1, nC1, nR2, nC2: Integer; bValuesOnly: TOleBool; var phText: Integer); stdcall;
  272.     procedure SetTabbedText(nStartRow, nStartCol: Integer; var pRows, pCols: Integer; bValuesOnly: TOleBool; const pText: string); stdcall;
  273.     procedure AddColPageBreak(nCol: Integer); stdcall;
  274.     procedure AddPageBreak; stdcall;
  275.     procedure AddRowPageBreak(nRow: Integer); stdcall;
  276.     procedure AddSelection(nR1, nC1, nR2, nC2: Integer); stdcall;
  277.     procedure Attach(const pTitle: string); stdcall;
  278.     procedure AttachToSS(hSrcSS: Integer); stdcall;
  279.     procedure CalculationDlg; stdcall;
  280.     procedure CancelEdit; stdcall;
  281.     procedure CheckRecalc; stdcall;
  282.     procedure ClearClipboard; stdcall;
  283.     procedure ClearRange(nR1, nC1, nR2, nC2: Integer; ClearType: Smallint); stdcall;
  284.     procedure ColorPaletteDlg; stdcall;
  285.     procedure ColWidthDlg; stdcall;
  286.     procedure CopyAll(hSrcSS: Integer); stdcall;
  287.     procedure CopyRange(nDstR1, nDstC1, nDstR2, nDstC2, hSrcSS, nSrcR1, nSrcC1, nSrcR2, nSrcC2: Integer); stdcall;
  288.     procedure DefinedNameDlg; stdcall;
  289.     procedure DeleteDefinedName(const pName: string); stdcall;
  290.     procedure DeleteRange(nR1, nC1, nR2, nC2: Integer; ShiftType: Smallint); stdcall;
  291.     procedure Draw(hDC, x, y, cx, cy, nRow, nCol: Integer; var pRows, pCols: Integer; nFixedRow, nFixedCol, nFixedRows, nFixedCols: Integer); stdcall;
  292.     procedure EditClear(ClearType: Smallint); stdcall;
  293.     procedure EditCopy; stdcall;
  294.     procedure EditCopyDown; stdcall;
  295.     procedure EditCopyRight; stdcall;
  296.     procedure EditCut; stdcall;
  297.     procedure EditDelete(ShiftType: Smallint); stdcall;
  298.     procedure EditInsert(ShiftType: Smallint); stdcall;
  299.     procedure EditPaste; stdcall;
  300.     procedure EndEdit; stdcall;
  301.     procedure FilePageSetupDlg; stdcall;
  302.     procedure FilePrint(bShowPrintDlg: TOleBool); stdcall;
  303.     procedure FilePrintSetupDlg; stdcall;
  304.     procedure FormatAlignmentDlg; stdcall;
  305.     procedure FormatBorderDlg; stdcall;
  306.     procedure FormatCurrency0; stdcall;
  307.     procedure FormatCurrency2; stdcall;
  308.     procedure FormatDefaultFontDlg; stdcall;
  309.     procedure FormatFixed; stdcall;
  310.     procedure FormatFixed2; stdcall;
  311.     procedure FormatFontDlg; stdcall;
  312.     procedure FormatFraction; stdcall;
  313.     procedure FormatGeneral; stdcall;
  314.     procedure FormatHmmampm; stdcall;
  315.     procedure FormatMdyy; stdcall;
  316.     procedure FormatNumberDlg; stdcall;
  317.     procedure FormatPatternDlg; stdcall;
  318.     procedure FormatPercent; stdcall;
  319.     procedure FormatScientific; stdcall;
  320.     procedure GetActiveCell(var pRow, pCol: Integer); stdcall;
  321.     procedure GetDefaultFont(var pBuf: string; var pSize: Smallint); stdcall;
  322.     procedure GetHdrSelection(var pTopLeftHdr, pRowHdr, pColHdr: TOleBool); stdcall;
  323.     procedure GetIteration(var pIteration: TOleBool; var pMaxIterations: Smallint; var pMaxChange: Double); stdcall;
  324.     procedure GetPrintScale(var pScale: Smallint; var pFitToPage: TOleBool; var pVPages, pHPages: Integer); stdcall;
  325.     procedure GetSelection(nSelection: Smallint; var pR1, pC1, pR2, pC2: Integer); stdcall;
  326.     procedure GotoDlg; stdcall;
  327.     procedure HeapMin; stdcall;
  328.     procedure InitTable; stdcall;
  329.     procedure InsertRange(nR1, nC1, nR2, nC2: Integer; ShiftType: Smallint); stdcall;
  330.     procedure LineStyleDlg; stdcall;
  331.     procedure MoveRange(nR1, nC1, nR2, nC2, nRowOffset, nColOffset: Integer); stdcall;
  332.     procedure ObjAddItem(ID: Integer; const pItem: string); stdcall;
  333.     procedure ObjAddSelection(ID: Integer); stdcall;
  334.     procedure ObjBringToFront; stdcall;
  335.     procedure ObjDeleteItem(ID: Integer; nItem: Smallint); stdcall;
  336.     procedure ObjGetCell(ID: Integer; var pControlCellType: Smallint; var pRow, pCol: Integer); stdcall;
  337.     procedure ObjGetPos(ID: Integer; var pX1, pY1, pX2, pY2: Single); stdcall;
  338.     procedure ObjGetSelection(nSelection: Smallint; var pID: Integer); stdcall;
  339.     procedure ObjInsertItem(ID: Integer; nItem: Smallint; const pItem: string); stdcall;
  340.     procedure ObjNameDlg; stdcall;
  341.     procedure ObjNew(ObjType: Smallint; nX1, nY1, nX2, nY2: Single; var pID: Integer); stdcall;
  342.     procedure ObjNewPicture(nX1, nY1, nX2, nY2: Single; var pID: Integer; hMF, nMapMode, nWndExtentX, nWndExtentY: Integer); stdcall;
  343.     procedure ObjOptionsDlg; stdcall;
  344.     procedure ObjPosToTwips(nX1, nY1, nX2, nY2: Single; var pX, pY, pCX, pCY: Integer; var pShown: Smallint); stdcall;
  345.     procedure ObjSendToBack; stdcall;
  346.     procedure ObjSetCell(ID: Integer; ControlCellType: Smallint; nRow, nCol: Integer); stdcall;
  347.     procedure ObjSetPicture(ID, hMF: Integer; nMapMode: Smallint; nWndExtentX, nWndExtentY: Integer); stdcall;
  348.     procedure ObjSetPos(ID: Integer; nX1, nY1, nX2, nY2: Single); stdcall;
  349.     procedure ObjSetSelection(ID: Integer); stdcall;
  350.     procedure OpenFileDlg(const pTitle: string; hWndParent: Integer; var pBuf: string); stdcall;
  351.     procedure ProtectionDlg; stdcall;
  352.     procedure RangeToTwips(nRow1, nCol1, nRow2, nCol2: Integer; var pX, pY, pCX, pCY: Integer; var pShown: Smallint); stdcall;
  353.     procedure Read(const pPathName: string; var pFileType: Smallint); stdcall;
  354.     procedure ReadFromBlob(hBlob: Integer; nReservedBytes: Smallint); stdcall;
  355.     procedure Recalc; stdcall;
  356.     procedure RemoveColPageBreak(nCol: Integer); stdcall;
  357.     procedure RemovePageBreak; stdcall;
  358.     procedure RemoveRowPageBreak(nRow: Integer); stdcall;
  359.     procedure RowHeightDlg; stdcall;
  360.     procedure SaveFileDlg(const pTitle: string; var pBuf: string; var pFileType: Smallint); stdcall;
  361.     procedure SaveWindowInfo; stdcall;
  362.     procedure SetActiveCell(nRow, nCol: Integer); stdcall;
  363.     procedure SetAlignment(HAlign: Smallint; bWordWrap: TOleBool; VAlign, nOrientation: Smallint); stdcall;
  364.     procedure SetBorder(nOutline, nLeft, nRight, nTop, nBottom, nShade: Smallint; crOutline, crLeft, crRight, crTop, crBottom: TColor); stdcall;
  365.     procedure SetColWidth(nC1, nC2: Integer; nWidth: Smallint; bDefColWidth: TOleBool); stdcall;
  366.     procedure SetColWidthAuto(nR1, nC1, nR2, nC2: Integer; bSetDefaults: TOleBool); stdcall;
  367.     procedure SetDefaultFont(const pName: string; nSize: Smallint); stdcall;
  368.     procedure SetFont(const pName: string; nSize: Smallint; bBold, bItalic, bUnderline, bStrikeout: TOleBool; crColor: TColor; bOutline, bShadow: TOleBool); stdcall;
  369.     procedure SetHdrSelection(bTopLeftHdr, bRowHdr, bColHdr: TOleBool); stdcall;
  370.     procedure SetIteration(bIteration: TOleBool; nMaxIterations: Smallint; nMaxChange: Double); stdcall;
  371.     procedure SetLineStyle(nStyle: Smallint; crColor: TColor; nWeight: Smallint); stdcall;
  372.     procedure SetPattern(nPattern: Smallint; crFG, crBG: TColor); stdcall;
  373.     procedure SetPrintAreaFromSelection; stdcall;
  374.     procedure SetPrintScale(nScale: Smallint; bFitToPage: TOleBool; nVPages, nHPages: Smallint); stdcall;
  375.     procedure SetPrintTitlesFromSelection; stdcall;
  376.     procedure SetProtection(bLocked, bHidden: TOleBool); stdcall;
  377.     procedure SetRowHeight(nR1, nR2: Integer; nHeight: Smallint; bDefRowHeight: TOleBool); stdcall;
  378.     procedure SetRowHeightAuto(nR1, nC1, nR2, nC2: Integer; bSetDefaults: TOleBool); stdcall;
  379.     procedure SetSelection(nR1, nC1, nR2, nC2: Integer); stdcall;
  380.     procedure ShowActiveCell; stdcall;
  381.     procedure Sort3(nR1, nC1, nR2, nC2: Integer; bSortByRows: TOleBool; nKey1, nKey2, nKey3: Integer); stdcall;
  382.     procedure SortDlg; stdcall;
  383.     procedure StartEdit(bClear, bInCellEditFocus, bArrowsExitEditMode: TOleBool); stdcall;
  384.     procedure SwapTables(hSS2: Integer); stdcall;
  385.     procedure TransactCommit; stdcall;
  386.     procedure TransactRollback; stdcall;
  387.     procedure TransactStart; stdcall;
  388.     procedure TwipsToRC(x, y: Integer; var pRow, pCol: Integer); stdcall;
  389.     procedure SSUpdate; stdcall;
  390.     function SSVersion: Smallint; stdcall;
  391.     procedure Write(const pPathName: string; FileType: Smallint); stdcall;
  392.     procedure WriteToBlob(var phBlob: Integer; nReservedBytes: Smallint); stdcall;
  393.     procedure SetRowHidden(nRow1, nRow2: Integer; bHidden: TOleBool); stdcall;
  394.     procedure SetColHidden(nCol1, nCol2: Integer; bHidden: TOleBool); stdcall;
  395.     procedure SetColWidthTwips(nCol1, nCol2, nWidth: Integer; bDefColWidth: TOleBool); stdcall;
  396.     procedure EditInsertSheets; stdcall;
  397.     procedure EditDeleteSheets; stdcall;
  398.     procedure InsertSheets(nSheet, nSheets: Integer); stdcall;
  399.     procedure DeleteSheets(nSheet, nSheets: Integer); stdcall;
  400.     procedure Refresh; stdcall;
  401.     function NextColPageBreak(Col: Integer): Integer; stdcall;
  402.     function NextRowPageBreak(Row: Integer): Integer; stdcall;
  403.     function ObjFirstID: Integer; stdcall;
  404.     function ObjNextID(ID: Integer): Integer; stdcall;
  405.     function ObjGetItemCount(ID: Integer): Smallint; stdcall;
  406.     function ObjGetType(ID: Integer): Smallint; stdcall;
  407.     function ObjGetSelectionCount: Smallint; stdcall;
  408.     function FormatRCNr(Row, Col: Integer; DoAbsolute: TOleBool): string; stdcall;
  409.     function SS: Integer; stdcall;
  410.     function ErrorNumberToText(SSError: Integer): string; stdcall;
  411.     function ObjNameToID(const Name: string): Integer; stdcall;
  412.     function DefinedNameCount: Integer; stdcall;
  413.     procedure ValidationRuleDlg; stdcall;
  414.     procedure SetValidationRule(const Rule, Text: string); stdcall;
  415.     procedure GetValidationRule(var Rule, Text: string); stdcall;
  416.     function AutoFillItemsCount: Smallint; stdcall;
  417.     procedure CopyRangeEx(nDstSheet, nDstR1, nDstC1, nDstR2, nDstC2, hSrcSS, nSrcSheet, nSrcR1, nSrcC1, nSrcR2, nSrcC2: Integer); stdcall;
  418.     procedure Sort(nR1, nC1, nR2, nC2: Integer; bSortByRows: TOleBool; const Keys: Variant); stdcall;
  419.     procedure DeleteAutoFillItems(nIndex: Smallint); stdcall;
  420.     procedure ODBCConnect(var pConnect: string; bShowErrors: TOleBool; var pRetCode: Smallint); stdcall;
  421.     procedure ODBCDisconnect; stdcall;
  422.     procedure ODBCQuery(var pQuery: string; nRow, nCol: Integer; bForceShowDlg: TOleBool; var pSetColNames, pSetColFormats, pSetColWidths, pSetMaxRC: TOleBool; var pRetCode: Smallint); stdcall;
  423.     procedure LaunchDesigner; stdcall;
  424.     procedure AboutBox; stdcall;
  425.     property ColText[nCol: Integer]: string read Get_ColText write Set_ColText;
  426.     property DefinedName[const pName: string]: string read Get_DefinedName write Set_DefinedName;
  427.     property EntryRC[nRow, nCol: Integer]: string read Get_EntryRC write Set_EntryRC;
  428.     property FormattedTextRC[nRow, nCol: Integer]: string read Get_FormattedTextRC write Set_FormattedTextRC;
  429.     property FormulaRC[nRow, nCol: Integer]: string read Get_FormulaRC write Set_FormulaRC;
  430.     property LastColForRow[nRow: Integer]: Integer read Get_LastColForRow write Set_LastColForRow;
  431.     property LogicalRC[nRow, nCol: Integer]: TOleBool read Get_LogicalRC write Set_LogicalRC;
  432.     property NumberRC[nRow, nCol: Integer]: Double read Get_NumberRC write Set_NumberRC;
  433.     property RowText[nRow: Integer]: string read Get_RowText write Set_RowText;
  434.     property TextRC[nRow, nCol: Integer]: string read Get_TextRC write Set_TextRC;
  435.     property TypeRC[nRow, nCol: Integer]: Smallint read Get_TypeRC write Set_TypeRC;
  436.     property ColWidth[nCol: Integer]: Smallint read Get_ColWidth write Set_ColWidth;
  437.     property RowHeight[nRow: Integer]: Smallint read Get_RowHeight write Set_RowHeight;
  438.     property DefinedNameByIndex[nName: Integer]: string read Get_DefinedNameByIndex write Set_DefinedNameByIndex;
  439.     property SheetName[nSheet: Integer]: string read Get_SheetName write Set_SheetName;
  440.     property PaletteEntry[nEntry: Integer]: TColor read Get_PaletteEntry write Set_PaletteEntry;
  441.     property ColWidthTwips[Col: Integer]: Smallint read Get_ColWidthTwips write Set_ColWidthTwips;
  442.     property ObjItem[ID: Integer; Item: Smallint]: string read Get_ObjItem write Set_ObjItem;
  443.     property ObjItems[ID: Integer]: string read Get_ObjItems write Set_ObjItems;
  444.     property ObjName[ID: Integer]: string read Get_ObjName write Set_ObjName;
  445.     property ObjText[ID: Integer]: string read Get_ObjText write Set_ObjText;
  446.     property ObjValue[ID: Integer]: Smallint read Get_ObjValue write Set_ObjValue;
  447.     property ObjVisible[ID: Integer]: TOleBool read Get_ObjVisible write Set_ObjVisible;
  448.     property AutoFillItems[Index: Smallint]: string read Get_AutoFillItems write Set_AutoFillItems;
  449.     property ColHidden[nCol: Integer]: TOleBool read Get_ColHidden write Set_ColHidden;
  450.     property RowHidden[nRow: Integer]: TOleBool read Get_RowHidden write Set_RowHidden;
  451.     property SheetSelected[nSheet: Integer]: TOleBool read Get_SheetSelected write Set_SheetSelected;
  452.   published
  453.     property TabStop;
  454.     property DragCursor;
  455.     property DragMode;
  456.     property ParentShowHint;
  457.     property PopupMenu;
  458.     property ShowHint;
  459.     property TabOrder;
  460.     property Visible;
  461.     property OnDragDrop;
  462.     property OnDragOver;
  463.     property OnEndDrag;
  464.     property OnEnter;
  465.     property OnExit;
  466.     property OnStartDrag;
  467.     property OnKeyDown;
  468.     property OnKeyPress;
  469.     property OnKeyUp;
  470.     property OnMouseDown;
  471.     property OnMouseMove;
  472.     property OnMouseUp;
  473.     property BackColor: TColor index 3 read GetColorProp write SetColorProp stored False;
  474.     property Col: Integer index 4 read GetIntegerProp write SetIntegerProp stored False;
  475.     property Row: Integer index 5 read GetIntegerProp write SetIntegerProp stored False;
  476.     property ShowHScrollBar: Smallint index 6 read GetSmallintProp write SetSmallintProp stored False;
  477.     property Text: string index 7 read GetStringProp write SetStringProp stored False;
  478.     property Number: Double index 8 read GetDoubleProp write SetDoubleProp stored False;
  479.     property Formula: string index 9 read GetStringProp write SetStringProp stored False;
  480.     property FixedCol: Integer index 10 read GetIntegerProp write SetIntegerProp stored False;
  481.     property FixedCols: Integer index 11 read GetIntegerProp write SetIntegerProp stored False;
  482.     property FixedRow: Integer index 12 read GetIntegerProp write SetIntegerProp stored False;
  483.     property FixedRows: Integer index 13 read GetIntegerProp write SetIntegerProp stored False;
  484.     property ShowGridLines: TOleBool index 14 read GetOleBoolProp write SetOleBoolProp stored False;
  485.     property ShowRowHeading: TOleBool index 15 read GetOleBoolProp write SetOleBoolProp stored False;
  486.     property ShowSelections: Smallint index 16 read GetSmallintProp write SetSmallintProp stored False;
  487.     property LeftCol: Integer index 17 read GetIntegerProp write SetIntegerProp stored False;
  488.     property MaxCol: Integer index 18 read GetIntegerProp write SetIntegerProp stored False;
  489.     property MaxRow: Integer index 19 read GetIntegerProp write SetIntegerProp stored False;
  490.     property TopRow: Integer index 20 read GetIntegerProp write SetIntegerProp stored False;
  491.     property AllowResize: TOleBool index 21 read GetOleBoolProp write SetOleBoolProp stored False;
  492.     property AllowSelections: TOleBool index 22 read GetOleBoolProp write SetOleBoolProp stored False;
  493.     property AllowFormulas: TOleBool index 23 read GetOleBoolProp write SetOleBoolProp stored False;
  494.     property AllowInCellEditing: TOleBool index 24 read GetOleBoolProp write SetOleBoolProp stored False;
  495.     property ShowVScrollBar: Smallint index 25 read GetSmallintProp write SetSmallintProp stored False;
  496.     property AllowFillRange: TOleBool index 26 read GetOleBoolProp write SetOleBoolProp stored False;
  497.     property AllowMoveRange: TOleBool index 27 read GetOleBoolProp write SetOleBoolProp stored False;
  498.     property SelStartCol: Integer index 28 read GetIntegerProp write SetIntegerProp stored False;
  499.     property SelStartRow: Integer index 29 read GetIntegerProp write SetIntegerProp stored False;
  500.     property SelEndCol: Integer index 30 read GetIntegerProp write SetIntegerProp stored False;
  501.     property SelEndRow: Integer index 31 read GetIntegerProp write SetIntegerProp stored False;
  502.     property ExtraColor: TColor index 32 read GetColorProp write SetColorProp stored False;
  503.     property FileName: string index 33 read GetStringProp write SetStringProp stored False;
  504.     property AutoRecalc: TOleBool index 34 read GetOleBoolProp write SetOleBoolProp stored False;
  505.     property PrintGridLines: TOleBool index 35 read GetOleBoolProp write SetOleBoolProp stored False;
  506.     property PrintRowHeading: TOleBool index 36 read GetOleBoolProp write SetOleBoolProp stored False;
  507.     property PrintHCenter: TOleBool index 37 read GetOleBoolProp write SetOleBoolProp stored False;
  508.     property PrintVCenter: TOleBool index 38 read GetOleBoolProp write SetOleBoolProp stored False;
  509.     property PrintLeftToRight: TOleBool index 39 read GetOleBoolProp write SetOleBoolProp stored False;
  510.     property PrintHeader: string index 40 read GetStringProp write SetStringProp stored False;
  511.     property PrintFooter: string index 41 read GetStringProp write SetStringProp stored False;
  512.     property PrintLeftMargin: Double index 42 read GetDoubleProp write SetDoubleProp stored False;
  513.     property PrintTopMargin: Double index 43 read GetDoubleProp write SetDoubleProp stored False;
  514.     property PrintRightMargin: Double index 44 read GetDoubleProp write SetDoubleProp stored False;
  515.     property PrintBottomMargin: Double index 45 read GetDoubleProp write SetDoubleProp stored False;
  516.     property PrintArea: string index 46 read GetStringProp write SetStringProp stored False;
  517.     property PrintTitles: string index 47 read GetStringProp write SetStringProp stored False;
  518.     property PrintNoColor: TOleBool index 48 read GetOleBoolProp write SetOleBoolProp stored False;
  519.     property Selection: string index 49 read GetStringProp write SetStringProp stored False;
  520.     property TableName: string index 50 read GetStringProp write SetStringProp stored False;
  521.     property DoCancelEdit: TOleBool index 51 read GetOleBoolProp write SetOleBoolProp stored False;
  522.     property DoSelChange: TOleBool index 52 read GetOleBoolProp write SetOleBoolProp stored False;
  523.     property DoStartEdit: TOleBool index 53 read GetOleBoolProp write SetOleBoolProp stored False;
  524.     property DoEndEdit: TOleBool index 54 read GetOleBoolProp write SetOleBoolProp stored False;
  525.     property DoStartRecalc: TOleBool index 55 read GetOleBoolProp write SetOleBoolProp stored False;
  526.     property DoEndRecalc: TOleBool index 56 read GetOleBoolProp write SetOleBoolProp stored False;
  527.     property DoClick: TOleBool index 57 read GetOleBoolProp write SetOleBoolProp stored False;
  528.     property DoDblClick: TOleBool index 58 read GetOleBoolProp write SetOleBoolProp stored False;
  529.     property ShowColHeading: TOleBool index 59 read GetOleBoolProp write SetOleBoolProp stored False;
  530.     property PrintColHeading: TOleBool index 60 read GetOleBoolProp write SetOleBoolProp stored False;
  531.     property Entry: string index 61 read GetStringProp write SetStringProp stored False;
  532.     property Repaint: TOleBool index 62 read GetOleBoolProp write SetOleBoolProp stored False;
  533.     property AllowArrows: TOleBool index 63 read GetOleBoolProp write SetOleBoolProp stored False;
  534.     property AllowTabs: TOleBool index 64 read GetOleBoolProp write SetOleBoolProp stored False;
  535.     property FormattedText: string index 65 read GetStringProp write SetStringProp stored False;
  536.     property RowMode: TOleBool index 66 read GetOleBoolProp write SetOleBoolProp stored False;
  537.     property AllowDelete: TOleBool index 67 read GetOleBoolProp write SetOleBoolProp stored False;
  538.     property EnableProtection: TOleBool index 68 read GetOleBoolProp write SetOleBoolProp stored False;
  539.     property MinCol: Integer index 69 read GetIntegerProp write SetIntegerProp stored False;
  540.     property MinRow: Integer index 70 read GetIntegerProp write SetIntegerProp stored False;
  541.     property DoTopLeftChanged: TOleBool index 71 read GetOleBoolProp write SetOleBoolProp stored False;
  542.     property AllowEditHeaders: TOleBool index 72 read GetOleBoolProp write SetOleBoolProp stored False;
  543.     property DoObjClick: TOleBool index 73 read GetOleBoolProp write SetOleBoolProp stored False;
  544.     property DoObjDblClick: TOleBool index 74 read GetOleBoolProp write SetOleBoolProp stored False;
  545.     property AllowObjSelections: TOleBool index 75 read GetOleBoolProp write SetOleBoolProp stored False;
  546.     property DoRClick: TOleBool index 76 read GetOleBoolProp write SetOleBoolProp stored False;
  547.     property DoRDblClick: TOleBool index 77 read GetOleBoolProp write SetOleBoolProp stored False;
  548.     property Clip: string index 78 read GetStringProp write SetStringProp stored False;
  549.     property ClipValues: string index 79 read GetStringProp write SetStringProp stored False;
  550.     property PrintLandscape: TOleBool index 80 read GetOleBoolProp write SetOleBoolProp stored False;
  551.     property Enabled: TOleBool index -514 read GetOleBoolProp write SetOleBoolProp stored False;
  552.     property BorderStyle: Smallint index -504 read GetSmallintProp write SetSmallintProp stored False;
  553.     property AppName: string index 81 read GetStringProp write SetStringProp stored False;
  554.     property HdrHeight: Smallint index 82 read GetSmallintProp write SetSmallintProp stored False;
  555.     property HdrWidth: Smallint index 83 read GetSmallintProp write SetSmallintProp stored False;
  556.     property NumberFormat: string index 84 read GetStringProp write SetStringProp stored False;
  557.     property TopLeftText: string index 85 read GetStringProp write SetStringProp stored False;
  558.     property EnterMovesDown: TOleBool index 86 read GetOleBoolProp write SetOleBoolProp stored False;
  559.     property LastCol: Integer index 87 read GetIntegerProp write SetIntegerProp stored False;
  560.     property LastRow: Integer index 88 read GetIntegerProp write SetIntegerProp stored False;
  561.     property Logical: TOleBool index 89 read GetOleBoolProp write SetOleBoolProp stored False;
  562.     property Mode: Smallint index 90 read GetSmallintProp write SetSmallintProp stored False;
  563.     property PolyEditMode: Smallint index 91 read GetSmallintProp write SetSmallintProp stored False;
  564.     property ViewScale: Smallint index 92 read GetSmallintProp write SetSmallintProp stored False;
  565.     property SelectionCount: Smallint index 93 read GetSmallintProp write SetSmallintProp stored False;
  566.     property Title: string index 94 read GetStringProp write SetStringProp stored False;
  567.     property Type_: Smallint index 95 read GetSmallintProp write SetSmallintProp stored False;
  568.     property ShowFormulas: TOleBool index 96 read GetOleBoolProp write SetOleBoolProp stored False;
  569.     property ShowZeroValues: TOleBool index 97 read GetOleBoolProp write SetOleBoolProp stored False;
  570.     property MousePointer: Smallint index 2 read GetSmallintProp write SetSmallintProp stored False;
  571.     property MouseIcon: Variant index 98 read GetVariantProp write SetVariantProp stored False;
  572.     property DoObjValueChanged: TOleBool index 99 read GetOleBoolProp write SetOleBoolProp stored False;
  573.     property ScrollToLastRC: TOleBool index 100 read GetOleBoolProp write SetOleBoolProp stored False;
  574.     property Modified: TOleBool index 101 read GetOleBoolProp write SetOleBoolProp stored False;
  575.     property DoObjGotFocus: TOleBool index 102 read GetOleBoolProp write SetOleBoolProp stored False;
  576.     property DoObjLostFocus: TOleBool index 103 read GetOleBoolProp write SetOleBoolProp stored False;
  577.     property PrintDevMode: Integer index 104 read GetIntegerProp write SetIntegerProp stored False;
  578.     property NumSheets: Integer index 105 read GetIntegerProp write SetIntegerProp stored False;
  579.     property Sheet: Integer index 106 read GetIntegerProp write SetIntegerProp stored False;
  580.     property ColWidthUnits: Smallint index 107 read GetSmallintProp write SetSmallintProp stored False;
  581.     property ShowTypeMarkers: TOleBool index 108 read GetOleBoolProp write SetOleBoolProp stored False;
  582.     property ShowTabs: Smallint index 109 read GetSmallintProp write SetSmallintProp stored False;
  583.     property ShowEditBar: TOleBool index 110 read GetOleBoolProp write SetOleBoolProp stored False;
  584.     property ShowEditBarCellRef: TOleBool index 111 read GetOleBoolProp write SetOleBoolProp stored False;
  585.     property AllowDesigner: TOleBool index 1 read GetOleBoolProp write SetOleBoolProp stored False;
  586.     property hWnd: Integer index -515 read GetIntegerProp write SetIntegerProp stored False;
  587.     property AllowAutoFill: TOleBool index 112 read GetOleBoolProp write SetOleBoolProp stored False;
  588.     property OnClick: TVCFormulaOneClick read FOnClick write FOnClick;
  589.     property OnDblClick: TVCFormulaOneDblClick read FOnDblClick write FOnDblClick;
  590.     property OnCancelEdit: TNotifyEvent read FOnCancelEdit write FOnCancelEdit;
  591.     property OnSelChange: TNotifyEvent read FOnSelChange write FOnSelChange;
  592.     property OnStartEdit: TVCFormulaOneStartEdit read FOnStartEdit write FOnStartEdit;
  593.     property OnEndEdit: TVCFormulaOneEndEdit read FOnEndEdit write FOnEndEdit;
  594.     property OnStartRecalc: TNotifyEvent read FOnStartRecalc write FOnStartRecalc;
  595.     property OnEndRecalc: TNotifyEvent read FOnEndRecalc write FOnEndRecalc;
  596.     property OnTopLeftChanged: TNotifyEvent read FOnTopLeftChanged write FOnTopLeftChanged;
  597.     property OnObjClick: TVCFormulaOneObjClick read FOnObjClick write FOnObjClick;
  598.     property OnObjDblClick: TVCFormulaOneObjDblClick read FOnObjDblClick write FOnObjDblClick;
  599.     property OnRClick: TVCFormulaOneRClick read FOnRClick write FOnRClick;
  600.     property OnRDblClick: TVCFormulaOneRDblClick read FOnRDblClick write FOnRDblClick;
  601.     property OnObjValueChanged: TVCFormulaOneObjValueChanged read FOnObjValueChanged write FOnObjValueChanged;
  602.     property OnModified: TNotifyEvent read FOnModified write FOnModified;
  603.     property OnObjGotFocus: TVCFormulaOneObjGotFocus read FOnObjGotFocus write FOnObjGotFocus;
  604.     property OnObjLostFocus: TVCFormulaOneObjLostFocus read FOnObjLostFocus write FOnObjLostFocus;
  605.     property OnValidationFailed: TVCFormulaOneValidationFailed read FOnValidationFailed write FOnValidationFailed;
  606.   end;
  607.  
  608. procedure Register;
  609.  
  610. implementation
  611.  
  612. {$J+}
  613.  
  614. procedure TVCFormulaOne.InitControlData;
  615. const
  616.   CEventDispIDs: array[0..17] of Integer = (
  617.     $00000001, $00000002, $00000003, $00000004, $00000005, $00000006,
  618.     $00000007, $00000008, $00000009, $0000000A, $0000000B, $0000000C,
  619.     $0000000D, $0000000E, $0000000F, $00000010, $00000011, $00000012);
  620.   CLicenseKey: array[0..42] of Word = (
  621.     $0043, $006F, $0070, $0079, $0072, $0069, $0067, $0068, $0074, $0020,
  622.     $0028, $0063, $0029, $0020, $0031, $0039, $0039, $0035, $0020, $0056,
  623.     $0069, $0073, $0075, $0061, $006C, $0020, $0043, $006F, $006D, $0070,
  624.     $006F, $006E, $0065, $006E, $0074, $0073, $002C, $0020, $0049, $006E,
  625.     $0063, $002E, $0000);
  626.   CControlData: TControlData = (
  627.     ClassID: (
  628.       D1:$042BADC5;D2:$5E58;D3:$11CE;D4:($B6,$10,$52,$41,$53,$48,$00,$01));
  629.     EventIID: (
  630.       D1:$042BADC7;D2:$5E58;D3:$11CE;D4:($B6,$10,$52,$41,$53,$48,$00,$01));
  631.     EventCount: 18;
  632.     EventDispIDs: @CEventDispIDs;
  633.     LicenseKey: @CLicenseKey;
  634.     Flags: $00000008);
  635. begin
  636.   ControlData := @CControlData;
  637. end;
  638.  
  639. procedure TVCFormulaOne.EditPasteValues;
  640. const
  641.   DispInfo: array[0..7] of Byte = ($71,$00,$00,$00,$00,$01,$00,$00);
  642. begin
  643.   InvokeMethod(DispInfo, nil);
  644. end;
  645.  
  646. procedure TVCFormulaOne.GetAlignment;
  647. const
  648.   DispInfo: array[0..11] of Byte = ($72,$00,$00,$00,$00,$01,$04,$00,$82,$8B,$82,$82);
  649. begin
  650.   InvokeMethod(DispInfo, nil);
  651. end;
  652.  
  653. procedure TVCFormulaOne.GetBorder;
  654. const
  655.   DispInfo: array[0..16] of Byte = ($73,$00,$00,$00,$00,$01,$09,$00,$82,$82,$82,$82,$82,$83,$83,$83,$83);
  656. begin
  657.   InvokeMethod(DispInfo, nil);
  658. end;
  659.  
  660. procedure TVCFormulaOne.GetFont;
  661. const
  662.   DispInfo: array[0..16] of Byte = ($74,$00,$00,$00,$00,$01,$09,$00,$88,$82,$8B,$8B,$8B,$8B,$83,$8B,$8B);
  663. begin
  664.   InvokeMethod(DispInfo, nil);
  665. end;
  666.  
  667. procedure TVCFormulaOne.GetLineStyle;
  668. const
  669.   DispInfo: array[0..10] of Byte = ($75,$00,$00,$00,$00,$01,$03,$00,$82,$83,$82);
  670. begin
  671.   InvokeMethod(DispInfo, nil);
  672. end;
  673.  
  674. procedure TVCFormulaOne.GetPattern;
  675. const
  676.   DispInfo: array[0..10] of Byte = ($76,$00,$00,$00,$00,$01,$03,$00,$82,$83,$83);
  677. begin
  678.   InvokeMethod(DispInfo, nil);
  679. end;
  680.  
  681. procedure TVCFormulaOne.GetProtection;
  682. const
  683.   DispInfo: array[0..9] of Byte = ($77,$00,$00,$00,$00,$01,$02,$00,$8B,$8B);
  684. begin
  685.   InvokeMethod(DispInfo, nil);
  686. end;
  687.  
  688. procedure TVCFormulaOne.GetTabbedText;
  689. const
  690.   DispInfo: array[0..13] of Byte = ($78,$00,$00,$00,$00,$01,$06,$00,$03,$03,$03,$03,$0B,$83);
  691. begin
  692.   InvokeMethod(DispInfo, nil);
  693. end;
  694.  
  695. procedure TVCFormulaOne.SetTabbedText;
  696. const
  697.   DispInfo: array[0..13] of Byte = ($79,$00,$00,$00,$00,$01,$06,$00,$03,$03,$83,$83,$0B,$08);
  698. begin
  699.   InvokeMethod(DispInfo, nil);
  700. end;
  701.  
  702. procedure TVCFormulaOne.AddColPageBreak;
  703. const
  704.   DispInfo: array[0..8] of Byte = ($7A,$00,$00,$00,$00,$01,$01,$00,$03);
  705. begin
  706.   InvokeMethod(DispInfo, nil);
  707. end;
  708.  
  709. procedure TVCFormulaOne.AddPageBreak;
  710. const
  711.   DispInfo: array[0..7] of Byte = ($7B,$00,$00,$00,$00,$01,$00,$00);
  712. begin
  713.   InvokeMethod(DispInfo, nil);
  714. end;
  715.  
  716. procedure TVCFormulaOne.AddRowPageBreak;
  717. const
  718.   DispInfo: array[0..8] of Byte = ($7C,$00,$00,$00,$00,$01,$01,$00,$03);
  719. begin
  720.   InvokeMethod(DispInfo, nil);
  721. end;
  722.  
  723. procedure TVCFormulaOne.AddSelection;
  724. const
  725.   DispInfo: array[0..11] of Byte = ($7D,$00,$00,$00,$00,$01,$04,$00,$03,$03,$03,$03);
  726. begin
  727.   InvokeMethod(DispInfo, nil);
  728. end;
  729.  
  730. procedure TVCFormulaOne.Attach;
  731. const
  732.   DispInfo: array[0..8] of Byte = ($7E,$00,$00,$00,$00,$01,$01,$00,$08);
  733. begin
  734.   InvokeMethod(DispInfo, nil);
  735. end;
  736.  
  737. procedure TVCFormulaOne.AttachToSS;
  738. const
  739.   DispInfo: array[0..8] of Byte = ($7F,$00,$00,$00,$00,$01,$01,$00,$03);
  740. begin
  741.   InvokeMethod(DispInfo, nil);
  742. end;
  743.  
  744. procedure TVCFormulaOne.CalculationDlg;
  745. const
  746.   DispInfo: array[0..7] of Byte = ($80,$00,$00,$00,$00,$01,$00,$00);
  747. begin
  748.   InvokeMethod(DispInfo, nil);
  749. end;
  750.  
  751. procedure TVCFormulaOne.CancelEdit;
  752. const
  753.   DispInfo: array[0..7] of Byte = ($81,$00,$00,$00,$00,$01,$00,$00);
  754. begin
  755.   InvokeMethod(DispInfo, nil);
  756. end;
  757.  
  758. procedure TVCFormulaOne.CheckRecalc;
  759. const
  760.   DispInfo: array[0..7] of Byte = ($82,$00,$00,$00,$00,$01,$00,$00);
  761. begin
  762.   InvokeMethod(DispInfo, nil);
  763. end;
  764.  
  765. procedure TVCFormulaOne.ClearClipboard;
  766. const
  767.   DispInfo: array[0..7] of Byte = ($83,$00,$00,$00,$00,$01,$00,$00);
  768. begin
  769.   InvokeMethod(DispInfo, nil);
  770. end;
  771.  
  772. procedure TVCFormulaOne.ClearRange;
  773. const
  774.   DispInfo: array[0..12] of Byte = ($84,$00,$00,$00,$00,$01,$05,$00,$03,$03,$03,$03,$02);
  775. begin
  776.   InvokeMethod(DispInfo, nil);
  777. end;
  778.  
  779. procedure TVCFormulaOne.ColorPaletteDlg;
  780. const
  781.   DispInfo: array[0..7] of Byte = ($85,$00,$00,$00,$00,$01,$00,$00);
  782. begin
  783.   InvokeMethod(DispInfo, nil);
  784. end;
  785.  
  786. procedure TVCFormulaOne.ColWidthDlg;
  787. const
  788.   DispInfo: array[0..7] of Byte = ($86,$00,$00,$00,$00,$01,$00,$00);
  789. begin
  790.   InvokeMethod(DispInfo, nil);
  791. end;
  792.  
  793. procedure TVCFormulaOne.CopyAll;
  794. const
  795.   DispInfo: array[0..8] of Byte = ($87,$00,$00,$00,$00,$01,$01,$00,$03);
  796. begin
  797.   InvokeMethod(DispInfo, nil);
  798. end;
  799.  
  800. procedure TVCFormulaOne.CopyRange;
  801. const
  802.   DispInfo: array[0..16] of Byte = ($88,$00,$00,$00,$00,$01,$09,$00,$03,$03,$03,$03,$03,$03,$03,$03,$03);
  803. begin
  804.   InvokeMethod(DispInfo, nil);
  805. end;
  806.  
  807. procedure TVCFormulaOne.DefinedNameDlg;
  808. const
  809.   DispInfo: array[0..7] of Byte = ($89,$00,$00,$00,$00,$01,$00,$00);
  810. begin
  811.   InvokeMethod(DispInfo, nil);
  812. end;
  813.  
  814. procedure TVCFormulaOne.DeleteDefinedName;
  815. const
  816.   DispInfo: array[0..8] of Byte = ($8A,$00,$00,$00,$00,$01,$01,$00,$08);
  817. begin
  818.   InvokeMethod(DispInfo, nil);
  819. end;
  820.  
  821. procedure TVCFormulaOne.DeleteRange;
  822. const
  823.   DispInfo: array[0..12] of Byte = ($8B,$00,$00,$00,$00,$01,$05,$00,$03,$03,$03,$03,$02);
  824. begin
  825.   InvokeMethod(DispInfo, nil);
  826. end;
  827.  
  828. procedure TVCFormulaOne.Draw;
  829. const
  830.   DispInfo: array[0..20] of Byte = ($8C,$00,$00,$00,$00,$01,$0D,$00,$03,$03,$03,$03,$03,$03,$03,$83,$83,$03,$03,$03,$03);
  831. begin
  832.   InvokeMethod(DispInfo, nil);
  833. end;
  834.  
  835. procedure TVCFormulaOne.EditClear;
  836. const
  837.   DispInfo: array[0..8] of Byte = ($8D,$00,$00,$00,$00,$01,$01,$00,$02);
  838. begin
  839.   InvokeMethod(DispInfo, nil);
  840. end;
  841.  
  842. procedure TVCFormulaOne.EditCopy;
  843. const
  844.   DispInfo: array[0..7] of Byte = ($8E,$00,$00,$00,$00,$01,$00,$00);
  845. begin
  846.   InvokeMethod(DispInfo, nil);
  847. end;
  848.  
  849. procedure TVCFormulaOne.EditCopyDown;
  850. const
  851.   DispInfo: array[0..7] of Byte = ($8F,$00,$00,$00,$00,$01,$00,$00);
  852. begin
  853.   InvokeMethod(DispInfo, nil);
  854. end;
  855.  
  856. procedure TVCFormulaOne.EditCopyRight;
  857. const
  858.   DispInfo: array[0..7] of Byte = ($90,$00,$00,$00,$00,$01,$00,$00);
  859. begin
  860.   InvokeMethod(DispInfo, nil);
  861. end;
  862.  
  863. procedure TVCFormulaOne.EditCut;
  864. const
  865.   DispInfo: array[0..7] of Byte = ($91,$00,$00,$00,$00,$01,$00,$00);
  866. begin
  867.   InvokeMethod(DispInfo, nil);
  868. end;
  869.  
  870. procedure TVCFormulaOne.EditDelete;
  871. const
  872.   DispInfo: array[0..8] of Byte = ($92,$00,$00,$00,$00,$01,$01,$00,$02);
  873. begin
  874.   InvokeMethod(DispInfo, nil);
  875. end;
  876.  
  877. procedure TVCFormulaOne.EditInsert;
  878. const
  879.   DispInfo: array[0..8] of Byte = ($93,$00,$00,$00,$00,$01,$01,$00,$02);
  880. begin
  881.   InvokeMethod(DispInfo, nil);
  882. end;
  883.  
  884. procedure TVCFormulaOne.EditPaste;
  885. const
  886.   DispInfo: array[0..7] of Byte = ($94,$00,$00,$00,$00,$01,$00,$00);
  887. begin
  888.   InvokeMethod(DispInfo, nil);
  889. end;
  890.  
  891. procedure TVCFormulaOne.EndEdit;
  892. const
  893.   DispInfo: array[0..7] of Byte = ($95,$00,$00,$00,$00,$01,$00,$00);
  894. begin
  895.   InvokeMethod(DispInfo, nil);
  896. end;
  897.  
  898. procedure TVCFormulaOne.FilePageSetupDlg;
  899. const
  900.   DispInfo: array[0..7] of Byte = ($96,$00,$00,$00,$00,$01,$00,$00);
  901. begin
  902.   InvokeMethod(DispInfo, nil);
  903. end;
  904.  
  905. procedure TVCFormulaOne.FilePrint;
  906. const
  907.   DispInfo: array[0..8] of Byte = ($97,$00,$00,$00,$00,$01,$01,$00,$0B);
  908. begin
  909.   InvokeMethod(DispInfo, nil);
  910. end;
  911.  
  912. procedure TVCFormulaOne.FilePrintSetupDlg;
  913. const
  914.   DispInfo: array[0..7] of Byte = ($98,$00,$00,$00,$00,$01,$00,$00);
  915. begin
  916.   InvokeMethod(DispInfo, nil);
  917. end;
  918.  
  919. procedure TVCFormulaOne.FormatAlignmentDlg;
  920. const
  921.   DispInfo: array[0..7] of Byte = ($99,$00,$00,$00,$00,$01,$00,$00);
  922. begin
  923.   InvokeMethod(DispInfo, nil);
  924. end;
  925.  
  926. procedure TVCFormulaOne.FormatBorderDlg;
  927. const
  928.   DispInfo: array[0..7] of Byte = ($9A,$00,$00,$00,$00,$01,$00,$00);
  929. begin
  930.   InvokeMethod(DispInfo, nil);
  931. end;
  932.  
  933. procedure TVCFormulaOne.FormatCurrency0;
  934. const
  935.   DispInfo: array[0..7] of Byte = ($9B,$00,$00,$00,$00,$01,$00,$00);
  936. begin
  937.   InvokeMethod(DispInfo, nil);
  938. end;
  939.  
  940. procedure TVCFormulaOne.FormatCurrency2;
  941. const
  942.   DispInfo: array[0..7] of Byte = ($9C,$00,$00,$00,$00,$01,$00,$00);
  943. begin
  944.   InvokeMethod(DispInfo, nil);
  945. end;
  946.  
  947. procedure TVCFormulaOne.FormatDefaultFontDlg;
  948. const
  949.   DispInfo: array[0..7] of Byte = ($9D,$00,$00,$00,$00,$01,$00,$00);
  950. begin
  951.   InvokeMethod(DispInfo, nil);
  952. end;
  953.  
  954. procedure TVCFormulaOne.FormatFixed;
  955. const
  956.   DispInfo: array[0..7] of Byte = ($9E,$00,$00,$00,$00,$01,$00,$00);
  957. begin
  958.   InvokeMethod(DispInfo, nil);
  959. end;
  960.  
  961. procedure TVCFormulaOne.FormatFixed2;
  962. const
  963.   DispInfo: array[0..7] of Byte = ($9F,$00,$00,$00,$00,$01,$00,$00);
  964. begin
  965.   InvokeMethod(DispInfo, nil);
  966. end;
  967.  
  968. procedure TVCFormulaOne.FormatFontDlg;
  969. const
  970.   DispInfo: array[0..7] of Byte = ($A0,$00,$00,$00,$00,$01,$00,$00);
  971. begin
  972.   InvokeMethod(DispInfo, nil);
  973. end;
  974.  
  975. procedure TVCFormulaOne.FormatFraction;
  976. const
  977.   DispInfo: array[0..7] of Byte = ($A1,$00,$00,$00,$00,$01,$00,$00);
  978. begin
  979.   InvokeMethod(DispInfo, nil);
  980. end;
  981.  
  982. procedure TVCFormulaOne.FormatGeneral;
  983. const
  984.   DispInfo: array[0..7] of Byte = ($A2,$00,$00,$00,$00,$01,$00,$00);
  985. begin
  986.   InvokeMethod(DispInfo, nil);
  987. end;
  988.  
  989. procedure TVCFormulaOne.FormatHmmampm;
  990. const
  991.   DispInfo: array[0..7] of Byte = ($A3,$00,$00,$00,$00,$01,$00,$00);
  992. begin
  993.   InvokeMethod(DispInfo, nil);
  994. end;
  995.  
  996. procedure TVCFormulaOne.FormatMdyy;
  997. const
  998.   DispInfo: array[0..7] of Byte = ($A4,$00,$00,$00,$00,$01,$00,$00);
  999. begin
  1000.   InvokeMethod(DispInfo, nil);
  1001. end;
  1002.  
  1003. procedure TVCFormulaOne.FormatNumberDlg;
  1004. const
  1005.   DispInfo: array[0..7] of Byte = ($A5,$00,$00,$00,$00,$01,$00,$00);
  1006. begin
  1007.   InvokeMethod(DispInfo, nil);
  1008. end;
  1009.  
  1010. procedure TVCFormulaOne.FormatPatternDlg;
  1011. const
  1012.   DispInfo: array[0..7] of Byte = ($A6,$00,$00,$00,$00,$01,$00,$00);
  1013. begin
  1014.   InvokeMethod(DispInfo, nil);
  1015. end;
  1016.  
  1017. procedure TVCFormulaOne.FormatPercent;
  1018. const
  1019.   DispInfo: array[0..7] of Byte = ($A7,$00,$00,$00,$00,$01,$00,$00);
  1020. begin
  1021.   InvokeMethod(DispInfo, nil);
  1022. end;
  1023.  
  1024. procedure TVCFormulaOne.FormatScientific;
  1025. const
  1026.   DispInfo: array[0..7] of Byte = ($A8,$00,$00,$00,$00,$01,$00,$00);
  1027. begin
  1028.   InvokeMethod(DispInfo, nil);
  1029. end;
  1030.  
  1031. procedure TVCFormulaOne.GetActiveCell;
  1032. const
  1033.   DispInfo: array[0..9] of Byte = ($A9,$00,$00,$00,$00,$01,$02,$00,$83,$83);
  1034. begin
  1035.   InvokeMethod(DispInfo, nil);
  1036. end;
  1037.  
  1038. procedure TVCFormulaOne.GetDefaultFont;
  1039. const
  1040.   DispInfo: array[0..9] of Byte = ($AA,$00,$00,$00,$00,$01,$02,$00,$88,$82);
  1041. begin
  1042.   InvokeMethod(DispInfo, nil);
  1043. end;
  1044.  
  1045. procedure TVCFormulaOne.GetHdrSelection;
  1046. const
  1047.   DispInfo: array[0..10] of Byte = ($AB,$00,$00,$00,$00,$01,$03,$00,$8B,$8B,$8B);
  1048. begin
  1049.   InvokeMethod(DispInfo, nil);
  1050. end;
  1051.  
  1052. procedure TVCFormulaOne.GetIteration;
  1053. const
  1054.   DispInfo: array[0..10] of Byte = ($AC,$00,$00,$00,$00,$01,$03,$00,$8B,$82,$85);
  1055. begin
  1056.   InvokeMethod(DispInfo, nil);
  1057. end;
  1058.  
  1059. procedure TVCFormulaOne.GetPrintScale;
  1060. const
  1061.   DispInfo: array[0..11] of Byte = ($AD,$00,$00,$00,$00,$01,$04,$00,$82,$8B,$83,$83);
  1062. begin
  1063.   InvokeMethod(DispInfo, nil);
  1064. end;
  1065.  
  1066. procedure TVCFormulaOne.GetSelection;
  1067. const
  1068.   DispInfo: array[0..12] of Byte = ($AE,$00,$00,$00,$00,$01,$05,$00,$02,$83,$83,$83,$83);
  1069. begin
  1070.   InvokeMethod(DispInfo, nil);
  1071. end;
  1072.  
  1073. procedure TVCFormulaOne.GotoDlg;
  1074. const
  1075.   DispInfo: array[0..7] of Byte = ($AF,$00,$00,$00,$00,$01,$00,$00);
  1076. begin
  1077.   InvokeMethod(DispInfo, nil);
  1078. end;
  1079.  
  1080. procedure TVCFormulaOne.HeapMin;
  1081. const
  1082.   DispInfo: array[0..7] of Byte = ($B0,$00,$00,$00,$00,$01,$00,$00);
  1083. begin
  1084.   InvokeMethod(DispInfo, nil);
  1085. end;
  1086.  
  1087. procedure TVCFormulaOne.InitTable;
  1088. const
  1089.   DispInfo: array[0..7] of Byte = ($B1,$00,$00,$00,$00,$01,$00,$00);
  1090. begin
  1091.   InvokeMethod(DispInfo, nil);
  1092. end;
  1093.  
  1094. procedure TVCFormulaOne.InsertRange;
  1095. const
  1096.   DispInfo: array[0..12] of Byte = ($B2,$00,$00,$00,$00,$01,$05,$00,$03,$03,$03,$03,$02);
  1097. begin
  1098.   InvokeMethod(DispInfo, nil);
  1099. end;
  1100.  
  1101. procedure TVCFormulaOne.LineStyleDlg;
  1102. const
  1103.   DispInfo: array[0..7] of Byte = ($B3,$00,$00,$00,$00,$01,$00,$00);
  1104. begin
  1105.   InvokeMethod(DispInfo, nil);
  1106. end;
  1107.  
  1108. procedure TVCFormulaOne.MoveRange;
  1109. const
  1110.   DispInfo: array[0..13] of Byte = ($B4,$00,$00,$00,$00,$01,$06,$00,$03,$03,$03,$03,$03,$03);
  1111. begin
  1112.   InvokeMethod(DispInfo, nil);
  1113. end;
  1114.  
  1115. procedure TVCFormulaOne.ObjAddItem;
  1116. const
  1117.   DispInfo: array[0..9] of Byte = ($B5,$00,$00,$00,$00,$01,$02,$00,$03,$08);
  1118. begin
  1119.   InvokeMethod(DispInfo, nil);
  1120. end;
  1121.  
  1122. procedure TVCFormulaOne.ObjAddSelection;
  1123. const
  1124.   DispInfo: array[0..8] of Byte = ($B6,$00,$00,$00,$00,$01,$01,$00,$03);
  1125. begin
  1126.   InvokeMethod(DispInfo, nil);
  1127. end;
  1128.  
  1129. procedure TVCFormulaOne.ObjBringToFront;
  1130. const
  1131.   DispInfo: array[0..7] of Byte = ($B7,$00,$00,$00,$00,$01,$00,$00);
  1132. begin
  1133.   InvokeMethod(DispInfo, nil);
  1134. end;
  1135.  
  1136. procedure TVCFormulaOne.ObjDeleteItem;
  1137. const
  1138.   DispInfo: array[0..9] of Byte = ($B8,$00,$00,$00,$00,$01,$02,$00,$03,$02);
  1139. begin
  1140.   InvokeMethod(DispInfo, nil);
  1141. end;
  1142.  
  1143. procedure TVCFormulaOne.ObjGetCell;
  1144. const
  1145.   DispInfo: array[0..11] of Byte = ($B9,$00,$00,$00,$00,$01,$04,$00,$03,$82,$83,$83);
  1146. begin
  1147.   InvokeMethod(DispInfo, nil);
  1148. end;
  1149.  
  1150. procedure TVCFormulaOne.ObjGetPos;
  1151. const
  1152.   DispInfo: array[0..12] of Byte = ($BA,$00,$00,$00,$00,$01,$05,$00,$03,$84,$84,$84,$84);
  1153. begin
  1154.   InvokeMethod(DispInfo, nil);
  1155. end;
  1156.  
  1157. procedure TVCFormulaOne.ObjGetSelection;
  1158. const
  1159.   DispInfo: array[0..9] of Byte = ($BB,$00,$00,$00,$00,$01,$02,$00,$02,$83);
  1160. begin
  1161.   InvokeMethod(DispInfo, nil);
  1162. end;
  1163.  
  1164. procedure TVCFormulaOne.ObjInsertItem;
  1165. const
  1166.   DispInfo: array[0..10] of Byte = ($BC,$00,$00,$00,$00,$01,$03,$00,$03,$02,$08);
  1167. begin
  1168.   InvokeMethod(DispInfo, nil);
  1169. end;
  1170.  
  1171. procedure TVCFormulaOne.ObjNameDlg;
  1172. const
  1173.   DispInfo: array[0..7] of Byte = ($BD,$00,$00,$00,$00,$01,$00,$00);
  1174. begin
  1175.   InvokeMethod(DispInfo, nil);
  1176. end;
  1177.  
  1178. procedure TVCFormulaOne.ObjNew;
  1179. const
  1180.   DispInfo: array[0..13] of Byte = ($BE,$00,$00,$00,$00,$01,$06,$00,$02,$04,$04,$04,$04,$83);
  1181. begin
  1182.   InvokeMethod(DispInfo, nil);
  1183. end;
  1184.  
  1185. procedure TVCFormulaOne.ObjNewPicture;
  1186. const
  1187.   DispInfo: array[0..16] of Byte = ($BF,$00,$00,$00,$00,$01,$09,$00,$04,$04,$04,$04,$83,$03,$03,$03,$03);
  1188. begin
  1189.   InvokeMethod(DispInfo, nil);
  1190. end;
  1191.  
  1192. procedure TVCFormulaOne.ObjOptionsDlg;
  1193. const
  1194.   DispInfo: array[0..7] of Byte = ($C0,$00,$00,$00,$00,$01,$00,$00);
  1195. begin
  1196.   InvokeMethod(DispInfo, nil);
  1197. end;
  1198.  
  1199. procedure TVCFormulaOne.ObjPosToTwips;
  1200. const
  1201.   DispInfo: array[0..16] of Byte = ($C1,$00,$00,$00,$00,$01,$09,$00,$04,$04,$04,$04,$83,$83,$83,$83,$82);
  1202. begin
  1203.   InvokeMethod(DispInfo, nil);
  1204. end;
  1205.  
  1206. procedure TVCFormulaOne.ObjSendToBack;
  1207. const
  1208.   DispInfo: array[0..7] of Byte = ($C2,$00,$00,$00,$00,$01,$00,$00);
  1209. begin
  1210.   InvokeMethod(DispInfo, nil);
  1211. end;
  1212.  
  1213. procedure TVCFormulaOne.ObjSetCell;
  1214. const
  1215.   DispInfo: array[0..11] of Byte = ($C3,$00,$00,$00,$00,$01,$04,$00,$03,$02,$03,$03);
  1216. begin
  1217.   InvokeMethod(DispInfo, nil);
  1218. end;
  1219.  
  1220. procedure TVCFormulaOne.ObjSetPicture;
  1221. const
  1222.   DispInfo: array[0..12] of Byte = ($C4,$00,$00,$00,$00,$01,$05,$00,$03,$03,$02,$03,$03);
  1223. begin
  1224.   InvokeMethod(DispInfo, nil);
  1225. end;
  1226.  
  1227. procedure TVCFormulaOne.ObjSetPos;
  1228. const
  1229.   DispInfo: array[0..12] of Byte = ($C5,$00,$00,$00,$00,$01,$05,$00,$03,$04,$04,$04,$04);
  1230. begin
  1231.   InvokeMethod(DispInfo, nil);
  1232. end;
  1233.  
  1234. procedure TVCFormulaOne.ObjSetSelection;
  1235. const
  1236.   DispInfo: array[0..8] of Byte = ($C6,$00,$00,$00,$00,$01,$01,$00,$03);
  1237. begin
  1238.   InvokeMethod(DispInfo, nil);
  1239. end;
  1240.  
  1241. procedure TVCFormulaOne.OpenFileDlg;
  1242. const
  1243.   DispInfo: array[0..10] of Byte = ($C7,$00,$00,$00,$00,$01,$03,$00,$08,$03,$88);
  1244. begin
  1245.   InvokeMethod(DispInfo, nil);
  1246. end;
  1247.  
  1248. procedure TVCFormulaOne.ProtectionDlg;
  1249. const
  1250.   DispInfo: array[0..7] of Byte = ($C8,$00,$00,$00,$00,$01,$00,$00);
  1251. begin
  1252.   InvokeMethod(DispInfo, nil);
  1253. end;
  1254.  
  1255. procedure TVCFormulaOne.RangeToTwips;
  1256. const
  1257.   DispInfo: array[0..16] of Byte = ($C9,$00,$00,$00,$00,$01,$09,$00,$03,$03,$03,$03,$83,$83,$83,$83,$82);
  1258. begin
  1259.   InvokeMethod(DispInfo, nil);
  1260. end;
  1261.  
  1262. procedure TVCFormulaOne.Read;
  1263. const
  1264.   DispInfo: array[0..9] of Byte = ($CA,$00,$00,$00,$00,$01,$02,$00,$08,$82);
  1265. begin
  1266.   InvokeMethod(DispInfo, nil);
  1267. end;
  1268.  
  1269. procedure TVCFormulaOne.ReadFromBlob;
  1270. const
  1271.   DispInfo: array[0..9] of Byte = ($CB,$00,$00,$00,$00,$01,$02,$00,$03,$02);
  1272. begin
  1273.   InvokeMethod(DispInfo, nil);
  1274. end;
  1275.  
  1276. procedure TVCFormulaOne.Recalc;
  1277. const
  1278.   DispInfo: array[0..7] of Byte = ($CC,$00,$00,$00,$00,$01,$00,$00);
  1279. begin
  1280.   InvokeMethod(DispInfo, nil);
  1281. end;
  1282.  
  1283. procedure TVCFormulaOne.RemoveColPageBreak;
  1284. const
  1285.   DispInfo: array[0..8] of Byte = ($CD,$00,$00,$00,$00,$01,$01,$00,$03);
  1286. begin
  1287.   InvokeMethod(DispInfo, nil);
  1288. end;
  1289.  
  1290. procedure TVCFormulaOne.RemovePageBreak;
  1291. const
  1292.   DispInfo: array[0..7] of Byte = ($CE,$00,$00,$00,$00,$01,$00,$00);
  1293. begin
  1294.   InvokeMethod(DispInfo, nil);
  1295. end;
  1296.  
  1297. procedure TVCFormulaOne.RemoveRowPageBreak;
  1298. const
  1299.   DispInfo: array[0..8] of Byte = ($CF,$00,$00,$00,$00,$01,$01,$00,$03);
  1300. begin
  1301.   InvokeMethod(DispInfo, nil);
  1302. end;
  1303.  
  1304. procedure TVCFormulaOne.RowHeightDlg;
  1305. const
  1306.   DispInfo: array[0..7] of Byte = ($D0,$00,$00,$00,$00,$01,$00,$00);
  1307. begin
  1308.   InvokeMethod(DispInfo, nil);
  1309. end;
  1310.  
  1311. procedure TVCFormulaOne.SaveFileDlg;
  1312. const
  1313.   DispInfo: array[0..10] of Byte = ($D1,$00,$00,$00,$00,$01,$03,$00,$08,$88,$82);
  1314. begin
  1315.   InvokeMethod(DispInfo, nil);
  1316. end;
  1317.  
  1318. procedure TVCFormulaOne.SaveWindowInfo;
  1319. const
  1320.   DispInfo: array[0..7] of Byte = ($D2,$00,$00,$00,$00,$01,$00,$00);
  1321. begin
  1322.   InvokeMethod(DispInfo, nil);
  1323. end;
  1324.  
  1325. procedure TVCFormulaOne.SetActiveCell;
  1326. const
  1327.   DispInfo: array[0..9] of Byte = ($D3,$00,$00,$00,$00,$01,$02,$00,$03,$03);
  1328. begin
  1329.   InvokeMethod(DispInfo, nil);
  1330. end;
  1331.  
  1332. procedure TVCFormulaOne.SetAlignment;
  1333. const
  1334.   DispInfo: array[0..11] of Byte = ($D4,$00,$00,$00,$00,$01,$04,$00,$02,$0B,$02,$02);
  1335. begin
  1336.   InvokeMethod(DispInfo, nil);
  1337. end;
  1338.  
  1339. procedure TVCFormulaOne.SetBorder;
  1340. const
  1341.   DispInfo: array[0..18] of Byte = ($D5,$00,$00,$00,$00,$01,$0B,$00,$02,$02,$02,$02,$02,$02,$03,$03,$03,$03,$03);
  1342. begin
  1343.   InvokeMethod(DispInfo, nil);
  1344. end;
  1345.  
  1346. procedure TVCFormulaOne.SetColWidth;
  1347. const
  1348.   DispInfo: array[0..11] of Byte = ($D6,$00,$00,$00,$00,$01,$04,$00,$03,$03,$02,$0B);
  1349. begin
  1350.   InvokeMethod(DispInfo, nil);
  1351. end;
  1352.  
  1353. procedure TVCFormulaOne.SetColWidthAuto;
  1354. const
  1355.   DispInfo: array[0..12] of Byte = ($D7,$00,$00,$00,$00,$01,$05,$00,$03,$03,$03,$03,$0B);
  1356. begin
  1357.   InvokeMethod(DispInfo, nil);
  1358. end;
  1359.  
  1360. procedure TVCFormulaOne.SetDefaultFont;
  1361. const
  1362.   DispInfo: array[0..9] of Byte = ($D8,$00,$00,$00,$00,$01,$02,$00,$08,$02);
  1363. begin
  1364.   InvokeMethod(DispInfo, nil);
  1365. end;
  1366.  
  1367. procedure TVCFormulaOne.SetFont;
  1368. const
  1369.   DispInfo: array[0..16] of Byte = ($D9,$00,$00,$00,$00,$01,$09,$00,$08,$02,$0B,$0B,$0B,$0B,$03,$0B,$0B);
  1370. begin
  1371.   InvokeMethod(DispInfo, nil);
  1372. end;
  1373.  
  1374. procedure TVCFormulaOne.SetHdrSelection;
  1375. const
  1376.   DispInfo: array[0..10] of Byte = ($DA,$00,$00,$00,$00,$01,$03,$00,$0B,$0B,$0B);
  1377. begin
  1378.   InvokeMethod(DispInfo, nil);
  1379. end;
  1380.  
  1381. procedure TVCFormulaOne.SetIteration;
  1382. const
  1383.   DispInfo: array[0..10] of Byte = ($DB,$00,$00,$00,$00,$01,$03,$00,$0B,$02,$05);
  1384. begin
  1385.   InvokeMethod(DispInfo, nil);
  1386. end;
  1387.  
  1388. procedure TVCFormulaOne.SetLineStyle;
  1389. const
  1390.   DispInfo: array[0..10] of Byte = ($DC,$00,$00,$00,$00,$01,$03,$00,$02,$03,$02);
  1391. begin
  1392.   InvokeMethod(DispInfo, nil);
  1393. end;
  1394.  
  1395. procedure TVCFormulaOne.SetPattern;
  1396. const
  1397.   DispInfo: array[0..10] of Byte = ($DD,$00,$00,$00,$00,$01,$03,$00,$02,$03,$03);
  1398. begin
  1399.   InvokeMethod(DispInfo, nil);
  1400. end;
  1401.  
  1402. procedure TVCFormulaOne.SetPrintAreaFromSelection;
  1403. const
  1404.   DispInfo: array[0..7] of Byte = ($DE,$00,$00,$00,$00,$01,$00,$00);
  1405. begin
  1406.   InvokeMethod(DispInfo, nil);
  1407. end;
  1408.  
  1409. procedure TVCFormulaOne.SetPrintScale;
  1410. const
  1411.   DispInfo: array[0..11] of Byte = ($DF,$00,$00,$00,$00,$01,$04,$00,$02,$0B,$02,$02);
  1412. begin
  1413.   InvokeMethod(DispInfo, nil);
  1414. end;
  1415.  
  1416. procedure TVCFormulaOne.SetPrintTitlesFromSelection;
  1417. const
  1418.   DispInfo: array[0..7] of Byte = ($E0,$00,$00,$00,$00,$01,$00,$00);
  1419. begin
  1420.   InvokeMethod(DispInfo, nil);
  1421. end;
  1422.  
  1423. procedure TVCFormulaOne.SetProtection;
  1424. const
  1425.   DispInfo: array[0..9] of Byte = ($E1,$00,$00,$00,$00,$01,$02,$00,$0B,$0B);
  1426. begin
  1427.   InvokeMethod(DispInfo, nil);
  1428. end;
  1429.  
  1430. procedure TVCFormulaOne.SetRowHeight;
  1431. const
  1432.   DispInfo: array[0..11] of Byte = ($E2,$00,$00,$00,$00,$01,$04,$00,$03,$03,$02,$0B);
  1433. begin
  1434.   InvokeMethod(DispInfo, nil);
  1435. end;
  1436.  
  1437. procedure TVCFormulaOne.SetRowHeightAuto;
  1438. const
  1439.   DispInfo: array[0..12] of Byte = ($E3,$00,$00,$00,$00,$01,$05,$00,$03,$03,$03,$03,$0B);
  1440. begin
  1441.   InvokeMethod(DispInfo, nil);
  1442. end;
  1443.  
  1444. procedure TVCFormulaOne.SetSelection;
  1445. const
  1446.   DispInfo: array[0..11] of Byte = ($E4,$00,$00,$00,$00,$01,$04,$00,$03,$03,$03,$03);
  1447. begin
  1448.   InvokeMethod(DispInfo, nil);
  1449. end;
  1450.  
  1451. procedure TVCFormulaOne.ShowActiveCell;
  1452. const
  1453.   DispInfo: array[0..7] of Byte = ($E5,$00,$00,$00,$00,$01,$00,$00);
  1454. begin
  1455.   InvokeMethod(DispInfo, nil);
  1456. end;
  1457.  
  1458. procedure TVCFormulaOne.Sort3;
  1459. const
  1460.   DispInfo: array[0..15] of Byte = ($E6,$00,$00,$00,$00,$01,$08,$00,$03,$03,$03,$03,$0B,$03,$03,$03);
  1461. begin
  1462.   InvokeMethod(DispInfo, nil);
  1463. end;
  1464.  
  1465. procedure TVCFormulaOne.SortDlg;
  1466. const
  1467.   DispInfo: array[0..7] of Byte = ($E7,$00,$00,$00,$00,$01,$00,$00);
  1468. begin
  1469.   InvokeMethod(DispInfo, nil);
  1470. end;
  1471.  
  1472. procedure TVCFormulaOne.StartEdit;
  1473. const
  1474.   DispInfo: array[0..10] of Byte = ($E8,$00,$00,$00,$00,$01,$03,$00,$0B,$0B,$0B);
  1475. begin
  1476.   InvokeMethod(DispInfo, nil);
  1477. end;
  1478.  
  1479. procedure TVCFormulaOne.SwapTables;
  1480. const
  1481.   DispInfo: array[0..8] of Byte = ($E9,$00,$00,$00,$00,$01,$01,$00,$03);
  1482. begin
  1483.   InvokeMethod(DispInfo, nil);
  1484. end;
  1485.  
  1486. procedure TVCFormulaOne.TransactCommit;
  1487. const
  1488.   DispInfo: array[0..7] of Byte = ($EA,$00,$00,$00,$00,$01,$00,$00);
  1489. begin
  1490.   InvokeMethod(DispInfo, nil);
  1491. end;
  1492.  
  1493. procedure TVCFormulaOne.TransactRollback;
  1494. const
  1495.   DispInfo: array[0..7] of Byte = ($EB,$00,$00,$00,$00,$01,$00,$00);
  1496. begin
  1497.   InvokeMethod(DispInfo, nil);
  1498. end;
  1499.  
  1500. procedure TVCFormulaOne.TransactStart;
  1501. const
  1502.   DispInfo: array[0..7] of Byte = ($EC,$00,$00,$00,$00,$01,$00,$00);
  1503. begin
  1504.   InvokeMethod(DispInfo, nil);
  1505. end;
  1506.  
  1507. procedure TVCFormulaOne.TwipsToRC;
  1508. const
  1509.   DispInfo: array[0..11] of Byte = ($ED,$00,$00,$00,$00,$01,$04,$00,$03,$03,$83,$83);
  1510. begin
  1511.   InvokeMethod(DispInfo, nil);
  1512. end;
  1513.  
  1514. procedure TVCFormulaOne.SSUpdate;
  1515. const
  1516.   DispInfo: array[0..7] of Byte = ($EE,$00,$00,$00,$00,$01,$00,$00);
  1517. begin
  1518.   InvokeMethod(DispInfo, nil);
  1519. end;
  1520.  
  1521. function TVCFormulaOne.SSVersion;
  1522. const
  1523.   DispInfo: array[0..7] of Byte = ($EF,$00,$00,$00,$02,$01,$00,$00);
  1524. begin
  1525.   InvokeMethod(DispInfo, @Result);
  1526. end;
  1527.  
  1528. procedure TVCFormulaOne.Write;
  1529. const
  1530.   DispInfo: array[0..9] of Byte = ($F0,$00,$00,$00,$00,$01,$02,$00,$08,$02);
  1531. begin
  1532.   InvokeMethod(DispInfo, nil);
  1533. end;
  1534.  
  1535. procedure TVCFormulaOne.WriteToBlob;
  1536. const
  1537.   DispInfo: array[0..9] of Byte = ($F1,$00,$00,$00,$00,$01,$02,$00,$83,$02);
  1538. begin
  1539.   InvokeMethod(DispInfo, nil);
  1540. end;
  1541.  
  1542. procedure TVCFormulaOne.SetRowHidden;
  1543. const
  1544.   DispInfo: array[0..10] of Byte = ($F2,$00,$00,$00,$00,$01,$03,$00,$03,$03,$0B);
  1545. begin
  1546.   InvokeMethod(DispInfo, nil);
  1547. end;
  1548.  
  1549. procedure TVCFormulaOne.SetColHidden;
  1550. const
  1551.   DispInfo: array[0..10] of Byte = ($F3,$00,$00,$00,$00,$01,$03,$00,$03,$03,$0B);
  1552. begin
  1553.   InvokeMethod(DispInfo, nil);
  1554. end;
  1555.  
  1556. procedure TVCFormulaOne.SetColWidthTwips;
  1557. const
  1558.   DispInfo: array[0..11] of Byte = ($F4,$00,$00,$00,$00,$01,$04,$00,$03,$03,$03,$0B);
  1559. begin
  1560.   InvokeMethod(DispInfo, nil);
  1561. end;
  1562.  
  1563. procedure TVCFormulaOne.EditInsertSheets;
  1564. const
  1565.   DispInfo: array[0..7] of Byte = ($F5,$00,$00,$00,$00,$01,$00,$00);
  1566. begin
  1567.   InvokeMethod(DispInfo, nil);
  1568. end;
  1569.  
  1570. procedure TVCFormulaOne.EditDeleteSheets;
  1571. const
  1572.   DispInfo: array[0..7] of Byte = ($F6,$00,$00,$00,$00,$01,$00,$00);
  1573. begin
  1574.   InvokeMethod(DispInfo, nil);
  1575. end;
  1576.  
  1577. procedure TVCFormulaOne.InsertSheets;
  1578. const
  1579.   DispInfo: array[0..9] of Byte = ($F7,$00,$00,$00,$00,$01,$02,$00,$03,$03);
  1580. begin
  1581.   InvokeMethod(DispInfo, nil);
  1582. end;
  1583.  
  1584. procedure TVCFormulaOne.DeleteSheets;
  1585. const
  1586.   DispInfo: array[0..9] of Byte = ($F8,$00,$00,$00,$00,$01,$02,$00,$03,$03);
  1587. begin
  1588.   InvokeMethod(DispInfo, nil);
  1589. end;
  1590.  
  1591. procedure TVCFormulaOne.Refresh;
  1592. const
  1593.   DispInfo: array[0..7] of Byte = ($DA,$FD,$FF,$FF,$00,$01,$00,$00);
  1594. begin
  1595.   InvokeMethod(DispInfo, nil);
  1596. end;
  1597.  
  1598. function TVCFormulaOne.NextColPageBreak;
  1599. const
  1600.   DispInfo: array[0..8] of Byte = ($F9,$00,$00,$00,$03,$01,$01,$00,$03);
  1601. begin
  1602.   InvokeMethod(DispInfo, @Result);
  1603. end;
  1604.  
  1605. function TVCFormulaOne.NextRowPageBreak;
  1606. const
  1607.   DispInfo: array[0..8] of Byte = ($FA,$00,$00,$00,$03,$01,$01,$00,$03);
  1608. begin
  1609.   InvokeMethod(DispInfo, @Result);
  1610. end;
  1611.  
  1612. function TVCFormulaOne.ObjFirstID;
  1613. const
  1614.   DispInfo: array[0..7] of Byte = ($FB,$00,$00,$00,$03,$01,$00,$00);
  1615. begin
  1616.   InvokeMethod(DispInfo, @Result);
  1617. end;
  1618.  
  1619. function TVCFormulaOne.ObjNextID;
  1620. const
  1621.   DispInfo: array[0..8] of Byte = ($FC,$00,$00,$00,$03,$01,$01,$00,$03);
  1622. begin
  1623.   InvokeMethod(DispInfo, @Result);
  1624. end;
  1625.  
  1626. function TVCFormulaOne.ObjGetItemCount;
  1627. const
  1628.   DispInfo: array[0..8] of Byte = ($FD,$00,$00,$00,$02,$01,$01,$00,$03);
  1629. begin
  1630.   InvokeMethod(DispInfo, @Result);
  1631. end;
  1632.  
  1633. function TVCFormulaOne.ObjGetType;
  1634. const
  1635.   DispInfo: array[0..8] of Byte = ($FE,$00,$00,$00,$02,$01,$01,$00,$03);
  1636. begin
  1637.   InvokeMethod(DispInfo, @Result);
  1638. end;
  1639.  
  1640. function TVCFormulaOne.ObjGetSelectionCount;
  1641. const
  1642.   DispInfo: array[0..7] of Byte = ($FF,$00,$00,$00,$02,$01,$00,$00);
  1643. begin
  1644.   InvokeMethod(DispInfo, @Result);
  1645. end;
  1646.  
  1647. function TVCFormulaOne.FormatRCNr;
  1648. const
  1649.   DispInfo: array[0..10] of Byte = ($00,$01,$00,$00,$08,$01,$03,$00,$03,$03,$0B);
  1650. begin
  1651.   InvokeMethod(DispInfo, @Result);
  1652. end;
  1653.  
  1654. function TVCFormulaOne.SS;
  1655. const
  1656.   DispInfo: array[0..7] of Byte = ($01,$01,$00,$00,$03,$01,$00,$00);
  1657. begin
  1658.   InvokeMethod(DispInfo, @Result);
  1659. end;
  1660.  
  1661. function TVCFormulaOne.ErrorNumberToText;
  1662. const
  1663.   DispInfo: array[0..8] of Byte = ($02,$01,$00,$00,$08,$01,$01,$00,$03);
  1664. begin
  1665.   InvokeMethod(DispInfo, @Result);
  1666. end;
  1667.  
  1668. function TVCFormulaOne.ObjNameToID;
  1669. const
  1670.   DispInfo: array[0..8] of Byte = ($03,$01,$00,$00,$03,$01,$01,$00,$08);
  1671. begin
  1672.   InvokeMethod(DispInfo, @Result);
  1673. end;
  1674.  
  1675. function TVCFormulaOne.DefinedNameCount;
  1676. const
  1677.   DispInfo: array[0..7] of Byte = ($04,$01,$00,$00,$03,$01,$00,$00);
  1678. begin
  1679.   InvokeMethod(DispInfo, @Result);
  1680. end;
  1681.  
  1682. procedure TVCFormulaOne.ValidationRuleDlg;
  1683. const
  1684.   DispInfo: array[0..7] of Byte = ($05,$01,$00,$00,$00,$01,$00,$00);
  1685. begin
  1686.   InvokeMethod(DispInfo, nil);
  1687. end;
  1688.  
  1689. procedure TVCFormulaOne.SetValidationRule;
  1690. const
  1691.   DispInfo: array[0..9] of Byte = ($06,$01,$00,$00,$00,$01,$02,$00,$08,$08);
  1692. begin
  1693.   InvokeMethod(DispInfo, nil);
  1694. end;
  1695.  
  1696. procedure TVCFormulaOne.GetValidationRule;
  1697. const
  1698.   DispInfo: array[0..9] of Byte = ($07,$01,$00,$00,$00,$01,$02,$00,$88,$88);
  1699. begin
  1700.   InvokeMethod(DispInfo, nil);
  1701. end;
  1702.  
  1703. function TVCFormulaOne.AutoFillItemsCount;
  1704. const
  1705.   DispInfo: array[0..7] of Byte = ($08,$01,$00,$00,$02,$01,$00,$00);
  1706. begin
  1707.   InvokeMethod(DispInfo, @Result);
  1708. end;
  1709.  
  1710. procedure TVCFormulaOne.CopyRangeEx;
  1711. const
  1712.   DispInfo: array[0..18] of Byte = ($09,$01,$00,$00,$00,$01,$0B,$00,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03);
  1713. begin
  1714.   InvokeMethod(DispInfo, nil);
  1715. end;
  1716.  
  1717. procedure TVCFormulaOne.Sort;
  1718. const
  1719.   DispInfo: array[0..13] of Byte = ($0A,$01,$00,$00,$00,$01,$06,$00,$03,$03,$03,$03,$0B,$0C);
  1720. begin
  1721.   InvokeMethod(DispInfo, nil);
  1722. end;
  1723.  
  1724. procedure TVCFormulaOne.DeleteAutoFillItems;
  1725. const
  1726.   DispInfo: array[0..8] of Byte = ($0B,$01,$00,$00,$00,$01,$01,$00,$02);
  1727. begin
  1728.   InvokeMethod(DispInfo, nil);
  1729. end;
  1730.  
  1731. procedure TVCFormulaOne.ODBCConnect;
  1732. const
  1733.   DispInfo: array[0..10] of Byte = ($0C,$01,$00,$00,$00,$01,$03,$00,$88,$0B,$82);
  1734. begin
  1735.   InvokeMethod(DispInfo, nil);
  1736. end;
  1737.  
  1738. procedure TVCFormulaOne.ODBCDisconnect;
  1739. const
  1740.   DispInfo: array[0..7] of Byte = ($0D,$01,$00,$00,$00,$01,$00,$00);
  1741. begin
  1742.   InvokeMethod(DispInfo, nil);
  1743. end;
  1744.  
  1745. procedure TVCFormulaOne.ODBCQuery;
  1746. const
  1747.   DispInfo: array[0..16] of Byte = ($0E,$01,$00,$00,$00,$01,$09,$00,$88,$03,$03,$0B,$8B,$8B,$8B,$8B,$82);
  1748. begin
  1749.   InvokeMethod(DispInfo, nil);
  1750. end;
  1751.  
  1752. procedure TVCFormulaOne.LaunchDesigner;
  1753. const
  1754.   DispInfo: array[0..7] of Byte = ($0F,$01,$00,$00,$00,$01,$00,$00);
  1755. begin
  1756.   InvokeMethod(DispInfo, nil);
  1757. end;
  1758.  
  1759. procedure TVCFormulaOne.AboutBox;
  1760. const
  1761.   DispInfo: array[0..7] of Byte = ($D8,$FD,$FF,$FF,$00,$01,$00,$00);
  1762. begin
  1763.   InvokeMethod(DispInfo, nil);
  1764. end;
  1765.  
  1766. function TVCFormulaOne.Get_ColText;
  1767. const
  1768.   DispInfo: array[0..8] of Byte = ($10,$01,$00,$00,$08,$02,$01,$00,$03);
  1769. begin
  1770.   InvokeMethod(DispInfo, @Result);
  1771. end;
  1772.  
  1773. procedure TVCFormulaOne.Set_ColText;
  1774. const
  1775.   DispInfo: array[0..9] of Byte = ($10,$01,$00,$00,$00,$04,$02,$00,$03,$08);
  1776. begin
  1777.   InvokeMethod(DispInfo, nil);
  1778. end;
  1779.  
  1780. function TVCFormulaOne.Get_DefinedName;
  1781. const
  1782.   DispInfo: array[0..8] of Byte = ($11,$01,$00,$00,$08,$02,$01,$00,$08);
  1783. begin
  1784.   InvokeMethod(DispInfo, @Result);
  1785. end;
  1786.  
  1787. procedure TVCFormulaOne.Set_DefinedName;
  1788. const
  1789.   DispInfo: array[0..9] of Byte = ($11,$01,$00,$00,$00,$04,$02,$00,$08,$08);
  1790. begin
  1791.   InvokeMethod(DispInfo, nil);
  1792. end;
  1793.  
  1794. function TVCFormulaOne.Get_EntryRC;
  1795. const
  1796.   DispInfo: array[0..9] of Byte = ($12,$01,$00,$00,$08,$02,$02,$00,$03,$03);
  1797. begin
  1798.   InvokeMethod(DispInfo, @Result);
  1799. end;
  1800.  
  1801. procedure TVCFormulaOne.Set_EntryRC;
  1802. const
  1803.   DispInfo: array[0..10] of Byte = ($12,$01,$00,$00,$00,$04,$03,$00,$03,$03,$08);
  1804. begin
  1805.   InvokeMethod(DispInfo, nil);
  1806. end;
  1807.  
  1808. function TVCFormulaOne.Get_FormattedTextRC;
  1809. const
  1810.   DispInfo: array[0..9] of Byte = ($13,$01,$00,$00,$08,$02,$02,$00,$03,$03);
  1811. begin
  1812.   InvokeMethod(DispInfo, @Result);
  1813. end;
  1814.  
  1815. procedure TVCFormulaOne.Set_FormattedTextRC;
  1816. const
  1817.   DispInfo: array[0..10] of Byte = ($13,$01,$00,$00,$00,$04,$03,$00,$03,$03,$08);
  1818. begin
  1819.   InvokeMethod(DispInfo, nil);
  1820. end;
  1821.  
  1822. function TVCFormulaOne.Get_FormulaRC;
  1823. const
  1824.   DispInfo: array[0..9] of Byte = ($14,$01,$00,$00,$08,$02,$02,$00,$03,$03);
  1825. begin
  1826.   InvokeMethod(DispInfo, @Result);
  1827. end;
  1828.  
  1829. procedure TVCFormulaOne.Set_FormulaRC;
  1830. const
  1831.   DispInfo: array[0..10] of Byte = ($14,$01,$00,$00,$00,$04,$03,$00,$03,$03,$08);
  1832. begin
  1833.   InvokeMethod(DispInfo, nil);
  1834. end;
  1835.  
  1836. function TVCFormulaOne.Get_LastColForRow;
  1837. const
  1838.   DispInfo: array[0..8] of Byte = ($15,$01,$00,$00,$03,$02,$01,$00,$03);
  1839. begin
  1840.   InvokeMethod(DispInfo, @Result);
  1841. end;
  1842.  
  1843. procedure TVCFormulaOne.Set_LastColForRow;
  1844. const
  1845.   DispInfo: array[0..9] of Byte = ($15,$01,$00,$00,$00,$04,$02,$00,$03,$03);
  1846. begin
  1847.   InvokeMethod(DispInfo, nil);
  1848. end;
  1849.  
  1850. function TVCFormulaOne.Get_LogicalRC;
  1851. const
  1852.   DispInfo: array[0..9] of Byte = ($16,$01,$00,$00,$0B,$02,$02,$00,$03,$03);
  1853. begin
  1854.   InvokeMethod(DispInfo, @Result);
  1855. end;
  1856.  
  1857. procedure TVCFormulaOne.Set_LogicalRC;
  1858. const
  1859.   DispInfo: array[0..10] of Byte = ($16,$01,$00,$00,$00,$04,$03,$00,$03,$03,$0B);
  1860. begin
  1861.   InvokeMethod(DispInfo, nil);
  1862. end;
  1863.  
  1864. function TVCFormulaOne.Get_NumberRC;
  1865. const
  1866.   DispInfo: array[0..9] of Byte = ($17,$01,$00,$00,$05,$02,$02,$00,$03,$03);
  1867. begin
  1868.   InvokeMethod(DispInfo, @Result);
  1869. end;
  1870.  
  1871. procedure TVCFormulaOne.Set_NumberRC;
  1872. const
  1873.   DispInfo: array[0..10] of Byte = ($17,$01,$00,$00,$00,$04,$03,$00,$03,$03,$05);
  1874. begin
  1875.   InvokeMethod(DispInfo, nil);
  1876. end;
  1877.  
  1878. function TVCFormulaOne.Get_RowText;
  1879. const
  1880.   DispInfo: array[0..8] of Byte = ($18,$01,$00,$00,$08,$02,$01,$00,$03);
  1881. begin
  1882.   InvokeMethod(DispInfo, @Result);
  1883. end;
  1884.  
  1885. procedure TVCFormulaOne.Set_RowText;
  1886. const
  1887.   DispInfo: array[0..9] of Byte = ($18,$01,$00,$00,$00,$04,$02,$00,$03,$08);
  1888. begin
  1889.   InvokeMethod(DispInfo, nil);
  1890. end;
  1891.  
  1892. function TVCFormulaOne.Get_TextRC;
  1893. const
  1894.   DispInfo: array[0..9] of Byte = ($19,$01,$00,$00,$08,$02,$02,$00,$03,$03);
  1895. begin
  1896.   InvokeMethod(DispInfo, @Result);
  1897. end;
  1898.  
  1899. procedure TVCFormulaOne.Set_TextRC;
  1900. const
  1901.   DispInfo: array[0..10] of Byte = ($19,$01,$00,$00,$00,$04,$03,$00,$03,$03,$08);
  1902. begin
  1903.   InvokeMethod(DispInfo, nil);
  1904. end;
  1905.  
  1906. function TVCFormulaOne.Get_TypeRC;
  1907. const
  1908.   DispInfo: array[0..9] of Byte = ($1A,$01,$00,$00,$02,$02,$02,$00,$03,$03);
  1909. begin
  1910.   InvokeMethod(DispInfo, @Result);
  1911. end;
  1912.  
  1913. procedure TVCFormulaOne.Set_TypeRC;
  1914. const
  1915.   DispInfo: array[0..10] of Byte = ($1A,$01,$00,$00,$00,$04,$03,$00,$03,$03,$02);
  1916. begin
  1917.   InvokeMethod(DispInfo, nil);
  1918. end;
  1919.  
  1920. function TVCFormulaOne.Get_ColWidth;
  1921. const
  1922.   DispInfo: array[0..8] of Byte = ($1B,$01,$00,$00,$02,$02,$01,$00,$03);
  1923. begin
  1924.   InvokeMethod(DispInfo, @Result);
  1925. end;
  1926.  
  1927. procedure TVCFormulaOne.Set_ColWidth;
  1928. const
  1929.   DispInfo: array[0..9] of Byte = ($1B,$01,$00,$00,$00,$04,$02,$00,$03,$02);
  1930. begin
  1931.   InvokeMethod(DispInfo, nil);
  1932. end;
  1933.  
  1934. function TVCFormulaOne.Get_RowHeight;
  1935. const
  1936.   DispInfo: array[0..8] of Byte = ($1C,$01,$00,$00,$02,$02,$01,$00,$03);
  1937. begin
  1938.   InvokeMethod(DispInfo, @Result);
  1939. end;
  1940.  
  1941. procedure TVCFormulaOne.Set_RowHeight;
  1942. const
  1943.   DispInfo: array[0..9] of Byte = ($1C,$01,$00,$00,$00,$04,$02,$00,$03,$02);
  1944. begin
  1945.   InvokeMethod(DispInfo, nil);
  1946. end;
  1947.  
  1948. function TVCFormulaOne.Get_DefinedNameByIndex;
  1949. const
  1950.   DispInfo: array[0..8] of Byte = ($1D,$01,$00,$00,$08,$02,$01,$00,$03);
  1951. begin
  1952.   InvokeMethod(DispInfo, @Result);
  1953. end;
  1954.  
  1955. procedure TVCFormulaOne.Set_DefinedNameByIndex;
  1956. const
  1957.   DispInfo: array[0..9] of Byte = ($1D,$01,$00,$00,$00,$04,$02,$00,$03,$08);
  1958. begin
  1959.   InvokeMethod(DispInfo, nil);
  1960. end;
  1961.  
  1962. function TVCFormulaOne.Get_SheetName;
  1963. const
  1964.   DispInfo: array[0..8] of Byte = ($1E,$01,$00,$00,$08,$02,$01,$00,$03);
  1965. begin
  1966.   InvokeMethod(DispInfo, @Result);
  1967. end;
  1968.  
  1969. procedure TVCFormulaOne.Set_SheetName;
  1970. const
  1971.   DispInfo: array[0..9] of Byte = ($1E,$01,$00,$00,$00,$04,$02,$00,$03,$08);
  1972. begin
  1973.   InvokeMethod(DispInfo, nil);
  1974. end;
  1975.  
  1976. function TVCFormulaOne.Get_PaletteEntry;
  1977. const
  1978.   DispInfo: array[0..8] of Byte = ($1F,$01,$00,$00,$03,$02,$01,$00,$03);
  1979. begin
  1980.   InvokeMethod(DispInfo, @Result);
  1981. end;
  1982.  
  1983. procedure TVCFormulaOne.Set_PaletteEntry;
  1984. const
  1985.   DispInfo: array[0..9] of Byte = ($1F,$01,$00,$00,$00,$04,$02,$00,$03,$03);
  1986. begin
  1987.   InvokeMethod(DispInfo, nil);
  1988. end;
  1989.  
  1990. function TVCFormulaOne.Get_ColWidthTwips;
  1991. const
  1992.   DispInfo: array[0..8] of Byte = ($20,$01,$00,$00,$02,$02,$01,$00,$03);
  1993. begin
  1994.   InvokeMethod(DispInfo, @Result);
  1995. end;
  1996.  
  1997. procedure TVCFormulaOne.Set_ColWidthTwips;
  1998. const
  1999.   DispInfo: array[0..9] of Byte = ($20,$01,$00,$00,$00,$04,$02,$00,$03,$02);
  2000. begin
  2001.   InvokeMethod(DispInfo, nil);
  2002. end;
  2003.  
  2004. function TVCFormulaOne.Get_ObjItem;
  2005. const
  2006.   DispInfo: array[0..9] of Byte = ($21,$01,$00,$00,$08,$02,$02,$00,$03,$02);
  2007. begin
  2008.   InvokeMethod(DispInfo, @Result);
  2009. end;
  2010.  
  2011. procedure TVCFormulaOne.Set_ObjItem;
  2012. const
  2013.   DispInfo: array[0..10] of Byte = ($21,$01,$00,$00,$00,$04,$03,$00,$03,$02,$08);
  2014. begin
  2015.   InvokeMethod(DispInfo, nil);
  2016. end;
  2017.  
  2018. function TVCFormulaOne.Get_ObjItems;
  2019. const
  2020.   DispInfo: array[0..8] of Byte = ($22,$01,$00,$00,$08,$02,$01,$00,$03);
  2021. begin
  2022.   InvokeMethod(DispInfo, @Result);
  2023. end;
  2024.  
  2025. procedure TVCFormulaOne.Set_ObjItems;
  2026. const
  2027.   DispInfo: array[0..9] of Byte = ($22,$01,$00,$00,$00,$04,$02,$00,$03,$08);
  2028. begin
  2029.   InvokeMethod(DispInfo, nil);
  2030. end;
  2031.  
  2032. function TVCFormulaOne.Get_ObjName;
  2033. const
  2034.   DispInfo: array[0..8] of Byte = ($23,$01,$00,$00,$08,$02,$01,$00,$03);
  2035. begin
  2036.   InvokeMethod(DispInfo, @Result);
  2037. end;
  2038.  
  2039. procedure TVCFormulaOne.Set_ObjName;
  2040. const
  2041.   DispInfo: array[0..9] of Byte = ($23,$01,$00,$00,$00,$04,$02,$00,$03,$08);
  2042. begin
  2043.   InvokeMethod(DispInfo, nil);
  2044. end;
  2045.  
  2046. function TVCFormulaOne.Get_ObjText;
  2047. const
  2048.   DispInfo: array[0..8] of Byte = ($24,$01,$00,$00,$08,$02,$01,$00,$03);
  2049. begin
  2050.   InvokeMethod(DispInfo, @Result);
  2051. end;
  2052.  
  2053. procedure TVCFormulaOne.Set_ObjText;
  2054. const
  2055.   DispInfo: array[0..9] of Byte = ($24,$01,$00,$00,$00,$04,$02,$00,$03,$08);
  2056. begin
  2057.   InvokeMethod(DispInfo, nil);
  2058. end;
  2059.  
  2060. function TVCFormulaOne.Get_ObjValue;
  2061. const
  2062.   DispInfo: array[0..8] of Byte = ($25,$01,$00,$00,$02,$02,$01,$00,$03);
  2063. begin
  2064.   InvokeMethod(DispInfo, @Result);
  2065. end;
  2066.  
  2067. procedure TVCFormulaOne.Set_ObjValue;
  2068. const
  2069.   DispInfo: array[0..9] of Byte = ($25,$01,$00,$00,$00,$04,$02,$00,$03,$02);
  2070. begin
  2071.   InvokeMethod(DispInfo, nil);
  2072. end;
  2073.  
  2074. function TVCFormulaOne.Get_ObjVisible;
  2075. const
  2076.   DispInfo: array[0..8] of Byte = ($26,$01,$00,$00,$0B,$02,$01,$00,$03);
  2077. begin
  2078.   InvokeMethod(DispInfo, @Result);
  2079. end;
  2080.  
  2081. procedure TVCFormulaOne.Set_ObjVisible;
  2082. const
  2083.   DispInfo: array[0..9] of Byte = ($26,$01,$00,$00,$00,$04,$02,$00,$03,$0B);
  2084. begin
  2085.   InvokeMethod(DispInfo, nil);
  2086. end;
  2087.  
  2088. function TVCFormulaOne.Get_AutoFillItems;
  2089. const
  2090.   DispInfo: array[0..8] of Byte = ($27,$01,$00,$00,$08,$02,$01,$00,$02);
  2091. begin
  2092.   InvokeMethod(DispInfo, @Result);
  2093. end;
  2094.  
  2095. procedure TVCFormulaOne.Set_AutoFillItems;
  2096. const
  2097.   DispInfo: array[0..9] of Byte = ($27,$01,$00,$00,$00,$04,$02,$00,$02,$08);
  2098. begin
  2099.   InvokeMethod(DispInfo, nil);
  2100. end;
  2101.  
  2102. function TVCFormulaOne.Get_ColHidden;
  2103. const
  2104.   DispInfo: array[0..8] of Byte = ($28,$01,$00,$00,$0B,$02,$01,$00,$03);
  2105. begin
  2106.   InvokeMethod(DispInfo, @Result);
  2107. end;
  2108.  
  2109. procedure TVCFormulaOne.Set_ColHidden;
  2110. const
  2111.   DispInfo: array[0..9] of Byte = ($28,$01,$00,$00,$00,$04,$02,$00,$03,$0B);
  2112. begin
  2113.   InvokeMethod(DispInfo, nil);
  2114. end;
  2115.  
  2116. function TVCFormulaOne.Get_RowHidden;
  2117. const
  2118.   DispInfo: array[0..8] of Byte = ($29,$01,$00,$00,$0B,$02,$01,$00,$03);
  2119. begin
  2120.   InvokeMethod(DispInfo, @Result);
  2121. end;
  2122.  
  2123. procedure TVCFormulaOne.Set_RowHidden;
  2124. const
  2125.   DispInfo: array[0..9] of Byte = ($29,$01,$00,$00,$00,$04,$02,$00,$03,$0B);
  2126. begin
  2127.   InvokeMethod(DispInfo, nil);
  2128. end;
  2129.  
  2130. function TVCFormulaOne.Get_SheetSelected;
  2131. const
  2132.   DispInfo: array[0..8] of Byte = ($2A,$01,$00,$00,$0B,$02,$01,$00,$03);
  2133. begin
  2134.   InvokeMethod(DispInfo, @Result);
  2135. end;
  2136.  
  2137. procedure TVCFormulaOne.Set_SheetSelected;
  2138. const
  2139.   DispInfo: array[0..9] of Byte = ($2A,$01,$00,$00,$00,$04,$02,$00,$03,$0B);
  2140. begin
  2141.   InvokeMethod(DispInfo, nil);
  2142. end;
  2143.  
  2144. procedure Register;
  2145. begin
  2146.   RegisterComponents('ActiveX', [TVCFormulaOne]);
  2147. end;
  2148.  
  2149. end.
  2150.