Delphi 2004 EIntfCastError, Block.Count

Discussion in 'AutoCAD' started by PhilC, Dec 17, 2003.

  1. PhilC

    PhilC Guest

    Hi,

    I'm getting a couple of troubles upgrading from 2002 to 2004 in Delphi 6.

    I've extract the latest TLB for 2004, but I still get two problems.

    1st)
    If, I'm getting the following message:

    Acad.exe raided exception class EIntfCastError with message "Interface
    not supported".

    This message appears when my Delphi (Com) is about to get initialized.

    2nd)
    If I ignore the message (Remove stop on exception) I get an exception
    error (0000FFFF) when I do the following command.

    Activedocument.ActiveLayout.Block.Count

    The count part is failing.

    Note, this application works 100% in 2002.

    Does anyone have any suggestions?

    Thank you,
     
    PhilC, Dec 17, 2003
    #1
  2. PhilC

    PhilC Guest

    Actually, I just figured out what was causing the first message.
    Had another COM object that wasn't upgraded yet.

    But I'm still having problem with the block.count.
     
    PhilC, Dec 17, 2003
    #2
  3. PhilC

    Tony Tanzillo Guest

    Can you show the code?
     
    Tony Tanzillo, Dec 18, 2003
    #3
  4. PhilC

    Tony Tanzillo Guest

    You need to provide some more info.

    1. Is this an in-process ActiveX server (DLL) ?

    2. Can you show the code that fails, including
    the variable declarations?

    I just recently discovered that AutoCAD MAP 5 will
    deliberately fail when attempting to get a pointer
    to the AutoCADMapApplication object (via a call to
    AcadApplication.GetInterfaceObject), when running
    in an out-of-process ActiveX server.

    However, the same exact code works when it is called
    from within AutoCAD's process space.

    It appears that Autodesk has gone off the deep end
    with its 'security system', because there's no other
    rational explaination for returning E_NOINTERFACE
    only when the client/caller is in another process.
     
    Tony Tanzillo, Dec 18, 2003
    #4
  5. PhilC

    PhilC Guest

    I've just found something very interesting.....

    The problem is in the TLB. I should say, the TLB.PAS file that delphi
    created.

    If I use Delphi 6 to create the TLB.PAS file from (C:\Program
    Files\Common Files\Autodesk Shared\acadx16enu.tlb) The pas file is
    totally incorrect, I can't even compile, I get things that are
    misplaced. Example IAcadModelspace = IAcadBlock and IAcadLayout =
    IAcadPlotSettings.

    If I use Delphi 7 to create the pas, I can compile, except the the
    IAcadLayout isn't defined correctly. Which explains my problem with the
    count. For some reason, delphi created 71 GhostMethods, they look like
    this: procedure GhostMethod_IAcadLayout_280_71; safecall;

    If I use Delphi 5 to create the pas file, everything seems to WORK! At
    least so far. I need to double check all my commands of course.


    I'm scratching my head and my @#$ trying to figure out why in the world
    the pas file isn't created the same in all 3 Delphis.

    What did you use to create your pas file? And can I have it.. I want to
    check against someone else the result. Do a simple file compare.


    My Email .


    Thanks again,
     
    PhilC, Dec 18, 2003
    #5
  6. PhilC

    Tony Tanzillo Guest

    You're right about the mixup with AcadBlock and AcadModelSpace.

    The problem occurs with interfaces that have no
    methods or properties. Not sure whether there's
    a fix, but it would mean that you should probably
    use the Delphi 5 generated unit, with the changes
    needed to support Delphi 6+ Variants.
     
    Tony Tanzillo, Dec 18, 2003
    #6
  7. PhilC

    PhilC Guest

    Seems that way.. I've posted this problem in Borland news group.. Maybe
    they will have an Idea.

    Mean while. Maybe you or I should create another message in the
    newsgroup with Key Words TLB DELPHI AUTOCAD 2004 IMPORT . So that
    other will be able to find this message thread. :) I'm sure this will
    appear again. Unless our messages was enough.

    Thanks for your help.


    Have a nice day.
     
    PhilC, Dec 18, 2003
    #7
  8. PhilC

    PhilC Guest

    Final note.

    Seems that Delphi 7 creates the TLB / PAS file more correctly.

    If you import with Delphi 7, then remove all Ghost Methods, you'll end
    up with the correct file.

    Delphi 5 has a few mistakes. There is a few properties that are
    readonly or writeonly, when they should actually be read-write.

    Delphi 6, is a lost cause.

    So anyone using Delphi with AutoCad 2004, should import the TLB using
    Delphi 7, then clean up the Ghost Methods.

    Sigh...


    Have a nice day.
     
    PhilC, Dec 18, 2003
    #8
  9. PhilC

    Tony Tanzillo Guest

    Can you tell me what properties Delphi 5 marks
    incorrectly?
     
    Tony Tanzillo, Dec 19, 2003
    #9
  10. PhilC

    PhilC Guest

    Theres allot of of them... I hope I have them all listed.

    I'll list the Delphi 5 vs the Delphi 7 in the type. I hope it will be
    clear enough for you.

    I'm only going to list the properties. Also to avoid the amount of
    lines, I'll only display the dispinterface portion. Its easy to read.
    You will notice that Delphi 5 seems to put ReadOnly or WriteOnly on
    these properties. Where Delphi 7 doesn't. For all of these properties,
    Delphi 7 does create a Set and Get procedure in the interface. The list
    was created by doing a file compare.

    I'm assuming that Delphi 7 is corrected. Based on the acadauto.chm
    (help document) that is supplied by AutoDesk.

    I have not actually tested each one.

    -----------------------------------------

    IAcadLayerStateManagerDisp = dispinterface
    ***** Delphi 5
    property Mask[const bsName: WideString]: AcLayerStateMask writeonly
    dispid 1610743809;
    ***** Delphi 7
    property Mask[const bsName: WideString]: AcLayerStateMask dispid
    1610743809;
    *****

    IAcadPlotDisp = dispinterface
    ***** Delphi 5
    property QuietErrorMode: WordBool readonly dispid 1610743809;
    property NumberOfCopies: Integer readonly dispid 1610743811;
    property BatchPlotProgress: WordBool readonly dispid 1610743813;
    ***** Delphi 7
    property QuietErrorMode: WordBool dispid 1610743809;
    property NumberOfCopies: Integer dispid 1610743811;
    property BatchPlotProgress: WordBool dispid 1610743813;
    *****


    IAcadPreferencesFilesDisp = dispinterface
    ***** Delphi 5
    property DriversPath: WideString writeonly dispid 1610743811;
    property MenuFile: WideString writeonly dispid 1610743813;
    property HelpFilePath: WideString writeonly dispid 1610743815;
    property DefaultInternetURL: WideString writeonly dispid 1610743817;
    property TextEditor: WideString writeonly dispid 1610743821;
    property MainDictionary: WideString writeonly dispid 1610743823;
    property CustomDictionary: WideString writeonly dispid 1610743825;
    property AltFontFile: WideString writeonly dispid 1610743827;
    property FontFileMap: WideString writeonly dispid 1610743829;
    property PrintFile: WideString writeonly dispid 1610743831;
    property PrintSpoolExecutable: WideString writeonly dispid 1610743833;
    property PostScriptPrologFile: WideString writeonly dispid 1610743835;
    property PrintSpoolerPath: WideString writeonly dispid 1610743837;
    property AutoSavePath: WideString writeonly dispid 1610743839;
    property TemplateDwgPath: WideString writeonly dispid 1610743841;
    property LogFilePath: WideString writeonly dispid 1610743843;
    property TempFilePath: WideString writeonly dispid 1610743845;
    property TempXrefPath: WideString writeonly dispid 1610743847;
    property TextureMapPath: WideString writeonly dispid 1610743849;
    property AltTabletMenuFile: WideString writeonly dispid 1610743851;
    property PrinterConfigPath: WideString writeonly dispid 1610743855;
    property PrinterDescPath: WideString writeonly dispid 1610743857;
    property PrinterStyleSheetPath: WideString writeonly dispid 1610743859;
    property WorkspacePath: WideString writeonly dispid 1610743861;
    property ObjectARXPath: WideString writeonly dispid 1610743863;
    property ColorBookPath: WideString writeonly dispid 1610743865;
    property ToolPalettePath: WideString writeonly dispid 1610743867;
    ***** Delphi 7
    property DriversPath: WideString dispid 1610743811;
    property MenuFile: WideString dispid 1610743813;
    property HelpFilePath: WideString dispid 1610743815;
    property DefaultInternetURL: WideString dispid 1610743817;
    property TextEditor: WideString dispid 1610743821;
    property MainDictionary: WideString dispid 1610743823;
    property CustomDictionary: WideString dispid 1610743825;
    property AltFontFile: WideString dispid 1610743827;
    property FontFileMap: WideString dispid 1610743829;
    property PrintFile: WideString dispid 1610743831;
    property PrintSpoolExecutable: WideString dispid 1610743833;
    property PostScriptPrologFile: WideString dispid 1610743835;
    property PrintSpoolerPath: WideString dispid 1610743837;
    property AutoSavePath: WideString dispid 1610743839;
    property TemplateDwgPath: WideString dispid 1610743841;
    property LogFilePath: WideString dispid 1610743843;
    property TempFilePath: WideString dispid 1610743845;
    property TempXrefPath: WideString dispid 1610743847;
    property TextureMapPath: WideString dispid 1610743849;
    property AltTabletMenuFile: WideString dispid 1610743851;
    property PrinterConfigPath: WideString dispid 1610743855;
    property PrinterDescPath: WideString dispid 1610743857;
    property PrinterStyleSheetPath: WideString dispid 1610743859;
    property WorkspacePath: WideString dispid 1610743861;
    property ObjectARXPath: WideString dispid 1610743863;
    property ColorBookPath: WideString dispid 1610743865;
    property ToolPalettePath: WideString dispid 1610743867;
    *****


    IAcadPreferencesDisplayDisp = dispinterface
    ***** Delphi 5
    property LayoutDisplayMargins: WordBool writeonly dispid 1610743809;
    property LayoutDisplayPaper: WordBool writeonly dispid 1610743811;
    property LayoutDisplayPaperShadow: WordBool writeonly dispid
    1610743813;
    property LayoutShowPlotSetup: WordBool writeonly dispid 1610743815;
    property LayoutCreateViewport: WordBool writeonly dispid 1610743817;
    property DisplayScrollBars: WordBool writeonly dispid 1610743819;
    property DisplayScreenMenu: WordBool writeonly dispid 1610743821;
    property CursorSize: SYSINT writeonly dispid 1610743823;
    property DockedVisibleLines: SYSINT writeonly dispid 1610743825;
    property ShowRasterImage: WordBool writeonly dispid 1610743827;
    property GraphicsWinModelBackgrndColor: OLE_COLOR writeonly dispid
    1610743829;
    property ModelCrosshairColor: OLE_COLOR writeonly dispid 1610743831;
    property GraphicsWinLayoutBackgrndColor: OLE_COLOR writeonly dispid
    1610743833;
    property TextWinBackgrndColor: OLE_COLOR writeonly dispid 1610743835;
    property TextWinTextColor: OLE_COLOR writeonly dispid 1610743837;
    property LayoutCrosshairColor: OLE_COLOR writeonly dispid 1610743839;
    property AutoTrackingVecColor: OLE_COLOR writeonly dispid 1610743841;
    property TextFont: WideString writeonly dispid 1610743843;
    property TextFontStyle: AcTextFontStyle writeonly dispid 1610743845;
    property TextFontSize: SYSINT writeonly dispid 1610743847;
    property HistoryLines: SYSINT writeonly dispid 1610743849;
    property MaxAutoCADWindow: WordBool writeonly dispid 1610743851;
    property DisplayLayoutTabs: WordBool writeonly dispid 1610743853;
    property ImageFrameHighlight: WordBool writeonly dispid 1610743855;
    property TrueColorImages: WordBool writeonly dispid 1610743857;
    property XRefFadeIntensity: Integer writeonly dispid 1610743859;
    ***** Delphi 7
    property LayoutDisplayMargins: WordBool dispid 1610743809;
    property LayoutDisplayPaper: WordBool dispid 1610743811;
    property LayoutDisplayPaperShadow: WordBool dispid 1610743813;
    property LayoutShowPlotSetup: WordBool dispid 1610743815;
    property LayoutCreateViewport: WordBool dispid 1610743817;
    property DisplayScrollBars: WordBool dispid 1610743819;
    property DisplayScreenMenu: WordBool dispid 1610743821;
    property CursorSize: SYSINT dispid 1610743823;
    property DockedVisibleLines: SYSINT dispid 1610743825;
    property ShowRasterImage: WordBool dispid 1610743827;
    property GraphicsWinModelBackgrndColor: OLE_COLOR dispid 1610743829;
    property ModelCrosshairColor: OLE_COLOR dispid 1610743831;
    property GraphicsWinLayoutBackgrndColor: OLE_COLOR dispid 1610743833;
    property TextWinBackgrndColor: OLE_COLOR dispid 1610743835;
    property TextWinTextColor: OLE_COLOR dispid 1610743837;
    property LayoutCrosshairColor: OLE_COLOR dispid 1610743839;
    property AutoTrackingVecColor: OLE_COLOR dispid 1610743841;
    property TextFont: WideString dispid 1610743843;
    property TextFontStyle: AcTextFontStyle dispid 1610743845;
    property TextFontSize: SYSINT dispid 1610743847;
    property HistoryLines: SYSINT dispid 1610743849;
    property MaxAutoCADWindow: WordBool dispid 1610743851;
    property DisplayLayoutTabs: WordBool dispid 1610743853;
    property ImageFrameHighlight: WordBool dispid 1610743855;
    property TrueColorImages: WordBool dispid 1610743857;
    property XRefFadeIntensity: Integer dispid 1610743859;
    *****

    IAcadPreferencesOpenSaveDisp = dispinterface
    ***** Delphi 5
    property SavePreviewThumbnail: WordBool writeonly dispid 1610743809;
    property IncrementalSavePercent: SYSINT writeonly dispid 1610743811;
    property AutoSaveInterval: SYSINT writeonly dispid 1610743813;
    property CreateBackup: WordBool writeonly dispid 1610743815;
    property FullCRCValidation: WordBool writeonly dispid 1610743817;
    property LogFileOn: WordBool writeonly dispid 1610743819;
    property TempFileExtension: WideString writeonly dispid 1610743821;
    property XrefDemandLoad: AcXRefDemandLoad writeonly dispid 1610743823;
    property DemandLoadARXApp: AcARXDemandLoad writeonly dispid 1610743825;
    property ProxyImage: AcProxyImage writeonly dispid 1610743827;
    property ShowProxyDialogBox: WordBool writeonly dispid 1610743829;
    property AutoAudit: WordBool writeonly dispid 1610743831;
    property SaveAsType: AcSaveAsType writeonly dispid 1610743833;
    ***** Delphi 7
    property SavePreviewThumbnail: WordBool dispid 1610743809;
    property IncrementalSavePercent: SYSINT dispid 1610743811;
    property AutoSaveInterval: SYSINT dispid 1610743813;
    property CreateBackup: WordBool dispid 1610743815;
    property FullCRCValidation: WordBool dispid 1610743817;
    property LogFileOn: WordBool dispid 1610743819;
    property TempFileExtension: WideString dispid 1610743821;
    property XrefDemandLoad: AcXRefDemandLoad dispid 1610743823;
    property DemandLoadARXApp: AcARXDemandLoad dispid 1610743825;
    property ProxyImage: AcProxyImage dispid 1610743827;
    property ShowProxyDialogBox: WordBool dispid 1610743829;
    property AutoAudit: WordBool dispid 1610743831;
    property SaveAsType: AcSaveAsType dispid 1610743833;
    *****

    IAcadPreferencesOutputDisp = dispinterface
    ***** Delphi 5
    property DefaultOutputDevice: WideString writeonly dispid 1610743809;
    property PrinterSpoolAlert: AcPrinterSpoolAlert writeonly dispid
    1610743811;
    property PrinterPaperSizeAlert: WordBool writeonly dispid 1610743813;
    property PlotLegacy: WordBool writeonly dispid 1610743815;
    property OLEQuality: AcOleQuality writeonly dispid 1610743817;
    property UseLastPlotSettings: WordBool writeonly dispid 1610743819;
    property PlotPolicy: AcPlotPolicy writeonly dispid 1610743821;
    property DefaultPlotStyleTable: WideString writeonly dispid 1610743823;
    property DefaultPlotStyleForObjects: WideString writeonly dispid
    1610743825;
    property DefaultPlotStyleForLayer: WideString writeonly dispid
    1610743827;
    ***** Delphi 7
    property DefaultOutputDevice: WideString dispid 1610743809;
    property PrinterSpoolAlert: AcPrinterSpoolAlert dispid 1610743811;
    property PrinterPaperSizeAlert: WordBool dispid 1610743813;
    property PlotLegacy: WordBool dispid 1610743815;
    property OLEQuality: AcOleQuality dispid 1610743817;
    property UseLastPlotSettings: WordBool dispid 1610743819;
    property PlotPolicy: AcPlotPolicy dispid 1610743821;
    property DefaultPlotStyleTable: WideString dispid 1610743823;
    property DefaultPlotStyleForObjects: WideString dispid 1610743825;
    property DefaultPlotStyleForLayer: WideString dispid 1610743827;
    *****


    IAcadPreferencesSystemDisp = dispinterface
    ***** Delphi 5
    property SingleDocumentMode: WordBool writeonly dispid 1610743809;
    property DisplayOLEScale: WordBool writeonly dispid 1610743811;
    property StoreSQLIndex: WordBool writeonly dispid 1610743813;
    property TablesReadOnly: WordBool writeonly dispid 1610743815;
    property EnableStartupDialog: WordBool writeonly dispid 1610743817;
    property BeepOnError: WordBool writeonly dispid 1610743819;
    property ShowWarningMessages: WordBool writeonly dispid 1610743821;
    property LoadAcadLspInAllDocuments: WordBool writeonly dispid
    1610743823;
    ***** Delphi 7
    property SingleDocumentMode: WordBool dispid 1610743809;
    property DisplayOLEScale: WordBool dispid 1610743811;
    property StoreSQLIndex: WordBool dispid 1610743813;
    property TablesReadOnly: WordBool dispid 1610743815;
    property EnableStartupDialog: WordBool dispid 1610743817;
    property BeepOnError: WordBool dispid 1610743819;
    property ShowWarningMessages: WordBool dispid 1610743821;
    property LoadAcadLspInAllDocuments: WordBool dispid 1610743823;
    *****

    IAcadPreferencesUserDisp = dispinterface
    ***** Delphi 5
    property KeyboardAccelerator: AcKeyboardAccelerator writeonly
    dispid 1610743809;
    property KeyboardPriority: AcKeyboardPriority writeonly dispid
    1610743811;
    property HyperlinkDisplayCursor: WordBool writeonly dispid 1610743813;
    property HyperlinkDisplayTooltip: WordBool writeonly dispid 1610743815;
    property ADCInsertUnitsDefaultSource: AcInsertUnits writeonly
    dispid 1610743817;
    property ADCInsertUnitsDefaultTarget: AcInsertUnits writeonly
    dispid 1610743819;
    property ShortCutMenuDisplay: WordBool writeonly dispid 1610743821;
    property SCMDefaultMode: AcDrawingAreaSCMDefault writeonly dispid
    1610743823;
    property SCMEditMode: AcDrawingAreaSCMEdit writeonly dispid 1610743825;
    property SCMCommandMode: AcDrawingAreaSCMCommand writeonly dispid
    1610743827;
    property SCMTimeMode: WordBool writeonly dispid 1610743829;
    property SCMTimeValue: SYSINT writeonly dispid 1610743831;
    ***** Delphi 7
    property KeyboardAccelerator: AcKeyboardAccelerator dispid 1610743809;
    property KeyboardPriority: AcKeyboardPriority dispid 1610743811;
    property HyperlinkDisplayCursor: WordBool dispid 1610743813;
    property HyperlinkDisplayTooltip: WordBool dispid 1610743815;
    property ADCInsertUnitsDefaultSource: AcInsertUnits dispid 1610743817;
    property ADCInsertUnitsDefaultTarget: AcInsertUnits dispid 1610743819;
    property ShortCutMenuDisplay: WordBool dispid 1610743821;
    property SCMDefaultMode: AcDrawingAreaSCMDefault dispid 1610743823;
    property SCMEditMode: AcDrawingAreaSCMEdit dispid 1610743825;
    property SCMCommandMode: AcDrawingAreaSCMCommand dispid 1610743827;
    property SCMTimeMode: WordBool dispid 1610743829;
    property SCMTimeValue: SYSINT dispid 1610743831;
    *****

    IAcadPreferencesDraftingDisp = dispinterface
    ***** Delphi 5
    property AutoSnapMarker: WordBool writeonly dispid 1610743809;
    property AutoSnapMagnet: WordBool writeonly dispid 1610743811;
    property AutoSnapTooltip: WordBool writeonly dispid 1610743813;
    property AutoSnapAperture: WordBool writeonly dispid 1610743815;
    property AutoSnapApertureSize: Integer writeonly dispid 1610743817;
    property AutoSnapMarkerColor: AcColor writeonly dispid 1610743819;
    property AutoSnapMarkerSize: Integer writeonly dispid 1610743821;
    property PolarTrackingVector: WordBool writeonly dispid 1610743823;
    property FullScreenTrackingVector: WordBool writeonly dispid
    1610743825;
    property AutoTrackTooltip: WordBool writeonly dispid 1610743827;
    property AlignmentPointAcquisition: AcAlignmentPointAcquisition
    writeonly dispid 1610743829;
    ***** Delphi 7
    property AutoSnapMarker: WordBool dispid 1610743809;
    property AutoSnapMagnet: WordBool dispid 1610743811;
    property AutoSnapTooltip: WordBool dispid 1610743813;
    property AutoSnapAperture: WordBool dispid 1610743815;
    property AutoSnapApertureSize: Integer dispid 1610743817;
    property AutoSnapMarkerColor: AcColor dispid 1610743819;
    property AutoSnapMarkerSize: Integer dispid 1610743821;
    property PolarTrackingVector: WordBool dispid 1610743823;
    property FullScreenTrackingVector: WordBool dispid 1610743825;
    property AutoTrackTooltip: WordBool dispid 1610743827;
    property AlignmentPointAcquisition: AcAlignmentPointAcquisition
    dispid 1610743829;
    *****

    IAcadPreferencesSelectionDisp = dispinterface
    ***** Delphi 5
    property PickFirst: WordBool writeonly dispid 1610743809;
    property PickAdd: WordBool writeonly dispid 1610743811;
    property PickDrag: WordBool writeonly dispid 1610743813;
    property PickAuto: WordBool writeonly dispid 1610743815;
    property PickBoxSize: Integer writeonly dispid 1610743817;
    property DisplayGrips: WordBool writeonly dispid 1610743819;
    property DisplayGripsWithinBlocks: WordBool writeonly dispid
    1610743821;
    property GripColorSelected: AcColor writeonly dispid 1610743823;
    property GripColorUnselected: AcColor writeonly dispid 1610743825;
    property GripSize: Integer writeonly dispid 1610743827;
    property PickGroup: WordBool writeonly dispid 1610743829;
    ***** Delphi 7
    property PickFirst: WordBool dispid 1610743809;
    property PickAdd: WordBool dispid 1610743811;
    property PickDrag: WordBool dispid 1610743813;
    property PickAuto: WordBool dispid 1610743815;
    property PickBoxSize: Integer dispid 1610743817;
    property DisplayGrips: WordBool dispid 1610743819;
    property DisplayGripsWithinBlocks: WordBool dispid 1610743821;
    property GripColorSelected: AcColor dispid 1610743823;
    property GripColorUnselected: AcColor dispid 1610743825;
    property GripSize: Integer dispid 1610743827;
    property PickGroup: WordBool dispid 1610743829;
    *****


    IAcadPreferencesProfilesDisp = dispinterface
    ***** Delphi 5
    property ActiveProfile: WideString writeonly dispid 1610743809;
    ***** Delphi 7
    property ActiveProfile: WideString dispid 1610743809;
    *****

    IAcadPopupMenuDisp = dispinterface
    ***** Delphi 5
    property Name: WideString readonly dispid 1610743813;
    ***** Delphi 7
    property Name: WideString dispid 1610743813;
    *****


    IAcadPopupMenuItemDisp = dispinterface
    ***** Delphi 5
    property Label_: WideString readonly dispid 1610743810;
    property TagString: WideString readonly dispid 1610743812;
    property Enable: WordBool readonly dispid 1610743814;
    property Check: WordBool readonly dispid 1610743816;
    property Macro: WideString readonly dispid 1610743820;
    property HelpString: WideString readonly dispid 1610743824;
    procedure Delete; dispid 1610743826;
    property EndSubMenuLevel: SYSINT readonly dispid 1610743827;
    ***** Delphi 7
    property Label_: WideString dispid 1610743810;
    property TagString: WideString dispid 1610743812;
    property Enable: WordBool dispid 1610743814;
    property Check: WordBool dispid 1610743816;
    property Macro: WideString dispid 1610743820;
    property HelpString: WideString dispid 1610743824;
    procedure Delete; dispid 1610743826;
    property EndSubMenuLevel: SYSINT dispid 1610743827;
    *****

    IAcadToolbarsDisp = dispinterface
    ***** Delphi 5
    property LargeButtons: WordBool readonly dispid 1610743813;
    ***** Delphi 7
    property LargeButtons: WordBool dispid 1610743813;
    *****


    IAcadToolbarDisp = dispinterface
    ***** Delphi 5
    property Name: WideString readonly dispid 1610743813;
    property Visible: WordBool readonly dispid 1610743815;
    property left: SYSINT readonly dispid 1610743819;
    property top: SYSINT readonly dispid 1610743821;
    property FloatingRows: SYSINT readonly dispid 1610743825;
    property HelpString: WideString readonly dispid 1610743827;
    ***** Delphi 7
    property Name: WideString dispid 1610743813;
    property Visible: WordBool dispid 1610743815;
    property left: SYSINT dispid 1610743819;
    property top: SYSINT dispid 1610743821;
    property FloatingRows: SYSINT dispid 1610743825;
    property HelpString: WideString dispid 1610743827;
    *****

    IAcadToolbarItemDisp = dispinterface
    ***** Delphi 5
    property Name: WideString readonly dispid 1610743810;
    property TagString: WideString readonly dispid 1610743812;
    property Macro: WideString readonly dispid 1610743816;
    property Index: SYSINT readonly dispid 1610743818;
    property HelpString: WideString readonly dispid 1610743819;
    ***** Delphi 7
    property Name: WideString dispid 1610743810;
    property TagString: WideString dispid 1610743812;
    property Macro: WideString dispid 1610743816;
    property Index: SYSINT readonly dispid 1610743818;
    property HelpString: WideString dispid 1610743819;
    *****
     
    PhilC, Dec 19, 2003
    #10
  11. PhilC

    Tony Tanzillo Guest

    Thanks. I'm going to take a closer look at this in the
    next day or so.




     
    Tony Tanzillo, Dec 19, 2003
    #11
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.
Similar Threads

  1. attext lisp with block count

  2. DELPHI and AutoCAD 2004

  3. include nested blocks in block count

  4. change attribut of a block with DELPHI

  5. Block count

  6. Count Block Objects

  7. How can I integrate "AutoCAD 2004,VBA procedures with DELPHI 7 " ?(Please advice

  8. How to count the number of instances of a block using VBA

Loading...