Q5/ws_objects/Ew_publ903.pbl.src/w_mface_base.srw

$PBExportHeader$w_mface_base.srw
forward
global type w_mface_base from window
end type
end forward

global type w_mface_base from window
integer x = 823
integer y = 360
integer width = 2016
integer height = 1208
boolean titlebar = true
string title = "Untitled"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 16777215
end type
global w_mface_base w_mface_base

type variables
uo_picture_m io_cont
end variables

event mousemove;IF Not IsNull(io_cont) THEN
	
	IF io_cont.PictureName <> io_cont.is_picture THEN
		io_cont.PictureName = io_cont.is_picture
		//setnull(io_cont)
	END IF
END IF

uo_text_m po
Long ll_no,i
ll_no = UpperBound(This.Control[])
TRY
	FOR i = 1 To ll_no
		IF This.Control[i].TypeOf() = statictext! THEN
			po = This.Control[i]
			IF po.Text <> '' And po.TextColor <> po.colour_leave THEN
				po.TextColor = po.colour_leave
				IF po.ifonraise = 0 Or po.Border = True THEN
					po.Border = False
				END IF
			END IF
		END IF
	NEXT
Catch(RuntimeError e)
//	THROW e
END TRY




end event

on w_mface_base.create
end on

on w_mface_base.destroy
end on

event open;environment   exerun_env 
GetEnvironment(exerun_env ) 
this.Move ( (PixelsToUnits(exerun_env.screenwidth, XPixelsToUnits!) - this.Width)/2,&
	(PixelsToUnits(exerun_env.screenheight, XPixelsToUnits!) - this.Height - 400 )/2) //

setnull(io_cont)
end event