Progress
External Program
Interfaces


Interacting Outside Of Event Procedures

Finally, this is a simple example of where you might reference an ActiveX control from a procedure other than an event procedure. The displayCustomer procedure retrieves a changed setting of the CSSpin Value property and displays it as the current record position for any event that changes that position:

/* **********************  Internal Procedures  *********************** */
            .
            .
            .
PROCEDURE displayCustomer :
/*------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------*/

    Record_Count = chCSSpin:Value.
    DISPLAY sports.Customer.name sports.Customer.Address 
        sports.Customer.Address2 sports.Customer.Balance 
        sports.Customer.City sports.Customer.Comments 
        sports.Customer.Contact sports.Customer.Country 
        sports.Customer.Credit-Limit sports.Customer.Cust-Num 
        sports.Customer.Discount sports.Customer.Postal-Code 
        sports.Customer.Sales-Rep sports.Customer.Terms 
        sports.Customer.state sports.Customer.phone 
         Record_Count
    WITH FRAME Dialog-Frame.
    
END PROCEDURE. 

Other interactions are possible within triggers for control-frame events and by passing the control handle to external and persistent procedures.


Copyright © 2004 Progress Software Corporation
www.progress.com
Voice: (781) 280-4000
Fax: (781) 280-4095