Q5/ws_objects/Ew_rp.pbl.src/w_col_choose.srw

$PBExportHeader$w_col_choose.srw
forward
global type w_col_choose from window
end type
type cb_1 from commandbutton within w_col_choose
end type
type rb_3 from radiobutton within w_col_choose
end type
type rb_2 from radiobutton within w_col_choose
end type
type rb_1 from radiobutton within w_col_choose
end type
end forward

global type w_col_choose from window
integer width = 686
integer height = 424
boolean titlebar = true
string title = "选择列"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_1 cb_1
rb_3 rb_3
rb_2 rb_2
rb_1 rb_1
end type
global w_col_choose w_col_choose

on w_col_choose.create
this.cb_1=create cb_1
this.rb_3=create rb_3
this.rb_2=create rb_2
this.rb_1=create rb_1
this.Control[]={this.cb_1,&
this.rb_3,&
this.rb_2,&
this.rb_1}
end on

on w_col_choose.destroy
destroy(this.cb_1)
destroy(this.rb_3)
destroy(this.rb_2)
destroy(this.rb_1)
end on

type cb_1 from commandbutton within w_col_choose
integer x = 261
integer y = 20
integer width = 402
integer height = 116
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

event clicked;String ls_new_string
IF rb_1.Checked = True THEN
	ls_new_string = "left"
ELSEIF  rb_2.Checked = True THEN
	ls_new_string = "right"
ELSEIF  rb_3.Checked = True THEN
	ls_new_string = "whole"
END IF
CloseWithReturn(Parent,ls_new_string )

end event

type rb_3 from radiobutton within w_col_choose
integer x = 32
integer y = 208
integer width = 238
integer height = 84
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "全列"
boolean checked = true
end type

type rb_2 from radiobutton within w_col_choose
integer x = 32
integer y = 108
integer width = 238
integer height = 84
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "右列"
end type

type rb_1 from radiobutton within w_col_choose
integer x = 32
integer y = 20
integer width = 238
integer height = 84
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "左列"
end type