Q5/ws_objects/Ew_publ903_bill.pbl.src/w_uc_mod.srw

$PBExportHeader$w_uc_mod.srw
forward
global type w_uc_mod from w_publ_base
end type
type dw_1 from u_dw_uc_rbtnfilter within w_uc_mod
end type
type cb_1 from uo_imflatbutton within w_uc_mod
end type
type cb_2 from uo_imflatbutton within w_uc_mod
end type
type cb_3 from uo_imflatbutton within w_uc_mod
end type
type cb_4 from uo_imflatbutton within w_uc_mod
end type
type cb_5 from uo_imflatbutton within w_uc_mod
end type
type cb_6 from uo_imflatbutton within w_uc_mod
end type
type r_bar from rectangle within w_uc_mod
end type
type ln_bar from line within w_uc_mod
end type
type ln_bar2 from line within w_uc_mod
end type
end forward

global type w_uc_mod from w_publ_base
integer width = 3145
integer height = 2380
string title = "布局设置"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 134217738
dw_1 dw_1
cb_1 cb_1
cb_2 cb_2
cb_3 cb_3
cb_4 cb_4
cb_5 cb_5
cb_6 cb_6
r_bar r_bar
ln_bar ln_bar
ln_bar2 ln_bar2
end type
global w_uc_mod w_uc_mod

type variables
Long cur_type = -1
Long uc_column_int
Long cur_nomodify[]
Long cur_start = 0
String cur_win

String dwoselect
String cur_mod[]

Long cur_resize = 0

Long cur_select = 0
Long ii_x_scroll,ii_y_scroll
Long cur_x,cur_y

String cur_chname[]
long cur_chX[], cur_chY[]
long cur_mainid


long cur_dragX, cur_dragY
end variables

forward prototypes
public subroutine wf_open ()
public subroutine wf_aoto_taborder ()
public function integer wf_get_max (integer arg_type)
public subroutine wf_show (integer arg_show[])
public subroutine wf_get_columnname (ref string arg_name[])
public function integer wf_get_max (integer arg_type, integer arg_long[])
end prototypes

public subroutine wf_open ();
long nColumnCount,nColumnIndex
string des_1,des_2,des_3,szColumn,ls_pkcolname
string ls_name
nColumnCount = Integer( dw_1.Object.DataWindow.Column.Count)
ls_name = dw_1.describe("DataWindow.Objects")

string ls_a[]
long i=0
do while pos(ls_name,'~t') > 1 
	i++
	ls_a[i] = mid(ls_name,1,pos(ls_name,'~t') -1)
	ls_name = mid(ls_name,pos(ls_name,'~t') + 1,len(ls_name))
loop

i++
ls_a[i] = ls_name

FOR  i= 1 to upperbound(ls_a) 
	des_1 = ls_a[i]
	dw_1.modify(des_1+'.moveable = 1')
	dw_1.modify(des_1+'.resizeable = 1')
	dw_1.modify(des_1+'.border = 2')
//	dw_1.modify(des_1+'.color = 255')
next
end subroutine

public subroutine wf_aoto_taborder ();Long nColumnIndex,nColumnCount,lRow,ls_i,i = 1
String des_1,des_2,szColumn,str
String Name[]
Long ll_x[],ll_y[],ll_width[],ll_height[]
Long ll_count

//获取所有可以编辑的字段名称、横纵坐标
nColumnCount = Integer( dw_1.Object.DataWindow.Column.Count)
FOR nColumnIndex = 1 TO nColumnCount
	des_1 = dw_1.DESCRIBE( "#" + String(nColumnIndex) + ".Name")
	des_2 = dw_1.DESCRIBE(des_1+ "_t.Text")
	
	szColumn = f_strip( des_2)
	IF Long(dw_1.DESCRIBE(des_1+ ".Visible")) = 1 AND Long(dw_1.DESCRIBE(des_1+ ".x")) > 0 THEN
		IF nColumnIndex <= uc_column_int THEN
			Name[i] = des_1
			ll_x[i] = Long(dw_1.DESCRIBE(des_1+ ".x"))
			ll_y[i] = Long(dw_1.DESCRIBE(des_1+ ".y"))
			ll_width[i] = Long(dw_1.DESCRIBE(des_1+ ".width"))
			ll_height[i] = Long(dw_1.DESCRIBE(des_1+ ".height"))
			i++
		END IF
	END IF
NEXT
//////----------------------------

ll_count = i - 1

Long Min,minnub
Long newx[],j = 1,ll_cnt,ll_t,midx[],k,ll_null[]
String newname[],ls_t,midname[]
String ls_null[]

cnt:

//找出纵坐标最小字段
Min = ll_y[1]
minnub = 1
FOR i = 2 TO ll_count
	IF Min <= ll_y[i]  THEN
		
	ELSE
		Min = ll_y[i]
		minnub = i
	END IF
NEXT
////////////--------------------------

//找出与最少纵坐标字段同行的所有字段
j = 1
FOR i = 1 TO ll_count
	IF ll_y[i] >= ll_y[minnub] AND ll_y[i] <= (ll_height[minnub] +ll_y[minnub]) THEN
		midname[j] = Name[i]
		midx[j] = ll_x[i]
		j++
	END IF
NEXT
ll_cnt = j -1
/////-------------------------------

//将同行的字段进行排序（按横坐标大小）
FOR i = 1 TO ll_cnt - 1
	FOR j = i + 1 TO ll_cnt
		IF midx[i] < midx[j] THEN
			
		ELSE
			ll_t = midx[i]
			midx[i] = midx[j]
			midx[j] = ll_t
			ls_t = midname[i]
			midname[i] = midname[j]
			midname[j] = ls_t
		END IF
	NEXT
NEXT
////////////----------------------------

