在PB中限制窗口的 Mini Size

1.定义结构，外部函数 
type  point  from  structure 
long    x 
long    y 
end  type 

type  minmaxinfo  from  structure 
point    ptreserved 
point    ptmaxsize 
point    ptmaxposition 
point    ptmintracksize 
point    ptmaxtracksize 
end  type 

subroutine  GetMinMaxInfo  (  ref  minmaxinfo  d,  long  s,  long  l  )  library  'kernel32.dll'  alias  for  RtlMoveMemory   
subroutine  SetMinMaxInfo  (  long  d,  minmaxinfo  s,  long  l  )  library  'kernel32.dll'  alias  for  RtlMoveMemory 

2.定义变量做为窗口的最小宽度和高度（MIN  SIZE） 
long  il_orig_width=400,  il_orig_height=400 

3.自定义事件ue_minmaxinfo(pbm_getminmaxinfo) 

MinMaxInfo  lstr_MinMaxInfo 

/*  copy  the  data,  pointed  by  the  argument  MinMaxInfo,  to  our  lstr_MinMaxInfo  structure  */ 

GetMinMaxInfo(lstr_MinMaxInfo,  MinMaxInfo,  40) 

/*  set  the  minimal  size  for  our  window  */ 


lstr_MinMaxInfo.ptMinTrackSize.x  =  UnitsToPixels(il_orig_width,  XUnitsToPixels!) 
lstr_MinMaxInfo.ptMinTrackSize.y  =  UnitsToPixels(il_orig_height,YUnitsToPixels!) 


/*  copy  the  structure  back  into  memory  at  the  same  place  */ 

SetMinMaxInfo(MinMaxInfo,lstr_MinMaxInfo,40) 

/*  important,  according  to  the  MS  API,  we  must  return  0  */ 

return  0