$PBExportHeader$w_dwresizegrid.srw $PBExportComments$NEW! Demonstrates the new PFC DataWindow Resize Service using a grid style DataWindow. forward global type w_dwresizegrid from w_main end type type dw_1 from u_dw within w_dwresizegrid end type type cb_2 from u_cb within w_dwresizegrid end type end forward global type w_dwresizegrid from w_main int X=233 int Y=652 int Width=2423 int Height=844 boolean TitleBar=true string Title="PFC Example - Resize Grid DataWindow" dw_1 dw_1 cb_2 cb_2 end type global w_dwresizegrid w_dwresizegrid on w_dwresizegrid.create int iCurrent call super::create this.dw_1=create dw_1 this.cb_2=create cb_2 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.dw_1 this.Control[iCurrent+2]=this.cb_2 end on on w_dwresizegrid.destroy call super::destroy destroy(this.dw_1) destroy(this.cb_2) end on event pfc_preopen;////////////////////////////////////////////////////////////////////////////// // // Event: // pfc_preopen // // Arguments: // None // // Returns: // None // // Description: // Initialize the Window Resize Service. // ////////////////////////////////////////////////////////////////////////////// this.of_SetResize(true) this.inv_resize.of_Register(cb_2, inv_resize.FIXEDRIGHTBOTTOM) this.inv_resize.of_Register(dw_1, inv_resize.SCALERIGHTBOTTOM) end event type dw_1 from u_dw within w_dwresizegrid int X=27 int Y=32 int Width=2309 int Height=532 int TabOrder=20 string DataObject="d_ddobjsamp" end type event constructor;////////////////////////////////////////////////////////////////////////////// // // Event: // constructor // // Description: // Initializes the DataWindow. // ////////////////////////////////////////////////////////////////////////////// of_SetTransObject(sqlca) of_SetResize(true) // Args - PercentageX, PercentageY, PercentageWidth, PercentageHeight inv_resize.of_Register('sales_order_order_date', 0, 0, 20, 0) inv_resize.of_Register('customer_lname', 0, 0, 20, 0) inv_resize.of_Register('customer_phone', 0, 0, 20, 0) inv_resize.of_Register('sales_order_items_quantity', 0, 0, 20, 0) inv_resize.of_Register('sales_order_items_prod_id', 0, 0, 20, 0) of_Retrieve() end event event pfc_retrieve;////////////////////////////////////////////////////////////////////////////// // // Event: // pfc_retrieve // // Arguments: // None // // Returns: // long // The number of rows retrieved from the database // -1 if it fails // If any argument's value is NULL, pfc_retrieve returns NULL // // Description: // Retrieves data into the DataWindow. // ////////////////////////////////////////////////////////////////////////////// return this.Retrieve() end event type cb_2 from u_cb within w_dwresizegrid int X=1989 int Y=600 int TabOrder=10 boolean BringToTop=true string Text="Close" boolean Cancel=true end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: // clicked // // Description: // Calls the pfc_close event on the window. // ////////////////////////////////////////////////////////////////////////////// parent.event pfc_close() end event
File: w_dwresizegrid.srw
Size: 3250
Date: Tue, 22 Jan 2008 23:27:02 +0100
Size: 3250
Date: Tue, 22 Jan 2008 23:27:02 +0100
- w_main w_dwresizegrid(srw)
- u_dw dw_1
- u_cb cb_2