USING System.Windows.Forms.* FROM ASSEMBLY. USING Infragistics.Win.UltraWinGrid.* FROM ASSEMBLY. |
OpenEdge GUI
|
OpenEdge GUI for .NET
|
DEFINE VARIABLE C-Win AS HANDLE.
CREATE WINDOW C-Win ASSIGN . . . |
DEFINE VARIABLE custForm
AS CLASS Progress.Windows.Form. custForm = NEW Progress.Windows.Form( ). |
DEFINE QUERY custQry FOR Customer
SCROLLING. . . . |
DEFINE QUERY custQry FOR Customer
SCROLLING. . . . DEFINE VARIABLE custSource AS Progress.Data.BindingSource. custSrc = NEW Progress.Data.BindingSource( custQry ). |
DEFINE BROWSE CustBrowse QUERY
CustQry . . . |
DEFINE VARIABLE custGrid
AS UltraGrid. custGrid = NEW UltraGrid( ). custGrid:DataSource = custSrc. |
DEFINE FRAME Default-Frame CustBrowse . . . ENABLE CustBrowse WITH FRAME Default-Frame IN WINDOW C-Win. |
custForm:Controls:Add( custGrid ).
. . . /* controls enabled by default */ |
VIEW C-Win.
|
custForm:Show( ).
|
WAIT-FOR CLOSE OF THIS-PROCEDURE.
|
WAIT-FOR Application:Run( custForm ).
|
ON WINDOW-CLOSE OF C-Win DO:
APPLY "CLOSE":U TO THIS-PROCEDURE |
custForm:FormClosing:Subscribe(
Form_Closing ). METHOD PRIVATE VOID Form_Closing ( . . . ): . . . END METHOD. |
ON CLOSE OF THIS-PROCEDURE DO:
. . . |
—
|