Hello,
Form is allowed to resize only diagonally.
When trying to use Left, Right, Top or Bottom border to resize, the form is
prevented from resizing but there is a flicker of form's outline (in both:
In or Out direction).
By using WM_GETMINMAXINFO I can prevent that flicker when the form is at
it's minimum or maximum specified size, but I do not know how to stop that
flicker in intermediate state.
(when trying to use the current form's width and height as minimum (maximum)
value the resizing stop working).
Below, the code I use:
===============
Public Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal
wParam As Long, ByVal lParam As Long) As Long
On Error GoTo error_WindowProc
Select Case hw
Case gHwnd
Select Case uMsg
Case WM_GETMINMAXINFO
Dim MMI As MINMAXINFO
CopyMemory MMI, ByVal lParam, LenB(MMI)
With MMI
.ptMinTrackSize.X = MinWindowWidth / TwipsX
.ptMinTrackSize.Y = MinWindowHeight / TwipsY
.ptMaxTrackSize.X = Screen.height / TwipsY * 0.43
.ptMaxTrackSize.Y = Screen.height / TwipsY
End With
CopyMemory ByVal lParam, MMI, LenB(MMI)
WindowProc = 0
Case WM_SIZING
Select Case wParam
Case WMSZ_BOTTOMRIGHT
GoTo Aspect_Ratio
End Select
Case Else
GoTo error_WindowProc
End Select
End Select
Exit Function

Aspect_Ratio:
Dim rc As RECT
CopyMemory rc, ByVal lParam, LenB(rc)
rc.Bottom = (rc.Right - rc.Left) * 2.35 + rc.Top
CopyMemory ByVal lParam, rc, LenB(rc)
WindowProc = 1
Exit Function

error_WindowProc:
WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Function

Thanks,
Jack

Archived from group: microsoft>public>vb>general>discussion