Hi Paul, Thanks for your reply.
I'll make some tests here too, and for sure will forward your solution to Carlos and Malcolm Cesar > Cesar > > Many thanks for your reply. I finally got it working but had to make a > couple of changes to your code. Note that my "scontainer" does NOT > contain an image but rather a child container "chldContainer". Here are > the changes I had to make: > > > 2 - The better way, and probably how it will be fixed: > > > > a - in method Ctl32_BindEvents, add the following code at the end; > > > > > > *!* Control Resizement > > Bindevent(This.Controls(1), Width, This, EvtHandler_Size, 1) > > Bindevent(This.Controls(1), Height, This, EvtHandler_Size, 1) > > > The preceding code had to be changed thus: > > Bindevent(This.Controls(1), [Width], This, [EvtHandler_Size], 1) > > Bindevent(This.Controls(1), [Height], This, [EvtHandler_Size], 1) > > b - Create a new method, and call it "EvtHandler_Size" and put this code in > > it: > > > > > > With This.Controls(1) > > This.nOriginalWidth = .Width > > This.nOriginalHeight = .Height > > This.nZoomIndex = This.nDefaultZoomIndex > > ShowScrollBar(This.nHCtlHwnd, SB_CTL, 0) > > ShowScrollBar(This.nVCtlHwnd, SB_CTL, 0) > > This.ctl32_Resize() > > If This.ctlVEnabled Then > > This.ctlVVAlue = 0 > > ENDIF > > If This.ctlHEnabled Then > > This.ctlHValue = 0 > > ENDIF > > ENDWITH > > This.ctlZoom = 100 > > > In the preceding code I commented out the two lines: > > This.nZoomIndex = This.nDefaultZoomIndex > > This.ctlZoom = 100 > > It would probably be better to surround these statement with > > IF This.Controls(1).BaseClass = [Image] > > ENDIF > > This way, the control will automatically update its scrollbars when width > > or > > height are changed. > > > Yes but I am NOT changing the size of the "scontainer", I am changing > the size of the "ChldContainer".. To get around this I have changed my > code to look like this: > > WITH ...... > > .chldContainer.Height = lNNewHeight && defined somewhere in > preceding code > .chldContainer.Parent.Height = .chldContainer.Parent.Height > > ENDWITH > > So it all works OK now but Carlos (and Malcolm ?) will probably want to > take note of my feedback when they come to implement a solution. > Perhaps you would like to forward this to them ? > > Best regards > > Paul > > > [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/[EMAIL PROTECTED] ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
