*** 23/06/2009 set the nMinHeight based on the Window Title font size >*** in conjunction with Height_Assign() >*** to avoid height is illegal value error >DO CASE > CASE SYSMETRIC(9) = 36 > *** extra large font > THIS.nMinHeight = 24 > > CASE SYSMETRIC(9) = 30 > *** large font > THIS.nMinHeight = 22 > > OTHERWISE > *** normal font > THIS.nMinHeight = 20 >ENDCASE>
LPARAMETERS vNewVal > >*** 23/06/2009 in conjunction with the code in Init() >*** to avoid height is illegal value error >THIS.HEIGHT = MAX(THIS.nMinHeight, m.vNewVal, THIS.HEADERHEIGHT)>