-
Peter Middlestorb
- PowerBuilder
- Wednesday, 22 March 2023 06:13 PM UTC
Hi, have searched the forums for "richtextedit", but found nothing relevant to this, so...
For PB2022 build 1892 creating a 32-bit executable.
Using a richtextedit control into which is loaded a multi-page word document.
The same executable displays differently on Windows Server 2019 with Microsoft Office Professional Plus 2019 versus Windows 10 Enterprise 22H2 with Microsoft 365 Apps for enterprise.
On Windows Server the richtextedit displays with a vertical scroll bar, the PgUp and PgDn keys do nothing and the page area fills the whole control (all the margins are set to zero in the designer).
On Windows 10 the richtextedit does not display a vertical scroll bar (despite .vscrollbar being true when queried) the PgUp and PgDn keys scroll through the pages and the page has been scaled to fit the richtextedit.
As (I think) these are both using the "Build-in TX Text Control ActiveX", any ideas please? Is it a "Word thing"?...
Simple source attached, including a the multi-page word document which has dummy text.
Control attributes...
type rte_doc from richtextedit within w_disp_doc_main
integer x = 18
integer y = 28
integer width = 4087
integer height = 2500
integer taborder = 10
integer textsize = -8
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
boolean init_hscrollbar = true
boolean init_vscrollbar = true
long init_backcolor = 16777215
boolean init_displayonly = true
borderstyle borderstyle = stylelowered!
end typeControl loader code...
string ls_word_document
ls_word_document = ".\ohms_doc.doc"
rte_doc.setredraw(false)
rte_doc.displayonly = false
rte_doc.preview(false)
li_retval = rte_doc.insertdocument(ls_word_document, true, FileTypeDoc!)
if li_retval < 0 then
if len(ls_word_document) <= 0 then
messagebox(this.title, "Unexpected error: Null or invalid word document name parameter.")
else
messagebox(this.title, "Unexpected error: " + string(li_retval) + " when opening word document " + ls_word_document + &
"~nPlease check that this document is not in use by another user.")
end if
close(this)
return
end if
rte_doc.preview(true)
rte_doc.displayonly = true
rte_doc.setredraw(true)
st_pages.text = "Pages: " + string(rte_doc.pagecount())
cbx_vscroll.checked = rte_doc.vscrollbarScreen shots...
Windows Server 2019
Windows 10
[END]
Find Questions by Tag
Helpful?
If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.