1. Peter Middlestorb
  2. PowerBuilder
  3. Wednesday, 22 March 2023 18: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 type

Control 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.vscrollbar

Screen shots...

Windows Server 2019

Windows 10

[END]

Attachments (1)
Chris Pollach @Appeon Accepted Answer Pending Moderation
  1. Wednesday, 22 March 2023 20:10 PM UTC
  2. PowerBuilder
  3. # 1

Hi Peter;

  For this issue, I would strongly suggest opening a Support Ticket so that Appeon can delve into this issue much deeper for you.

Regards ... Chris

Comment
  1. Miguel Leeuwe
  2. Thursday, 23 March 2023 03:18 AM UTC
Added to what Chris said, I don't think that your Office version has anything to do with it.
  1. Helpful
There are no comments made yet.
Peter Middlestorb Accepted Answer Pending Moderation
  1. Thursday, 23 March 2023 10:05 AM UTC
  2. PowerBuilder
  3. # 2

Thanks Chris, have raised bug with same title.  Will update this post with outcome as bug is not public.

Comment
There are no comments made yet.
  • Page :
  • 1


There are no replies made for this question yet.
However, you are not allowed to reply to this question.