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
_______________________________________________
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.
