Q5/ws_objects/xls_Billprint_win.pbl.src/u_xls_sleedit.sru

$PBExportHeader$u_xls_sleedit.sru
FORWARD
GLOBAL TYPE u_xls_sleedit FROM singlelineedit
END TYPE
END FORWARD

GLOBAL TYPE u_xls_sleedit FROM singlelineedit
Integer Width = 503
Integer Height = 88
Integer TabOrder = 10
Integer TextSize = -9
Integer Weight = 400
FontCharSet FontCharSet = gb2312charset!
FontPitch FontPitch = variable!
String FaceName = "宋体"
Long TextColor = 33554432
Boolean AutoHScroll = FALSE
BorderStyle BorderStyle = stylelowered!
EVENT keyup pbm_keyup
EVENT inputchanged ( )
EVENT KeyDown pbm_keydown
END TYPE
GLOBAL u_xls_sleedit u_xls_sleedit

TYPE VARIABLES
String THISTAG = ''
END VARIABLES

EVENT keyup;
IF THISTAG = Trim(THIS.Text) THEN RETURN
THISTAG = Trim(THIS.Text)
THIS.PostEvent('inputchanged')
END EVENT

EVENT Constructor;
THISTAG = Trim(THIS.Text)
END EVENT

EVENT Modified;
THIS.PostEvent('keyup')
END EVENT

ON u_xls_sleedit.CREATE
END ON

ON u_xls_sleedit.DESTROY
END ON