[RBG7-L] - Sample Applications - Custom Popup Menus in RBG75/RBG8

[A. Razzak Memon]

To All R:BASE 7.5 for Windows Users:

R:Presentation to demonstrate the use of "Custom Popup Menus" in
R:BASE 7.5 for Windows (Build: 7.5.13.30725 or higher) is now
available.

Sample Applications: http://www.razzak.com/sampleapplications

Application: Custom Popup Menus (Item 033)

Instructions to use this application:

01. Copy the following files into the RRBYW10 sample directory:

    Default Directory: C:\RBTI\RBG75\Samples\RRBYW10

    Files:

    . Customers.FRM
    . Customers.LOB
    . CustomPopupMenus.FRM
    . CustomPopupMenus.LOB
    . CustomPopupSplash.FRM
    . CustomPopupSplash.LOB
    . CustomPopupMenus.RMD

02. Start R:BASE 7.5 for Windows (Build: 7.5.13.30725 or higher)

03. CONNECT RRBYW10

04. At the R> Prompt:

    RUN CustomPopupMenus.FRM
    RUN CustomPopupSplash.FRM
    RUN Customers.FRM

    This will load two new forms (CustomPopupMenus,CustomPopupSplash)
    based on dummy FormTable and replace the existing Customers form
    in RRBYW10 sample database.

05. At the R> Prompt:

    RUN CustomPopupMenus.RMD

    Then sit back, relax and enjoy the R:Presentation!

Notes:

01. This presentation will demonstrate the use of the *new* option
    of designing Custom Popup Menus for DB and Variable Edit Controls
    in R:BASE 7.5 for Windows (Build: 7.5.13.30725 and higher).

    Five different types of Pop-up menus are defined to illustrate a
    variety of options.

    Simply double-click on CustID Edit Box, answer any question if
    asked, watch the Custom Pop-up Menu, select the item from the
    list, review the Customer data, close the Customer form and click
    on next CustID to view the next option.

02. You MUST have the RRBYW10 (sample database) included with RBG75
    and the latest update of RBG75 to enjoy this R:Presentation!

03. Before you dig into the form (CustomPopupMenus) in form designer,
    make sure to pre-define the following global variables:

    SET VAR vCustID INTEGER = NULL
    SET VAR vCustIDa INTEGER = NULL
    SET VAR vCompanya TEXT = NULL
    SET VAR vCustIDb INTEGER = NULL
    SET VAR vCompanyb TEXT = NULL
    SET VAR vCustIDc INTEGER = NULL
    SET VAR vCompanyc TEXT = NULL
    SET VAR vCustIDd INTEGER = NULL
    SET VAR vCompanyd TEXT = NULL
    SET VAR vCustIDe INTEGER = NULL
    SET VAR vCompanye TEXT = NULL
    SET VAR vWhichOption INTEGER = NULL
    SET VAR vCustID INTEGER = NULL

Enjoy and make sure to have fun!

Very Best R:egards,

Razzak.