Board index » Visual Studio » vbaccelerator API richedit in WinXP themes

Visual Studio322
Hello,



I built the ActiveX Documentor (TLBHelp.exe)

with VB6 sp4, on Win2k sp3. This was the

original code from 1998.



It works fine in the Dev. environment.

The API RichEdit control has no gliches.



Then I dualboot over to WinXP sp1. There

I have TLBinf32.dll and SSubTmr.dll both

installed and registered.=20



When I use the (eye candy) WinXP Themes

I can run the App with no crashes, but the

RichEdit control clips at about 8000 twips or

at about 535 pixels in my 1280x1024 screen



I tried to toggle the clip_controls flag of

the host PicBox -- no help.=20



However, when I change the display property

to classic themes, it works flawlessly -- there

is no clipping the RichEdit!



I've looked over everything I can think of and

I'm about to quit trying to fix it and try to

be content with the Classic themes.



the new version of the code (Feb 2003) is here:

vbaccelerator.com/home/VB/Utilities/ActiveX_Documenter/article.asp=





When I tried to run this in WinXP, it crashed before

opening.



Has anyone experienced the same trouble, or have

you found a fix?



regards,

tlviewer


-

(update)

"tlviewer" <tlviewerSHRUB@yahoo.CHENEY.com>wrote in message =



the new version of the code (Feb 2003) is here:

vbaccelerator.com/home/VB/Utilities/ActiveX_Documenter/article.asp=">vbaccelerator.com/home/VB/Utilities/ActiveX_Documenter/article.asp=





When I tried to run this in WinXP, it crashed before

opening.=20



P.S.

Since I tried running the prebuilt VB6 EXE, I rebuilt

the TLBHelp6.exe in Win2k sp3. This new version opened

in my WinXP partition. The new VBRichEdit.ctl has added

logic to redraw scroll bars and throw scrolling=20

events. The clipping trouble went away -- nice work

Steve Mac!



regards,

tlviewer





-

tlviewer wrote:

--- fDev.frm.old Sun Feb 23 20:17:06 2003

+++ fDev.frm Wed Aug 04 16:54:35 2004

@@ -344,2 +344,3 @@

Private m_cHtml As cStringBuilder

+Private m_hlib As Long



@@ -1505,2 +1506,10 @@

End Sub

+

+Private Sub Form_Initialize()

+m_hlib = LoadLibrary("shell32.dll")

+End Sub

+

+Private Sub Form_Unload(Cancel As Integer) ' fix exit crash

+ FreeLibrary(m_hlib)

+End Sub ' end crash fix









-