w_rp3.srw 5.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237
  1. $PBExportHeader$w_rp3.srw
  2. forward
  3. global type w_rp3 from w_publ_choice
  4. end type
  5. type cb_1 from uo_imflatbutton within w_rp3
  6. end type
  7. type cb_2 from uo_imflatbutton within w_rp3
  8. end type
  9. type cb_3 from uo_imflatbutton within w_rp3
  10. end type
  11. type cb_4 from uo_imflatbutton within w_rp3
  12. end type
  13. type cb_5 from uo_imflatbutton within w_rp3
  14. end type
  15. type cb_6 from uo_imflatbutton within w_rp3
  16. end type
  17. type cb_7 from uo_imflatbutton within w_rp3
  18. end type
  19. type cb_8 from uo_imflatbutton within w_rp3
  20. end type
  21. type dw_1 from u_dw_rbtnfilter within w_rp3
  22. end type
  23. end forward
  24. global type w_rp3 from w_publ_choice
  25. integer width = 3040
  26. string title = "w_rp3"
  27. cb_1 cb_1
  28. cb_2 cb_2
  29. cb_3 cb_3
  30. cb_4 cb_4
  31. cb_5 cb_5
  32. cb_6 cb_6
  33. cb_7 cb_7
  34. cb_8 cb_8
  35. dw_1 dw_1
  36. end type
  37. global w_rp3 w_rp3
  38. on w_rp3.create
  39. int iCurrent
  40. call super::create
  41. this.cb_1=create cb_1
  42. this.cb_2=create cb_2
  43. this.cb_3=create cb_3
  44. this.cb_4=create cb_4
  45. this.cb_5=create cb_5
  46. this.cb_6=create cb_6
  47. this.cb_7=create cb_7
  48. this.cb_8=create cb_8
  49. this.dw_1=create dw_1
  50. iCurrent=UpperBound(this.Control)
  51. this.Control[iCurrent+1]=this.cb_1
  52. this.Control[iCurrent+2]=this.cb_2
  53. this.Control[iCurrent+3]=this.cb_3
  54. this.Control[iCurrent+4]=this.cb_4
  55. this.Control[iCurrent+5]=this.cb_5
  56. this.Control[iCurrent+6]=this.cb_6
  57. this.Control[iCurrent+7]=this.cb_7
  58. this.Control[iCurrent+8]=this.cb_8
  59. this.Control[iCurrent+9]=this.dw_1
  60. end on
  61. on w_rp3.destroy
  62. call super::destroy
  63. destroy(this.cb_1)
  64. destroy(this.cb_2)
  65. destroy(this.cb_3)
  66. destroy(this.cb_4)
  67. destroy(this.cb_5)
  68. destroy(this.cb_6)
  69. destroy(this.cb_7)
  70. destroy(this.cb_8)
  71. destroy(this.dw_1)
  72. end on
  73. type cb_func from w_publ_choice`cb_func within w_rp3
  74. boolean visible = false
  75. end type
  76. type cb_exit from w_publ_choice`cb_exit within w_rp3
  77. boolean visible = false
  78. end type
  79. type sle_ch from w_publ_choice`sle_ch within w_rp3
  80. boolean visible = false
  81. end type
  82. type dw_ch from w_publ_choice`dw_ch within w_rp3
  83. boolean visible = false
  84. end type
  85. type st_1 from w_publ_choice`st_1 within w_rp3
  86. boolean visible = false
  87. end type
  88. type cb_retrieve from w_publ_choice`cb_retrieve within w_rp3
  89. boolean visible = false
  90. end type
  91. type cb_choice from w_publ_choice`cb_choice within w_rp3
  92. boolean visible = false
  93. end type
  94. type ln_bar from w_publ_choice`ln_bar within w_rp3
  95. end type
  96. type ln_bar2 from w_publ_choice`ln_bar2 within w_rp3
  97. end type
  98. type r_bar from w_publ_choice`r_bar within w_rp3
  99. end type
  100. type ln_1 from w_publ_choice`ln_1 within w_rp3
  101. end type
  102. type ln_2 from w_publ_choice`ln_2 within w_rp3
  103. end type
  104. type cb_1 from uo_imflatbutton within w_rp3
  105. integer x = 9
  106. integer width = 151
  107. integer height = 164
  108. integer taborder = 130
  109. boolean bringtotop = true
  110. string text = "刷新"
  111. string normalpicname = "refresh.bmp"
  112. integer picsize = 16
  113. toolbaralignment pic_align = alignattop!
  114. boolean border = false
  115. end type
  116. type cb_2 from uo_imflatbutton within w_rp3
  117. integer x = 174
  118. integer y = 4
  119. integer width = 192
  120. integer height = 164
  121. integer taborder = 180
  122. boolean bringtotop = true
  123. string text = "新建&S"
  124. string normalpicname = "new.bmp"
  125. integer picsize = 16
  126. toolbaralignment pic_align = alignattop!
  127. boolean border = false
  128. end type
  129. type cb_3 from uo_imflatbutton within w_rp3
  130. integer x = 366
  131. integer y = 4
  132. integer width = 192
  133. integer height = 164
  134. integer taborder = 190
  135. boolean bringtotop = true
  136. string text = "修改&E"
  137. string normalpicname = "open.bmp"
  138. integer picsize = 16
  139. toolbaralignment pic_align = alignattop!
  140. boolean border = false
  141. end type
  142. type cb_4 from uo_imflatbutton within w_rp3
  143. integer x = 558
  144. integer y = 4
  145. integer width = 151
  146. integer height = 164
  147. integer taborder = 200
  148. boolean bringtotop = true
  149. string text = "删除"
  150. string normalpicname = "delete.bmp"
  151. integer picsize = 16
  152. toolbaralignment pic_align = alignattop!
  153. boolean border = false
  154. end type
  155. type cb_5 from uo_imflatbutton within w_rp3
  156. integer x = 1038
  157. integer width = 151
  158. integer height = 164
  159. integer taborder = 130
  160. boolean bringtotop = true
  161. string text = "刷新"
  162. string normalpicname = "refresh.bmp"
  163. integer picsize = 16
  164. toolbaralignment pic_align = alignattop!
  165. boolean border = false
  166. end type
  167. type cb_6 from uo_imflatbutton within w_rp3
  168. integer x = 1202
  169. integer y = 4
  170. integer width = 192
  171. integer height = 164
  172. integer taborder = 180
  173. boolean bringtotop = true
  174. string text = "新建&S"
  175. string normalpicname = "new.bmp"
  176. integer picsize = 16
  177. toolbaralignment pic_align = alignattop!
  178. boolean border = false
  179. end type
  180. type cb_7 from uo_imflatbutton within w_rp3
  181. integer x = 1394
  182. integer y = 4
  183. integer width = 192
  184. integer height = 164
  185. integer taborder = 190
  186. boolean bringtotop = true
  187. string text = "修改&E"
  188. string normalpicname = "open.bmp"
  189. integer picsize = 16
  190. toolbaralignment pic_align = alignattop!
  191. boolean border = false
  192. end type
  193. type cb_8 from uo_imflatbutton within w_rp3
  194. integer x = 1586
  195. integer y = 4
  196. integer width = 151
  197. integer height = 164
  198. integer taborder = 200
  199. boolean bringtotop = true
  200. string text = "删除"
  201. string normalpicname = "delete.bmp"
  202. integer picsize = 16
  203. toolbaralignment pic_align = alignattop!
  204. boolean border = false
  205. end type
  206. type dw_1 from u_dw_rbtnfilter within w_rp3
  207. integer x = 18
  208. integer y = 308
  209. integer height = 1228
  210. integer taborder = 20
  211. boolean bringtotop = true
  212. end type