求源码（PB 9)PB状态栏多栏

[hjj841020]

急!!!!谢谢那位高手能够无私奉献~``要求就是能把状态栏分成多栏，栏和栏之间有分割线，主窗口中间是下凹的（象MDIHELP这种）
我的邮箱是[e-mail]

[ribut9225]

偶是自己做的
以前试过两个方案
一、用一个dw
二、用N个SLE控件放在MDI窗口中

[PowerSoft-001]

把以下代码示例放到文本文件再改后缀名为：.srw再导入pb9中就行。

forward
global type w_main from window
end type
type mdi_1 from mdiclient within w_main
end type
type dw_status_bar from datawindow within w_main
end type
end forward

global type w_main from window
integer width = 3328
integer height = 2048
boolean titlebar = true
string title = "油品管理信息系统－－防伪税控接口软件"
string menuname = "main_menu"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
windowtype windowtype = mdi!
windowstate windowstate = maximized!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
mdi_1 mdi_1
dw_status_bar dw_status_bar
end type
global w_main w_main

on w_main.create
if this.MenuName = "main_menu" then this.MenuID = create main_menu
this.mdi_1=create mdi_1
this.dw_status_bar=create dw_status_bar
this.Control[]={this.mdi_1,&
this.dw_status_bar}
end on

on w_main.destroy
if IsValid(MenuID) then destroy(MenuID)
destroy(this.mdi_1)
destroy(this.dw_status_bar)
end on

event open;//将状态条中的 st_process设为不可见，保存它的宽度到st_width中。
dw_status_bar.modify('st_process.background.mode="1" st_process.background.color="536870912"')
dw_status_bar.modify('st_width.text="'+dw_status_bar.describe('st_process.width')+'"')


dw_status_bar.modify('st_unitname.text="'+'软件版本：1.0 制作：信息部'+'"')
//dw_status_bar.setitem(1,'user','北极星工作室')

end event

event resize;integer li_height,li_width
li_height = this.workspaceHeight()
li_width = this.workspaceWidth()

mdi_1.x = this.workspacex()
mdi_1.y = this.workspacey() - 4
mdi_1.height = li_height - dw_status_bar.height + 8
mdi_1.width = li_width

dw_status_bar.x = this.workspacex() - 4
dw_status_bar.y = mdi_1.y + mdi_1.height
dw_status_bar.width = li_width + 4


//修改线长
string ls_y,ls_mstring
int ls_x,ls_w,li_bmp_x
ls_y = string(li_width )
ls_mstring += 'line_1.x2="'+ls_y+'" '

ls_mstring += 'line_3.x1="'+ls_y+'" '
ls_mstring += 'line_3.x2="'+ls_y+'" '

ls_mstring += 'line_2.x2="'+ls_y+'" '
li_bmp_x = li_width - 54
ls_mstring += 'line_2.x2="'+string(li_bmp_x)+'" '

if li_width - 10 <=0 then return

ls_x = integer(dw_status_bar.describe('line_1.x1') ) +14 + 100 - 70
ls_w = integer( ls_y) - ls_x - 14 - 100 - 70
ls_mstring += 'st_mess.width="'+string(ls_w)+'" '

ls_mstring += 'p_resize.x="'+string(li_bmp_x)+'"'

dw_status_bar.modify(ls_mstring)



end event

type mdi_1 from mdiclient within w_main
long BackColor=268435456
end type

type dw_status_bar from datawindow within w_main
integer x = 448
integer y = 1252
integer width = 1879
integer height = 80
integer taborder = 10
string dataobject = "d_cm_status_bar"
boolean border = false
boolean livescroll = true
end type

[hjj841020]

自已顶一下!!

[jlwei888]

PB本身带的PFC例子中就有！

[hjj841020]

能提供一下吗?谢谢啊~~

[hjj841020]

谢谢!!我用已经解决了.