w_tipsabc.srw 1.5 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071
  1. $PBExportHeader$w_tipsabc.srw
  2. forward
  3. global type w_tipsabc from window
  4. end type
  5. type dw_1 from datawindow within w_tipsabc
  6. end type
  7. type st_1 from statictext within w_tipsabc
  8. end type
  9. end forward
  10. global type w_tipsabc from window
  11. integer width = 1723
  12. integer height = 440
  13. windowtype windowtype = popup!
  14. long backcolor = 67108864
  15. string icon = "AppIcon!"
  16. boolean center = true
  17. dw_1 dw_1
  18. st_1 st_1
  19. end type
  20. global w_tipsabc w_tipsabc
  21. on w_tipsabc.create
  22. this.dw_1=create dw_1
  23. this.st_1=create st_1
  24. this.Control[]={this.dw_1,&
  25. this.st_1}
  26. end on
  27. on w_tipsabc.destroy
  28. destroy(this.dw_1)
  29. destroy(this.st_1)
  30. end on
  31. event open;IF Message.StringParm<>"" Then
  32. st_1.Text=Message.StringParm
  33. END IF
  34. dw_1.modify("st_text1.text='"+st_1.Text+"' st_text.Text='"+st_1.Text+"'")
  35. end event
  36. type dw_1 from datawindow within w_tipsabc
  37. integer x = 73
  38. integer y = 140
  39. integer width = 1513
  40. integer height = 200
  41. integer taborder = 10
  42. string title = "none"
  43. string dataobject = "d_wait"
  44. boolean border = false
  45. boolean livescroll = true
  46. end type
  47. type st_1 from statictext within w_tipsabc
  48. boolean visible = false
  49. integer x = 133
  50. integer y = 76
  51. integer width = 914
  52. integer height = 72
  53. integer textsize = -9
  54. integer weight = 400
  55. fontcharset fontcharset = gb2312charset!
  56. fontpitch fontpitch = variable!
  57. string facename = "宋体"
  58. long textcolor = 8388608
  59. long backcolor = 67108864
  60. boolean enabled = false
  61. string text = "正在进行数据处理,请稍候........."
  62. boolean focusrectangle = false
  63. end type