$PBExportHeader$w_netapi.srw forward global type w_netapi from Window end type type tab_1 from u_tab_main within w_netapi end type type cb_close from commandbutton within w_netapi end type type tab_1 from u_tab_main within w_netapi end type end forward global type w_netapi from Window int X=1189 int Y=556 int Width=2898 int Height=1584 boolean TitleBar=true string Title="NetAPI Example App" long BackColor=79416533 boolean ControlMenu=true tab_1 tab_1 cb_close cb_close end type global w_netapi w_netapi type variables n_netapi in_netapi end variables on w_netapi.create this.tab_1=create tab_1 this.cb_close=create cb_close this.Control[]={this.tab_1,& this.cb_close} end on on w_netapi.destroy destroy(this.tab_1) destroy(this.cb_close) end on type tab_1 from u_tab_main within w_netapi int X=37 int Y=32 end type type cb_close from commandbutton within w_netapi int X=2523 int Y=1344 int Width=297 int Height=100 int TabOrder=20 string Text="Close" boolean Cancel=true int TextSize=-8 int Weight=400 string FaceName="Arial" FontCharSet FontCharSet=Ansi! FontFamily FontFamily=Swiss! FontPitch FontPitch=Variable! end type event clicked;Close(Parent) end event
File: w_netapi.srw
Size: 1242
Date: Mon, 31 Dec 2018 21:14:38 +0100
Size: 1242
Date: Mon, 31 Dec 2018 21:14:38 +0100
- Window w_netapi(srw)
- u_tab_main tab_1
- commandbutton cb_close