Versions Compared

Old Version 1

changes.mady.by.user SRP Support

Saved on

compared with

New Version Current

changes.mady.by.user Corby Nagel

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

The dialog box passes the data the user entered (such as the date range) back to the calling window by calling the End_Dialog subroutine in its CLOSE event.  Suppose Suppose the dialog box contains two edit line controls (START_DATE and END_DATE) which contain the date range.  The The code below will pass the values back to the calling window:

 

 

Code Block
declare function get_property, set_property, send_event
declare subroutine end_dialog
 
$insert Ctrl_Property_Equates
 
ctrls = @window: '.BEGIN_DATE' : @rm : @window : '.END_DATE'
props =     DEFPROP$           : @rm :    DEFPROP$
RtnData = Get_Property(Ctrls, props)
 
convert @rm to @fm in RtnData
*
*  now return the data
*
End_Dialog( 'COLLECTORWINDOW', RtnData)

...

 
The text (the default property of an edit line) is stored in RtnData as a record-mark delimited variable, through the Get_Property() call.  After After converting the record marks to field marks, RtnData can be passed back to the calling window by calling the End_Dialog subroutine.