VS:InsertEnhancedPullDownMenuItem

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

DEPRECATED after Vectorworks2012. See InsertEnhanPullDownMenuItem for a replacement.

Inserts the item into the specified Layout Manager created with CreateEnhancedPullDownMenu

FUNCTION InsertEnhancedPullDownMenuItem(
                     dialogID      :LONGINT;
                     componentID   :LONGINT;
                     strName       :STRING;
                     iIconID       :INTEGER) : INTEGER;

def vs.InsertEnhancedPullDownMenuItem(dialogID, componentID, strName, iIconID):
    return INTEGER

Parameters

dialogID		LONGINT
componentID		LONGINT
strName		STRING
iIconID		INTEGER

Example

VectorScript

PROCEDURE CreateControlsTest;
CONST

    { control IDs}
    kCreateEnhancedPullDownMenu          = 20;

VAR
    dialog            :INTEGER;

PROCEDURE Dialog_Handler(VAR item :LONGINT; data :LONGINT);
VAR
result : INTEGER;
            
BEGIN
    CASE item OF
        SetupDialogC: BEGIN

            result := InsertEnhancedPullDownMenuItem( dialog, kCreateEnhancedPullDownMenu, 'kCreateEnhancedPullDownMenu choice', 128 );

        END;
    END;
END;


BEGIN
    dialog := CreateLayout( 'InsertEnhancedPullDownMenuItem Test', TRUE, 'OK', 'Cancel' );

    {create controls}
    CreateEnhancedPullDownMenu( dialog, kCreateEnhancedPullDownMenu, 24, TRUE );

    {set relations}
    SetFirstLayoutItem( dialog, kCreateEnhancedPullDownMenu );

    IF RunLayoutDialog( dialog, Dialog_Handler ) = 1 then BEGIN
    END;

END;
RUN( CreateControlsTest );

Python

Version

Availability: from VectorWorks12.5

Deprecated: Vectorworks 2012