CSDN博客

img zxq1207

在PB中限制窗口的 Mini Size

发表于2004/9/28 10:49:00  1125人阅读

分类: PowerBuilder

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 
阅读全文
0 0

相关文章推荐

img
取 消
img