Q5/ws_objects/Ew_eb_import.pbl.src/w_html_editor.srw

$PBExportHeader$w_html_editor.srw
forward
global type w_html_editor from w_publ_base
end type
type uo_1 from uo_html_editor within w_html_editor
end type
type cb_ok from uo_imflatbutton within w_html_editor
end type
type ln_bar from line within w_html_editor
end type
type ln_bar2 from line within w_html_editor
end type
type r_bar from rectangle within w_html_editor
end type
end forward

global type w_html_editor from w_publ_base
integer width = 3378
integer height = 2140
string title = "HTML编辑"
boolean minbox = false
windowtype windowtype = response!
uo_1 uo_1
cb_ok cb_ok
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
end type
global w_html_editor w_html_editor

type variables
s_html_editor ins_rslt
end variables

on w_html_editor.create
int iCurrent
call super::create
this.uo_1=create uo_1
this.cb_ok=create cb_ok
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.uo_1
this.Control[iCurrent+2]=this.cb_ok
this.Control[iCurrent+3]=this.ln_bar
this.Control[iCurrent+4]=this.ln_bar2
this.Control[iCurrent+5]=this.r_bar
end on

on w_html_editor.destroy
call super::destroy
destroy(this.uo_1)
destroy(this.cb_ok)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
end on

event open;call super::open;ins_rslt.ifok = 0
ins_rslt.html = Message.StringParm
IF IsNull(ins_rslt.html) THEN ins_rslt.html = ''
uo_1.uf_SetHtml(ins_rslt.html)
end event

event close;call super::close;CloseWithReturn(This, ins_rslt)
end event

event resize;call super::resize;r_bar.Width = this.width

ln_bar.endx = this.width
ln_bar2.endx = this.width

uo_1.height = this.WorkSpaceHeight() - uo_1.Y
uo_1.Width = this.WorkSpaceWidth() - uo_1.X
end event

type cb_func from w_publ_base`cb_func within w_html_editor
boolean visible = false
end type

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

type uo_1 from uo_html_editor within w_html_editor
integer y = 180
integer width = 2670
integer height = 976
integer taborder = 30
boolean bringtotop = true
end type

on uo_1.destroy
call uo_html_editor::destroy
end on

type cb_ok from uo_imflatbutton within w_html_editor
integer width = 151
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "确认"
boolean default = true
string normalpicname = "OK.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;ins_rslt.ifok = 1
ins_rslt.html = uo_1.uf_gethtml()
close(parent)
end event

type ln_bar from line within w_html_editor
long linecolor = 268435456
integer linethickness = 4
integer beginy = 168
integer endx = 2007
integer endy = 168
end type

type ln_bar2 from line within w_html_editor
long linecolor = 16777215
integer linethickness = 4
integer beginy = 172
integer endx = 2039
integer endy = 172
end type

type r_bar from rectangle within w_html_editor
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 1422
integer width = 146
integer height = 68
end type

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

end event