Srp_Set_Minmaxinfo stopped working.

jimvaughan

I was using Srp_Set_Minmaxinfo to fix the size of mdi child windows. It stopped working, windows could be resized. If I replace the code with code that sets the TRACKINGSIZE property it works. In the code below commented out code does not work, other code works.

No real need for a fix as I have a workaround. Just wanted to report the issue in case anyone else hits a similar situation.

Subroutine Fix_Size(Window)
Declare Function Get_Property, Set_Property

If Window # "REPORTING_ENTRY" Then
CurSize = Get_Property(Window, "SIZE")
MinW = CurSize<3>
MinH = CurSize<4>
MaxW = CurSize<3>
MaxH = CurSize<4>
x = Set_Property(Window,"TRACKINGSIZE",MinW:@FM:MinH:@FM:MaxW:@FM:MaxH)
* Size = Get_Property(Window, "Size")
* Fixedsize = Size<3>:@FM:Size<4>
* Call Srp_Set_Minmaxinfo(Window, Fixedsize, Fixedsize, Fixedsize)
End
Return

KevinFournier

SRP_Set_Minmaxinfo was written eons ago, before TRACKINGSIZE was a thing. TRACKINGSIZE is definitely the better way to go if possible.

jimvaughan

Indeed it was eons ago :) I'' use trackingsize.