$PBExportHeader$w_r_deviation.srw $PBExportComments$The response window used to specify the deviation value forward global type w_r_deviation from w_response end type type st_1 from u_st within w_r_deviation end type type em_deviation from u_em within w_r_deviation end type type cb_ok from u_cb within w_r_deviation end type type cb_cancel from u_cb within w_r_deviation end type type st_2 from u_st within w_r_deviation end type end forward global type w_r_deviation from w_response int X=850 int Y=700 int Width=1111 int Height=520 boolean TitleBar=true string Title="Specifiy Deviation" string Icon="deviate.ico" st_1 st_1 em_deviation em_deviation cb_ok cb_ok cb_cancel cb_cancel st_2 st_2 end type global w_r_deviation w_r_deviation on w_r_deviation.create int iCurrent call super::create this.st_1=create st_1 this.em_deviation=create em_deviation this.cb_ok=create cb_ok this.cb_cancel=create cb_cancel this.st_2=create st_2 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.st_1 this.Control[iCurrent+2]=this.em_deviation this.Control[iCurrent+3]=this.cb_ok this.Control[iCurrent+4]=this.cb_cancel this.Control[iCurrent+5]=this.st_2 end on on w_r_deviation.destroy call super::destroy destroy(this.st_1) destroy(this.em_deviation) destroy(this.cb_ok) destroy(this.cb_cancel) destroy(this.st_2) end on event open;call w_response::open;// Check to see if a value has been passed in IF message.DoubleParm > 0 THEN em_deviation.text = String(message.DoubleParm) END IF end event type st_1 from u_st within w_r_deviation int X=73 int Y=172 int Width=453 string Text="Analyzer Deviation: " end type type em_deviation from u_em within w_r_deviation int X=521 int Y=164 int Width=279 int TabOrder=10 string Mask="00.00%" boolean Spin=true string DisplayData="H" double Increment=0 string MinMax="0~~99" string Text="15.00" end type type cb_ok from u_cb within w_r_deviation int X=283 int Y=300 int TabOrder=20 string Text="OK" boolean Default=true end type event clicked;call u_cb::clicked;// Close the window with the value from the deviaiton field / 100 (for %) decimal ldc_deviation SetPointer(HourGlass!) em_deviation.GetData(ldc_deviation) CloseWithReturn(parent, ldc_deviation) end event type cb_cancel from u_cb within w_r_deviation int X=663 int Y=300 int TabOrder=30 boolean BringToTop=true string Text="Cancel" boolean Cancel=true end type event clicked;call u_cb::clicked;SetPointer(HourGlass!) Close(Parent) end event type st_2 from u_st within w_r_deviation int X=23 int Y=12 int Width=1047 int Height=108 boolean BringToTop=true string Text="Please specify the deviation percent to be used by the analyzer." long BackColor=79741120 end type
File: w_r_deviation.srw
Size: 2810
Date: Tue, 22 Jan 2008 23:25:25 +0100
Size: 2810
Date: Tue, 22 Jan 2008 23:25:25 +0100
- w_response w_r_deviation(srw)
- u_st st_1
- u_em em_deviation
- u_cb cb_ok
- u_cb cb_cancel
- u_st st_2