//删除已经排序的字段
//FOR i = 1 TO ll_count
//	FOR j = 1 TO ll_cnt
//		IF Name[i] = midname[j] THEN
//			FOR k = i TO ll_count -1
//				Name[k] = Name[k+1]
//				ll_x[k] = ll_x[k+1]
//				ll_y[k] = ll_y[k+1]
//				ll_width[k] = ll_width[k+1]
//				ll_height[k] = ll_height[k+1]
//			NEXT
//			ll_count --
//		END IF
//	NEXT
//NEXT

FOR i = 1 TO ll_count
	FOR j = 1 TO ll_cnt
		IF Name[i] = midname[j] THEN
			Name[i] = ''
			k++
		END IF
	NEXT
NEXT

j = 0
FOR i = ll_count  TO 1 STEP -1
	IF Name[i] = '' THEN
		FOR k = i TO ll_count -1
			Name[k] = Name[k+1]
			ll_x[k] = ll_x[k+1]
			ll_y[k] = ll_y[k+1]
			ll_width[k] = ll_width[k+1]
			ll_height[k] = ll_height[k+1]			
		NEXT
		j++
	END IF
NEXT

ll_count = ll_count - j

////////----------------------------

//将排好序的一行字段，放入目的数组，清空临时数组
Long  ll_bnd
ll_bnd = UpperBound(newname)
FOR i = 1 TO ll_cnt
	newname[ll_bnd + i] =  midname[i]
NEXT


midname[] = ls_null[]
midx[] = ll_null[]
////////////-----------------------------------

IF ll_count > 0 THEN
	GOTO cnt
END IF

Long  aaa
String ls_taborder_auto = ''

FOR i = 1  TO UpperBound(newname)
	ls_taborder_auto = ls_taborder_auto + newname[i]+".Tabsequence="+String(i * 10)+'~t'
NEXT


String ls_data
ls_data = dw_1.DataObject
/////保存taporder
UPDATE sys_user_dwnSyntax
	SET dwnSyntax_layout_column_taporder = :ls_taborder_auto
	WHERE empid = :sys_empid
	AND dwname = :ls_data;
IF sqlca.SQLCode = 0 THEN
	IF sqlca.SQLNRows = 0 THEN
		INSERT INTO sys_user_dwnSyntax
			(empid,
			dwname,
			dwnSyntax_filter,
			dwnSyntax_sort,
			dwnSyntax_layout_column_visible,
			dwnSyntax_layout_column_width,
			dwnSyntax_layout_column_alignment,
			dwnSyntax_layout_column_pos,
			dwnSyntax_layout_column_edit,
			dwnSyntax_layout_column_font,
			dwnSyntax_layout_column_height,
			dwnSyntax_layout_column_taporder)
			Values(:publ_userid,:ls_data,'','','','','','','','','',:ls_taborder_auto);
	END IF
END IF

COMMIT;
/////////////////////////

//messagebox('',ls_taborder_auto)

dw_1.ins_mdfstr_column_taporder = ls_taborder_auto

MessageBox('提示','OK')




end subroutine

public function integer wf_get_max (integer arg_type);//wf_get_max()

Long nColumnIndex,nColumnCount,lRow,ls_i,j = 1
String des_1,des_2,szColumn,str
Long ll_x[200],ll_y[200],ll_width[200],ll_height[200]

//获取所有可以编辑的字段名称、横纵坐标


String des_3,ls_pkcolname
String ls_name
nColumnCount = Integer( dw_1.Object.DataWindow.Column.Count)
ls_name = dw_1.Describe("DataWindow.Objects")

String ls_a[]
Long i = 0
DO WHILE Pos(ls_name,'~t') > 1
	i++
	ls_a[i] = Mid(ls_name,1,Pos(ls_name,'~t') -1)
	ls_name = Mid(ls_name,Pos(ls_name,'~t') + 1,Len(ls_name))
LOOP

i++
ls_a[i] = ls_name

FOR  i = 1 To UpperBound(ls_a)
	des_1 = ls_a[i]
	IF Long(dw_1.Describe(des_1+'.visible')) = 1 THEN
		ll_x[j] = Long(dw_1.Describe(des_1+'.x'))
		ll_y[j] = Long(dw_1.Describe(des_1+'.y'))
		ll_width[j] = Long(dw_1.Describe(des_1+'.width'))
		ll_height[j] = Long(dw_1.Describe(des_1+'.height'))
		j++
	END IF
NEXT

Long ll_maxwid,ll_maxhig

ll_maxwid = ll_x[1] + ll_width[1]

FOR i = 2 To j -1
	IF ll_maxwid < ll_x[i] + ll_width[i] THEN
		ll_maxwid = ll_x[i] + ll_width[i]
	END IF
NEXT

ll_maxhig = ll_y[1] + ll_height[1]
FOR i = 2 To j -1
	IF ll_maxhig < ll_y[i] + ll_height[i] THEN
		ll_maxhig = ll_y[i] + ll_height[i]
	END IF
NEXT

IF arg_type = 1 THEN
	RETURN ll_maxwid + 50
ELSEIF arg_type = 2 THEN
	RETURN ll_maxhig + 50
END IF



end function

public subroutine wf_show (integer arg_show[]);IF UpperBound(arg_show) <= 0 THEN RETURN

