u_sleedit.sru 780 B

123456789101112131415161718192021222324252627282930313233343536373839
  1. $PBExportHeader$u_sleedit.sru
  2. forward
  3. global type u_sleedit from singlelineedit
  4. end type
  5. end forward
  6. global type u_sleedit from singlelineedit
  7. int Width=503
  8. int Height=88
  9. int TabOrder=10
  10. BorderStyle BorderStyle=StyleLowered!
  11. boolean AutoHScroll=false
  12. long TextColor=33554432
  13. int TextSize=-9
  14. int Weight=400
  15. string FaceName="宋体"
  16. FontCharSet FontCharSet=GB2312CharSet!
  17. FontPitch FontPitch=Variable!
  18. event keyup pbm_keyup
  19. event inputchanged ( )
  20. event keydown pbm_keydown
  21. end type
  22. global u_sleedit u_sleedit
  23. type variables
  24. string THISTAG=''
  25. end variables
  26. event keyup;IF THISTAG=TRIM(THIS.TEXT) THEN RETURN
  27. THISTAG=TRIM(THIS.TEXT)
  28. this.postevent('inputchanged')
  29. end event
  30. event constructor;THISTAG=TRIM(THIS.TEXT)
  31. end event
  32. event modified;this.postevent('keyup')
  33. end event