上传者: xl0577
|
上传时间: 2022-04-14 01:14:24
|
文件大小: 3.42MB
|
文件类型: ZIP
非常漂亮的PB源码,在学习中
n_svc_mgr lnv_svc
n_svc_theme lnv_t
str_theme lstr_theme
//get default theme
lnv_svc.of_LoadSvc(lnv_t, CSvc.THEME)
lstr_theme = lnv_t.of_GetTheme()
uo_toolbartheme.dw_1.SetItem(1, 1, lstr_theme.ThemeID)
uo_dwtoolbargroup.of_Addtoolbars({uo_toolbar, uo_toolbartheme})
inv_explorer.of_Register(tv_1, &
uo_sheets, &
uo_toolbar, &
uo_splitter, &
uo_bordertitle, &
uo_statusbar)
inv_explorer.of_PopulateModules()
//setup statusbar
//complex panel
n_svc_resource lnv_r
str_statusbar_layout lstr
lnv_svc.of_LoadSvc(lnv_r, CSvc.RESOURCE)
lstr.icon[2] = "APP_ICON"
lstr.parts[1] = 250
//lstr.parts[2] = 350
lstr.parts[2] = -1
lstr.text[1] = "Kodigo Examples"
lstr.text[2] = "~tYeyi 2006"
//lstr.text[3] = "~tAnchored Panel"
lstr.lastpanelwidth = 200
uo_statusbar.of_addlayout(lstr)
uo_statusbar.of_setlayout(1)