Long i,ll_maxw,ll_maxh,ll_x,ll_y,ll_width,ll_height,ll_with_t,ll_x_t
long j,ld_x,ld_y,ld_width,ld_height,ld_with_t,ld_x_t,k= 0
String arg_name[]
FOR i = 1 TO UpperBound(arg_show)

	ll_maxh = wf_get_max(2)
	
	wf_get_columnname(arg_name)
	
	ll_x = Long(dw_1.DESCRIBE(arg_name[arg_show[i]]+'.x'))
	ll_x_t = Long(dw_1.DESCRIBE(arg_name[arg_show[i]]+'_t.x'))
	ll_y = Long(dw_1.DESCRIBE(arg_name[arg_show[i]]+'.y'))
	ll_width = Long(dw_1.DESCRIBE(arg_name[arg_show[i]]+'.width'))
	ll_with_t = Long(dw_1.DESCRIBE(arg_name[arg_show[i]]+'_t.width'))
	ll_height = Long(dw_1.DESCRIBE(arg_name[arg_show[i]]+'.height'))
	
	k= 0
	for j = 1 TO UpperBound(arg_name)
		if arg_name[j] = arg_name[arg_show[i]] then continue
		ld_x = Long(dw_1.DESCRIBE(arg_name[j]+'.x'))
		ld_x_t = Long(dw_1.DESCRIBE(arg_name[j]+'_t.x'))
		ld_y = Long(dw_1.DESCRIBE(arg_name[j]+'.y'))
		ld_width = Long(dw_1.DESCRIBE(arg_name[j]+'.width'))
		ld_with_t = Long(dw_1.DESCRIBE(arg_name[j]+'_t.width'))
		ld_height = Long(dw_1.DESCRIBE(arg_name[j]+'.height'))
		
		if ld_y < ll_y and ld_y + ld_height > ll_y or ld_y > ll_y and ld_y < ll_y + ll_height then
			if ll_x_t > ld_x + ld_width  or ld_x_t > ll_x + ll_width   then
				goto ext
			end if	
		else
			k++
		end if 		
	next
	
	if k + 1 = UpperBound(arg_name) then goto ext
		
	
	IF ll_maxh - 35 + ll_height >  dw_1.Height THEN
		IF ll_maxh - 35 + ll_height < THIS.Height - 300 THEN
			IF i > 1 THEN
				IF Long(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.x')) + Long(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.width')) &
					+ 20 + Long(dw_1.DESCRIBE(arg_name[arg_show[i]]+'_t.width')) + Long(dw_1.DESCRIBE(arg_name[arg_show[i]]+'.width')) &
					<= dw_1.Width THEN
					dw_1.Modify(arg_name[arg_show[i]]+'.y ='+String(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.y')))
					dw_1.Modify(arg_name[arg_show[i]]+'.x ='+String(Long(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.x')) + Long(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.width')) + 20 +ll_with_t))
					dw_1.Modify(arg_name[arg_show[i]]+'_t.y ='+String(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.y')))
					dw_1.Modify(arg_name[arg_show[i]]+'_t.x ='+String(Long(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.x')) + Long(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.width')) + 20))
				ELSE
					dw_1.Modify(arg_name[arg_show[i]]+'.y ='+String(ll_maxh - 35))
					dw_1.Modify(arg_name[arg_show[i]]+'.x ='+String(ll_with_t + 10))
					dw_1.Modify(arg_name[arg_show[i]]+'_t.y ='+String(ll_maxh - 35))
					dw_1.Modify(arg_name[arg_show[i]]+'_t.x ='+String(5))
					dw_1.Height = ll_maxh - 15 + ll_height -200
				END IF
			ELSE
				
				dw_1.Modify(arg_name[arg_show[i]]+'.y ='+String(ll_maxh - 35))
				dw_1.Modify(arg_name[arg_show[i]]+'.x ='+String(ll_with_t + 10))
				dw_1.Modify(arg_name[arg_show[i]]+'_t.y ='+String(ll_maxh - 35))
				dw_1.Modify(arg_name[arg_show[i]]+'_t.x ='+String(5))
				dw_1.Height = ll_maxh - 15 + ll_height -200
			END IF
		END IF
		
	ELSE
		IF i > 1 THEN
			IF Long(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.x')) + Long(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.width')) &
				+ 20 + Long(dw_1.DESCRIBE(arg_name[arg_show[i]]+'_t.width')) + Long(dw_1.DESCRIBE(arg_name[arg_show[i]]+'.width')) &
				<= dw_1.Width THEN
				dw_1.Modify(arg_name[arg_show[i]]+'.y ='+String(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.y')))
				dw_1.Modify(arg_name[arg_show[i]]+'.x ='+String(Long(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.x')) + Long(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.width')) + 20 +ll_with_t))
				dw_1.Modify(arg_name[arg_show[i]]+'_t.y ='+String(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.y')))
				dw_1.Modify(arg_name[arg_show[i]]+'_t.x ='+String(Long(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.x')) + Long(dw_1.DESCRIBE(arg_name[arg_show[i - 1]]+'.width')) + 20))
			ELSE
				dw_1.Modify(arg_name[arg_show[i]]+'.y ='+String(ll_maxh - 35))
				dw_1.Modify(arg_name[arg_show[i]]+'.x ='+String(ll_with_t + 10))
				dw_1.Modify(arg_name[arg_show[i]]+'_t.y ='+String(ll_maxh - 35))
				dw_1.Modify(arg_name[arg_show[i]]+'_t.x ='+String(5))
			END IF
		ELSE
			dw_1.Modify(arg_name[arg_show[i]]+'.y ='+String(ll_maxh - 35))
			dw_1.Modify(arg_name[arg_show[i]]+'.x ='+String(ll_with_t + 10))
			dw_1.Modify(arg_name[arg_show[i]]+'_t.y ='+String(ll_maxh - 35))
			dw_1.Modify(arg_name[arg_show[i]]+'_t.x ='+String(5))
		END IF
		
	END IF
	
	ext:
NEXT



end subroutine

public subroutine wf_get_columnname (ref string arg_name[]);long nColumnIndex,nColumnCount,lRow,ls_i,i= 0
string ls_name[],des_1,des_2,szColumn

s_dw_uc_rbtnfilter_setlayout_rt ls_s_rt

nColumnCount = Integer( dw_1.Object.DataWindow.Column.Count)

For nColumnIndex = 1 To nColumnCount
	des_1= dw_1.Describe( "#" + String(nColumnIndex) + ".Name") 
	des_2= dw_1.describe(des_1+ "_t.Text")
	
	szColumn = f_strip( des_2) 
	If szColumn <> "!" Then
		i++
		ls_name[nColumnIndex] = des_1
	end if
	
next

arg_name = ls_name
//return ls_name
end subroutine

public function integer wf_get_max (integer arg_type, integer arg_long[]);//wf_get_max()

Long nColumnIndex,nColumnCount,lRow,ls_i,j = 1
String des_1,des_2,szColumn,str
Long ll_x[200],ll_y[200],ll_width[200],ll_height[200]

//获取所有可以编辑的字段名称、横纵坐标


String des_3,ls_pkcolname
String ls_name
nColumnCount = Integer( dw_1.Object.DataWindow.Column.Count)
ls_name = dw_1.Describe("DataWindow.Objects")

String ls_a[]
Long i = 0
//do while pos(ls_name,'~t') > 1 
//	i++
//	ls_a[i] = mid(ls_name,1,pos(ls_name,'~t') -1)
//	ls_name = mid(ls_name,pos(ls_name,'~t') + 1,len(ls_name))
//loop
//
//i++
//ls_a[i] = ls_name

wf_get_columnname(ls_a)

FOR  i = 1 To UpperBound(ls_a)
	des_1 = ls_a[i]
	//	if long(dw_1.describe(des_1+'.visible')) = 1 then
	ll_x[j] = Long(dw_1.Describe(des_1+'.x'))
	ll_y[j] = Long(dw_1.Describe(des_1+'.y'))
	ll_width[j] = Long(dw_1.Describe(des_1+'.width'))
	ll_height[j] = Long(dw_1.Describe(des_1+'.height'))
	j++
	//	end if
NEXT

Long ll_maxwid,ll_maxhig,k

ll_maxwid = ll_x[1] + ll_width[1]

FOR i = 2 To j -1
	FOR k = 1 To UpperBound(arg_long)
		IF i = arg_long[k] THEN
			GOTO ext1
		END IF
	NEXT
	
	IF ll_maxwid < ll_x[i] + ll_width[i] THEN
		ll_maxwid = ll_x[i] + ll_width[i]
	END IF
	
	ext1:
NEXT

ll_maxhig = ll_y[1] + ll_height[1]
FOR i = 2 To j -1
	
	FOR k = 1 To UpperBound(arg_long)
		IF i = arg_long[k] THEN
			GOTO ext2
		END IF
	NEXT
	
	IF ll_maxhig < ll_y[i] + ll_height[i] THEN
		ll_maxhig = ll_y[i] + ll_height[i]
	END IF
	
	ext2:
NEXT

IF arg_type = 1 THEN
	RETURN ll_maxwid + 50
ELSEIF arg_type = 2 THEN
	RETURN ll_maxhig + 50
END IF



end function

on w_uc_mod.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.cb_1=create cb_1
this.cb_2=create cb_2
this.cb_3=create cb_3
this.cb_4=create cb_4
this.cb_5=create cb_5
this.cb_6=create cb_6
this.r_bar=create r_bar
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
this.Control[iCurrent+2]=this.cb_1
this.Control[iCurrent+3]=this.cb_2
this.Control[iCurrent+4]=this.cb_3
this.Control[iCurrent+5]=this.cb_4
this.Control[iCurrent+6]=this.cb_5
this.Control[iCurrent+7]=this.cb_6
this.Control[iCurrent+8]=this.r_bar
this.Control[iCurrent+9]=this.ln_bar
this.Control[iCurrent+10]=this.ln_bar2
end on

on w_uc_mod.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.cb_1)
destroy(this.cb_2)
destroy(this.cb_3)
destroy(this.cb_4)
destroy(this.cb_5)
destroy(this.cb_6)
destroy(this.r_bar)
destroy(this.ln_bar)
destroy(this.ln_bar2)
end on

event open;call super::open;s_dw_uc_modify s_modify
s_modify = Message.PowerObjectParm

if sys_power_issuper then 
	
else
	cb_6.visible = false
	cb_exit.x = cb_6.x
end if


Long ll_billid,ll_scid
dw_1.DataObject = s_modify.datawinname_uc
uc_column_int = s_modify.uc_column_int
cur_win = s_modify.win
cur_mainid = s_modify.mainid

dw_1.Width = s_modify.uc_width
dw_1.Height = s_modify.uc_height

cur_mod = s_modify.nomod
cur_start = 1

dw_1.Object.datawindow.detail.Height = 2000
dw_1.Object.datawindow.detail.Height.AutoSize = TRUE


dw_1.TriggerEvent(Constructor!)

dw_1.SetTransObject(sqlca)

cur_resize = 1

wf_open()





end event

event close;call super::close;s_resize s_size
s_size.backtype = cur_type

s_size.Width = dw_1.Width
s_size.Height = dw_1.Height

CloseWithReturn(THIS,s_size)

end event

event key;call super::key;//if key=Keyleftarrow! or key=Keyrightarrow! or key=Keyuparrow! or key=Keydownarrow! then
//	
//end if 
end event

event resize;call super::resize;ln_bar.EndX = THIS.Width
ln_bar2.EndX = THIS.Width
r_bar.Width = THIS.Width


end event

type cb_func from w_publ_base`cb_func within w_uc_mod
boolean visible = false
string text = "工具"
end type

type cb_exit from w_publ_base`cb_exit within w_uc_mod
integer x = 1481
integer width = 151
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event cb_exit::clicked;//不保存布局
cur_type = -1

close(parent)
end event

type dw_1 from u_dw_uc_rbtnfilter within w_uc_mod
event ue_lbuttonup pbm_dwnrbuttonup
event mousemove pbm_mousemove
integer y = 184
integer width = 3026
integer height = 1724
integer taborder = 20
boolean bringtotop = true
boolean resizable = true
boolean livescroll = false
borderstyle borderstyle = styleraised!
end type

event ue_lbuttonup;////string ls_name
////long  ll_y,ll_x
////
////ls_name = dwo.name
////ll_x = long(this.describe(ls_name+'.x')) + long(this.describe(ls_name+'.width'))
////ll_y = long(this.describe(ls_name+'.y')) + long(this.describe(ls_name+'.height'))
////
////if (ll_x +50 > this.width) or (ll_y + 50 > this.height + this.y) then
////	messagebox('','控件不能移出窗口范围！')
////end if
//
////messagebox(string(xpos),string(ypos))
//
////xpos=xpos+ii_x_scroll
////ypos=ypos+ii_y_scroll
////
////messagebox(string(ii_x_scroll),string(ii_y_scroll))
//if (xpos=cur_x and ypos=cur_y) or ((KeyDown(Keyshift!) or KeyDown(KeyControl!)) ) then
//else
//long i ,ll_x,ll_y
//long ll_wid,ll_hig
//string ls_name
//if cur_select <= 0 then return
//ls_name = dwo.name
//ll_x = long(this.describe(ls_name+'.x'))
//ll_y = long(this.describe(ls_name+'.y'))
//ll_wid = ll_x - cur_x
//ll_hig = ll_y - cur_y
//
//long lx,ly
//for i =1 to cur_select
//	if cur_chname[i] <> 	ls_name then
//		lx = long(this.describe(cur_chname[i]+'.x'))
//		this.modify(cur_chname[i]+'.x = '+string(lx + ll_wid ))
//		ly = long(this.describe(cur_chname[i]+'.y'))
//		this.modify(cur_chname[i]+'.y = '+string(ly + ll_hig ))
//	end if
//next
//end if

this.triggerevent(resize!)
end event

event mousemove;IF flags = 1 THEN
	
//	st_1.text = 'x:'+string(xpos) +  'dragX:'+string(cur_dragX) + ' = '+ string(xpos - cur_dragX) &
//	+ '   y:'+string(ypos) + '   dragY:'+string(cur_dragY) + ' = '+ string(ypos - cur_dragY)
	Long ll_x, ll_y,  ll_x_add, ll_y_add
	
	ll_x_add = xpos - cur_dragX
	ll_y_add = ypos - cur_dragY
	
	Long i
	String ls_name
	FOR i = 1 To cur_select
		ls_name = cur_chname[i]
//		ll_x = Long(This.Describe(ls_name+'.x'))
		ll_x = cur_chX[i] + ll_x_add
//		ll_y = Long(This.Describe(ls_name+'.y'))
		ll_y = cur_chY[i] + ll_y_add
		
		IF ll_x > 0 And ll_y > 0 THEN
			This.Modify(ls_name+'.x ='+String(ll_x))
			This.Modify(ls_name+'.y ='+String(ll_y))
		END IF
	NEXT
	return 1
ELSE
	cur_dragX = xpos
	cur_dragY = ypos
	//elseif flags = 2 then 
	//	st_1.text =  '   y:'+string(ypos) +  'x:'+string(xpos) 
END IF




end event

event ue_setlayout;IF setcolumn_visible_USE = FALSE THEN RETURN
IF THIS.DataObject = '' THEN RETURN

//设定不能隐藏的项目
//wf_set_modify()
//读取每列顺序
THIS.TriggerEvent('ue_taborder')

IF THIS.ins_if_nomodify_uc_taborder THEN
	THIS.uf_reset_layout(uc_column_int)
END IF
/////////////////////////

datastore ls_ds
ls_ds = CREATE datastore
ls_ds.DataObject = 'dw_uc_rbtnfilter_setlayout_grid'
String ls_mdfstr,ls_mdftext_str,ls_titlex_str,ls_titley_str,ls_x_str,ls_y_str //存放modify string
String des_1,des_2,szColumn,ls_cwidth,ls_alignment,ls_cheight,ls_taporder
Long nColumnIndex,nColumnCount,lRow,ls_i,i

s_dw_uc_rbtnfilter_setlayout_rt ls_s_rt

nColumnCount = Integer( THIS.Object.DataWindow.Column.Count)

String arg_msg
IF f_set_nomod(THIS.DataObject,cur_mod,arg_msg) = 0 THEN
	MessageBox('提示',arg_msg)
	RETURN
END IF

FOR nColumnIndex = 1 TO nColumnCount
	des_1 = THIS.Describe( "#" + String(nColumnIndex) + ".Name")
	des_2 = THIS.Describe(des_1+ "_t.Text")
	
	szColumn = f_strip( des_2)
	IF szColumn <> "!" THEN
		lRow = ls_ds.InsertRow( 0)
		ls_ds.SetItem( lRow, "ctitle", szColumn)
		ls_ds.SetItem( lRow, "cname", This.Describe( des_1 + ".dbname"))
		ls_ds.SetItem( lRow, "cshow_flag", Long(THIS.Describe(des_1+ ".Visible")))
		ls_ds.SetItem( lRow, "cnewtitle", THIS.Describe(des_1+ "_t.text"))
		ls_ds.SetItem( lRow, "cwidth", Long(THIS.Describe(des_1+ ".width")))
		ls_ds.SetItem( lRow, "cheight", Long(THIS.Describe(des_1+ ".height")))
		ls_ds.SetItem( lRow, "alignment", Long(THIS.Describe(des_1+ ".alignment")))
		ls_ds.SetItem( lRow, "nColumnIndex", nColumnIndex)
		ls_ds.SetItem( lRow, "titlex",  Long(THIS.Describe(des_1+ "_t.x")))
		ls_ds.SetItem( lRow, "titley",  Long(THIS.Describe(des_1+ "_t.y")))
		ls_ds.SetItem( lRow, "x",  Long(THIS.Describe(des_1+ ".x")))
		ls_ds.SetItem( lRow, "y",  Long(THIS.Describe(des_1+ ".y")))
		ls_ds.SetItem( lRow, "taporder",  Long(THIS.Describe(des_1+ ".Tabsequence")))
		ls_ds.SetItem( lRow, "name", des_1)
		
		
		IF nColumnIndex <= uc_column_int THEN
			ls_ds.SetItem( lRow, "order_flag",  1)
		ELSE
			ls_ds.SetItem( lRow, "order_flag",  0)
		END IF
		
		
		cur_nomodify[nColumnIndex] = 0
		FOR i = 1 TO UpperBound(cur_mod)
			IF cur_mod[i] = des_1 THEN
				cur_nomodify[nColumnIndex] = 1
				GOTO ext
			ELSE
				cur_nomodify[nColumnIndex] = 0
			END IF
		NEXT
		
		ext:
		
		ls_ds.SetItem( lRow, "protect",  cur_nomodify[nColumnIndex])
	END IF
NEXT

//---打开设置窗口

OpenWithParm(w_dw_uc_rbtnfilter_setlayout,ls_ds)

ls_s_rt = Message.PowerObjectParm
//---处理设置
string ls_ColName
IF ls_s_rt.flag = 1 THEN //要保存修改
	ls_ds.SetFullState( ls_s_rt.b_changes )
	//ls_s_rt.dw.sharedata(ls_ds)
	FOR ls_i = 1 TO ls_ds.RowCount()
		
		ls_ColName = ls_ds.Object.name[ls_i]
		
		ls_mdfstr = ls_mdfstr+ls_ColName+'.visible='+String(ls_ds.Object.cshow_flag[ls_i])+'~t'
		ls_mdfstr = ls_mdfstr+ls_ColName+'_t.visible='+String(ls_ds.Object.cshow_flag[ls_i])+'~t'
		
		ls_mdftext_str = ls_mdftext_str+ls_ColName+"_t.text='"+ls_ds.Object.cnewtitle[ls_i]+"'~t"
		
		ls_titlex_str = ls_titlex_str+ls_ColName+"_t.x="+String(ls_ds.Object.titlex[ls_i])+'~t'
		ls_titley_str = ls_titley_str+ls_ColName+"_t.y="+String(ls_ds.Object.titley[ls_i])+'~t'
		
		ls_x_str = ls_x_str+ls_ColName+".x="+String(ls_ds.Object.X[ls_i])+'~t'
		ls_y_str = ls_y_str+ls_ColName+".y="+String(ls_ds.Object.Y[ls_i])+'~t'
		ls_cwidth = ls_cwidth+ls_ColName+".width="+String(ls_ds.Object.cwidth[ls_i])+'~t'
		ls_cheight = ls_cheight+ls_ColName+".height="+String(ls_ds.Object.cheight[ls_i])+'~t'
		ls_alignment = ls_alignment+ls_ColName+".alignment="+String(ls_ds.Object.Alignment[ls_i])+'~t'
		
		ls_taporder = ls_taporder +ls_ColName+".Tabsequence="+String(ls_ds.Object.taporder[ls_i])+'~t'
	NEXT
	
	ins_mdfstr_column_visible = ls_mdfstr
	ins_mdfstr_column_text = ls_mdftext_str
	ins_mdfstr_column_x = ls_titlex_str+ls_x_str
	ins_mdfstr_column_y = ls_titley_str+ls_y_str
	ins_mdfstr_column_width = ls_cwidth
	ins_mdfstr_column_alignment = ls_alignment
	ins_mdfstr_column_height = ls_cheight
	ins_mdfstr_column_taporder = ls_taporder
	
	string ls
	ls = THIS.Modify( ins_mdfstr_column_visible)
	ls = THIS.Modify(ins_mdfstr_column_text)
	ls = THIS.Modify(ins_mdfstr_column_width)
	ls = THIS.Modify(ins_mdfstr_column_x)
	ls = THIS.Modify(ins_mdfstr_column_y)
	ls = THIS.Modify(ins_mdfstr_column_alignment)
	ls = THIS.Modify(ins_mdfstr_column_height)
	//	this.modify(ins_mdfstr_column_taporder)
	
	wf_show(ls_s_rt.Show)
	
	/////保存taborder
	UPDATE sys_user_dwnSyntax
		SET dwnSyntax_layout_column_taporder = :ins_mdfstr_column_taporder
		WHERE empid = :cardw_empid
		AND dwname = :cur_DataObject;
	IF sqlca.SQLCode = 0 THEN
		IF sqlca.SQLNRows = 0 THEN
			INSERT INTO sys_user_dwnSyntax
				(empid,
				dwname,
				dwnSyntax_filter,
				dwnSyntax_sort,
				dwnSyntax_layout_column_visible,
				dwnSyntax_layout_column_width,
				dwnSyntax_layout_column_alignment,
				dwnSyntax_layout_column_pos,
				dwnSyntax_layout_column_edit,
				dwnSyntax_layout_column_font,
				dwnSyntax_layout_column_height,
				dwnSyntax_layout_column_taporder)
				Values(:cardw_empid,:cur_DataObject,'','','','','','','','','',:ins_mdfstr_column_taporder);
		END IF
		
		COMMIT;
	END IF
	/////////////////////////
	
ELSEIF ls_s_rt.flag = 2 THEN //reset
	uf_reset_layout(uc_column_int)
	uf_save_profile_layout()
ELSEIF ls_s_rt.flag = 3 THEN //reset one
	uf_reset_layout_one(ls_s_rt.rownumber)
	uf_save_profile_layout()
END IF

//清除taborder
THIS.TriggerEvent('c_taporder')

DESTROY ls_ds







end event

event dwnkey;IF KeyDown(KeyF2!)  THEN //save layout 不含列显示
	This.TriggerEvent('ue_setlayout')
ELSEIF KeyDown(KeyF9!)  THEN //save layout 全部重置，包括按钮等控件
	uf_reset_layout_all()
END IF

This.TriggerEvent('ue_taborder_cancel')


//键盘操作触发事件
Long ll_x,ll_y,ll_wid,ll_hig
Long i
String ls_name

//st_1.text = ''

IF Key = Keyleftarrow! Or Key = Keyrightarrow! Or Key = Keyuparrow! Or Key = Keydownarrow!  THEN
	SetRedraw(False)
	CHOOSE CASE keyflags
		CASE 1
			CHOOSE CASE Key
				CASE Keyleftarrow!
					FOR i = 1 To cur_select
						ls_name = cur_chname[i]
						ll_wid = Long(This.Describe(ls_name+'.width'))
						ll_wid = ll_wid - 2
						This.Modify(ls_name+'.width ='+String(ll_wid))
					NEXT
				CASE Keyrightarrow!
					FOR i = 1 To cur_select
						ls_name = cur_chname[i]
						ll_wid = Long(This.Describe(ls_name+'.width'))
						ll_wid = ll_wid + 2
						This.Modify(ls_name+'.width ='+String(ll_wid))
					NEXT
				CASE Keyuparrow!
					FOR i = 1 To cur_select
						ls_name = cur_chname[i]
						ll_hig = Long(This.Describe(ls_name+'.height'))
						ll_hig = ll_hig - 2
						This.Modify(ls_name+'.height ='+String(ll_hig))
					NEXT
				CASE Keydownarrow!
					FOR i = 1 To cur_select
						ls_name = cur_chname[i]
						ll_hig = Long(This.Describe(ls_name+'.height'))
						ll_hig = ll_hig + 2
						This.Modify(ls_name+'.height ='+String(ll_hig))
					NEXT
			END CHOOSE
		CASE ELSE
			CHOOSE CASE Key
				CASE Keyleftarrow!
					FOR i = 1 To cur_select
						ls_name = cur_chname[i]
						//						st_1.text += ls_name + ' '
						ll_x = Long(This.Describe(ls_name+'.x'))
						ll_x = ll_x - 3
						This.Modify(ls_name+'.x ='+String(ll_x))
					NEXT
				CASE Keyrightarrow!
					FOR i = 1 To cur_select
						ls_name = cur_chname[i]
						//						st_1.text += ls_name + ' '
						ll_x = Long(This.Describe(ls_name+'.x'))
						ll_x = ll_x + 3
						This.Modify(ls_name+'.x ='+String(ll_x))
					NEXT
				CASE Keyuparrow!
					FOR i = 1 To cur_select
						ls_name = cur_chname[i]
						//						st_1.text += ls_name + ' '
						ll_y = Long(This.Describe(ls_name+'.y'))
						ll_y = ll_y - 3
						This.Modify(ls_name+'.y ='+String(ll_y))
					NEXT
				CASE Keydownarrow!
					FOR i = 1 To cur_select
						ls_name = cur_chname[i]
						//						st_1.text += ls_name + ' '
						ll_y = Long(This.Describe(ls_name+'.y'))
						ll_y = ll_y + 3
						This.Modify(ls_name+'.y ='+String(ll_y))
					NEXT
			END CHOOSE
	END CHOOSE
	SetRedraw(True)
ELSEIF Key = Keydelete! THEN
	SetRedraw(False)
	FOR i = 1 To cur_select
		ls_name = cur_chname[i]
		This.Modify(ls_name+'.visible = 0')
	NEXT
	SetRedraw(True)
ELSEIF keyflags = 2 and Key = KeyZ! THEN
	SetRedraw(False)
	FOR i = 1 To cur_select
		ls_name = cur_chname[i]
		This.Modify(ls_name+'.visible = 1')
	NEXT
	SetRedraw(True)
END IF







end event

event destructor;IF cur_type = -1 THEN RETURN


CALL SUPER:: Destructor

end event

event constructor;IF cur_start = 0 THEN RETURN

CALL SUPER:: Constructor

dw_1.InsertRow(0)

Long nColumnCount,nColumnIndex
String des_1,des_2,szColumn
nColumnCount = Integer( THIS.Object.DataWindow.Column.Count)

FOR nColumnIndex = 1 TO nColumnCount
	des_1 = THIS.Describe( "#" + String(nColumnIndex) + ".Name")
	des_2 = THIS.Describe(des_1+ "_t.Text")
	
	szColumn = f_strip( des_2)
	IF szColumn <> "!" THEN
		THIS.SetItem(1,des_1,des_2)
	END IF
NEXT


end event

event clicked;call super::clicked;
String ls_type,ls_dwoname ,is_dwobject
String is_dwtype


ls_type = Trim(Upper(dwo.Type))
ls_dwoname = Trim(dwo.Name)
is_dwtype = ls_type

IF Not IsValid(dwo) THEN RETURN

CHOOSE CASE ls_type

	CASE   "TEXT" , "CommandButton" , "GROUPBOX"
		is_dwobject = ls_dwoname
		This.Modify(ls_dwoname+".color = 128")
		This.Modify(ls_dwoname+'.border = 5')
		
	CASE "LINE"
		is_dwobject = ls_dwoname
		
	CASE "RECTANGLE","ELLIPSE","GRAPH","BITMAP"
		is_dwobject = ls_dwoname
		This.Modify(ls_dwoname+".color = 128")
		This.Modify(ls_dwoname+'.border = 5')
		
	CASE "COLUMN","COMPUTE"
		is_dwobject = ls_dwoname
		This.Modify(ls_dwoname+".color = 128")
		This.Modify(ls_dwoname+'.border = 5')
		This.Modify(ls_dwoname+"_t.color = 128")
		This.Modify(ls_dwoname+'_t.border = 5')
		//	case "DATAWINDOW"
		//		return
		
END CHOOSE

////////////////// //
IF This.DataObject = '' THEN RETURN

String des_1,des_2,szColumn
String ls_mdfstr_vis = ''
String ls_mdfstr_wi = ''
String ls_mdfstr_x = ''
String ls_mdfstr_y = ''
String ls_mdfstr_text = ''
String ls_mdfstr_alignment = ''
String ls_mdfstr_height = ''
Long ll_cnt = 0

Long nColumnIndex,nColumnCount,lRow,ls_i

String ls_name
ls_name = This.Describe("DataWindow.Objects")

datastore  ls_ds
ls_ds = Create datastore
ls_ds.DataObject = This.DataObject


IF KeyDown(keyControl!) THEN
	cur_select = UpperBound(cur_chname)
	cur_select ++
	cur_chname[cur_select] = ls_dwoname
	cur_x = Long(This.Describe( ls_dwoname +'.x'))
	cur_y = Long(This.Describe( ls_dwoname +'.y'))
ELSE
	String ls_a[]
	Long i = 0
	String ls_null[]
	
	IF UpperBound(cur_chname) > 0 THEN
		FOR i = 1 To cur_select
			IF cur_chname[i] = ls_dwoname THEN RETURN
		NEXT
	END IF
	
	DO WHILE Pos(ls_name,'~t') > 1
		i++
		ls_a[i] = Mid(ls_name,1,Pos(ls_name,'~t') -1)
		ls_name = Mid(ls_name,Pos(ls_name,'~t') + 1,Len(ls_name))
	LOOP
	
	i++
	ls_a[i] = ls_name
	
	cur_select = 0
	cur_chname = ls_null
	FOR  i = 1 To UpperBound(ls_a)
		des_1 = ls_a[i]
		IF ls_dwoname = des_1 Or ls_dwoname+'_t' = des_1 THEN
			dwoselect = ls_dwoname
			
			ll_cnt ++
			cur_x = Long(This.Describe( des_1 +'.x'))
			cur_y = Long(This.Describe( des_1 +'.y'))
			
			cur_select++
			cur_chname[cur_select] = des_1
			cur_chX[cur_select] = cur_x
			cur_chY[cur_select] = cur_y
		ELSE
			This.Modify(des_1+".color = "+ls_ds.Describe(des_1+".color"))
			This.Modify(des_1+".border = 2 ")
		END IF
	NEXT
	
	IF ll_cnt <= 0 THEN
		cur_select = 0
	END IF
END IF




end event

event resize;call super::resize;IF cur_resize = 0 THEN RETURN

IF THIS.X <> 0 THEN
	THIS.X = 0
END IF

IF THIS.Y <> 180 THEN
	THIS.Y = 180
END IF

Long ll_width,ll_height
ll_width = wf_get_max(1)
ll_height = wf_get_max(2)

IF THIS.Width < ll_width THEN
	IF ll_width + 40 >= PARENT.Width THEN
		THIS.Width = PARENT.Width - 40
	ELSE
		THIS.Width = ll_width
	END IF
ELSE
	IF THIS.Width + 40 >= PARENT.Width THEN
		THIS.Width = PARENT.Width - 40
	END IF
END IF

IF THIS.Height < ll_height THEN
	IF ll_height + 150 + THIS.Y >= PARENT.Height THEN
		THIS.Height = PARENT.Height - THIS.Y - 150
	ELSE
		THIS.Height = ll_height
	END IF
ELSE
	IF THIS.Height + 150 + THIS.Y >= PARENT.Height THEN
		THIS.Height = PARENT.Height - THIS.Y - 150
	END IF
END IF





end event

event rbuttondown;//
end event

type cb_1 from uo_imflatbutton within w_uc_mod
integer x = 901
integer width = 151
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "保存"
string normalpicname = "ok.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;//保存修改好布局
cur_type = 1
//dw_1.triggerevent(destructor!)
dw_1.uf_save_profile_layout()
/////////////////////


close(parent)
end event

type cb_2 from uo_imflatbutton within w_uc_mod
integer x = 750
integer width = 151
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "应用"
string normalpicname = "update.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;//保存修改好布局
cur_type = 1
//dw_1.TriggerEvent(Destructor!)

dw_1.uf_save_profile_layout()
/////////////////// //
Long ll_width,ll_height

IF cur_mainid > 0 THEN
	f_reset_uc(cur_mainid,dw_1.Width,dw_1.Height)
END IF




end event

type cb_3 from uo_imflatbutton within w_uc_mod
integer width = 256
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "属性修改"
string normalpicname = "setting.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;dw_1.triggerevent('ue_setlayout')


end event

type cb_4 from uo_imflatbutton within w_uc_mod
integer x = 256
integer width = 247
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "自动顺序"
string normalpicname = "p2.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;//自动分配taborder
wf_aoto_taborder()
//////--------------------
end event

type cb_5 from uo_imflatbutton within w_uc_mod
integer x = 503
integer width = 247
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "重置布局"
string normalpicname = "p1.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;dw_1.uf_reset_layout_all()


//dw_1.dataobject = dw_1.dataobject
//dw_1.settransobject(sqlca)
end event

type cb_6 from uo_imflatbutton within w_uc_mod
integer x = 1051
integer width = 430
integer height = 164
integer taborder = 50
boolean bringtotop = true
string text = "保存到所有用户"
string normalpicname = "ok.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;//保存修改好布局
cur_type = 1
//dw_1.triggerevent(destructor!)
dw_1.uf_clear_layout()
dw_1.uf_save_profile_layout_super()
/////////////////////


close(parent)
end event

type r_bar from rectangle within w_uc_mod
long linecolor = 16777215
long fillcolor = 1073741824
integer x = 2203
integer width = 91
integer height = 156
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar.beginy - 5

end event

type ln_bar from line within w_uc_mod
long linecolor = 268435456
integer linethickness = 4
integer beginy = 172
integer endx = 3200
integer endy = 172
end type

type ln_bar2 from line within w_uc_mod
long linecolor = 16777215
integer linethickness = 4
integer beginx = 9
integer beginy = 176
integer endx = 3273
integer endy = 176
end type