fixed multiselect on WM_IN form
This commit is contained in:
parent
746821724a
commit
f77f3c1207
10200
LSL2/OIWIN/WM_IN.json
10200
LSL2/OIWIN/WM_IN.json
File diff suppressed because it is too large
Load Diff
@ -95,22 +95,6 @@ Create:
|
|||||||
|
|
||||||
obj_Appwindow('Create',@WINDOW)
|
obj_Appwindow('Create',@WINDOW)
|
||||||
|
|
||||||
* get the current style
|
|
||||||
|
|
||||||
|
|
||||||
Style = Get_Property(@WINDOW:'.SLOT_NO', 'STYLE')
|
|
||||||
|
|
||||||
|
|
||||||
IF Style [1,2] _EQC "0x" THEN
|
|
||||||
CONVERT @LOWER.CASE TO @UPPER.CASE IN STYLE
|
|
||||||
Style = ICONV(Style [3,99], "MX")
|
|
||||||
END
|
|
||||||
|
|
||||||
|
|
||||||
Style = BitOr(Style, DTS_MULTIROW$)
|
|
||||||
Set_Property(@WINDOW:'.SLOT_NO', "STYLE", Style)
|
|
||||||
|
|
||||||
|
|
||||||
* Provides compatibility with the existing messaging attachment system
|
* Provides compatibility with the existing messaging attachment system
|
||||||
|
|
||||||
IF Parm1 NE '' THEN
|
IF Parm1 NE '' THEN
|
||||||
@ -825,3 +809,4 @@ RETURN
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user