经典实例---带底图的MDI窗口

谁借莪１个温暖的怀抱￠ 2022-09-28 01:33 83阅读 0赞

一、创建主菜单m\_main。

二、创建主窗口w\_main，并将其属性Window  Type设置为mdihelp!,将MenuName属性设置为m\_main。

三、创建图片窗口w\_pic，并在该窗口中放置picture控件，起名为p\_1；设置w\_pic的属性，把Window  Type的属性设置为popup!，选择visible，其它属性全部取消。

四、编写w\_pic代码：

⑴、定义实例变量（instance variables）

boolean     isfullscreen

integer      oldwidth,oldheight

⑵、编写open()事件：

isfullscreen=true

oldwidth=p\_1.width

oldheight=p\_1.height

⑶、编写resize()事件

if     isfullscreen   then

p\_1.x=0

p\_1.y=0

p\_1.resize(newwidth,newheight)

else

p\_1.resize(oldwidth,odlheight)

integer    ax,ay

ax=(newwidth-oldwidth)/2

if    ax<0    then   ax=0

ay=(newheight-oldheight)/2

if   ay<0     then   ay=0

p\_1.x=ax

p\_1.y=ay

end   if

⑷、定义function:   init(string   as\_picture,boolean  as\_isfullscreen)  return (none)

参数：

access:public            return   type:none                   function name:init

pass  by:value            argument  type:string            argument  name:as\_picture

pass  by:value            argument  type:boolean        argument  name:as\_isfullscreen

代码：

p\_1.originalsize=ture

p\_1.picturename=as\_picture

oldheight=p\_1.height

oldwidth=p\_1.width

p\_1.originalsize=false

this.resize(this.width,this.height)

五、编写w\_main代码：

⑴、定义实例变量（instance variables)

w\_pic   mdipicture

string    mdipicturename

boolean    mdiisfullscreen

⑵、定义function:   setpicture()

参数：

access:public              return  type:(none)                    function   name:setpicture

pass  by:value             argument  type:string               argument   name:as\_picture

pass  by:value             argument  type:boolean           argument   name:as\_isfullscreent

代码：

mdipicturename=as\_picture

mdiisfullscreen=as\_isfullscreen

if    isvalid(mdipicture)    then

mdipicture.init(mdipicturename,mdiisfullscreen)

mdipicture.resize(this.width,this.height)

end  if

⑶、编写resize()事件：

if    isvalid(mdipicture) = false    then

opensheet(mdipicture,this)

mdipicture.init(mdipicturename,mdiisfullscreen)

mdipicture.x=0

mdipicture.y=0

end  if

mdipicture.resize(newwidth,newheight)

六、编写application的open()事件

open(w\_main)

w\_main.setpicture("back.bmp",true)

图1：最小化窗口

[![图片][rurl4_b_4005f55f59916f901007b15c2a3a6865064988e23620ad5718db4de183c1efbeff603abf78633fee81d89bf915b384f3f5d0e43b2e25502fd9ca6638105343c41b72d01a7f3f35a47cf5d2a2e333bec54cf929f9_a_29_b_28]][rurl4_b_4005f55f59916f901007b15c2a3a6865064988e23620ad5718db4de183c1efbeff603abf78633fee81d89bf915b384f3f5d0e43b2e25502fd9ca6638105343c41b72d01a7f3f35a47cf5d2a2e333bec54cf929f9_a_29_b_28]

图2：最大化窗口

[![图片][rurl4_b_4005f55f59916f901007b15c2a3a6865575e6b1dd4287cf899eeb79c86e8c86145a962af5a65c92e3100ccbc2d21fe36d8c5bd82e0862f7155e42321ad5255bb0a9691ca9262dce1b58d4d3aa54dc0534ac134a3_a_28_b_28]][rurl4_b_4005f55f59916f901007b15c2a3a6865575e6b1dd4287cf899eeb79c86e8c86145a962af5a65c92e3100ccbc2d21fe36d8c5bd82e0862f7155e42321ad5255bb0a9691ca9262dce1b58d4d3aa54dc0534ac134a3_a_28_b_28]

[rurl4_b_4005f55f59916f901007b15c2a3a6865064988e23620ad5718db4de183c1efbeff603abf78633fee81d89bf915b384f3f5d0e43b2e25502fd9ca6638105343c41b72d01a7f3f35a47cf5d2a2e333bec54cf929f9_a_29_b_28]: http://b28.photo.store.qq.com/http_imgload.cgi?/rurl4_b=4005f55f59916f901007b15c2a3a6865064988e23620ad5718db4de183c1efbeff603abf78633fee81d89bf915b384f3f5d0e43b2e25502fd9ca6638105343c41b72d01a7f3f35a47cf5d2a2e333bec54cf929f9&a=29&b=28
[rurl4_b_4005f55f59916f901007b15c2a3a6865575e6b1dd4287cf899eeb79c86e8c86145a962af5a65c92e3100ccbc2d21fe36d8c5bd82e0862f7155e42321ad5255bb0a9691ca9262dce1b58d4d3aa54dc0534ac134a3_a_28_b_28]: http://b28.photo.store.qq.com/http_imgload.cgi?/rurl4_b=4005f55f59916f901007b15c2a3a6865575e6b1dd4287cf899eeb79c86e8c86145a962af5a65c92e3100ccbc2d21fe36d8c5bd82e0862f7155e42321ad5255bb0a9691ca9262dce1b58d4d3aa54dc0534ac134a3&a=28&b=28