HSPTV!掲示板

リッチエディット内の隠れている文字縦幅を取得したいのですが良い方法が見つかりません。
行数から計算しようと思ったのですがフォントサイズがばらばらの場合難しいです。
最終的になにをしたいと言うと枠からはみ出している文字が出力される調度良い大きさに縦
幅をリサイズしたいです。

例えば、下のソースでボタンを押したときに入力されている文字が全部出力されるよう縦幅
を計算してリサイズしたいです。
よろしくお願いします。

#include "kernel32.as"
#include "user32.as"

LoadLibrary "RICHED20.DLL"
pos 0,0: winobj "RichEdit20A","",0,0x50800104,300,300
//pos 0,0: winobj "RichEdit20A","",0,0x50800004,300,300 // スクロールバーあり
hRich = objinfo_hwnd(stat)
mm="a\na\na\na\na\na\na\na\na\na\na\na\na\na\na\nx\n"
sendmsg hRich, $000000C2, 1, varptr(mm) // EM_REPLACESEL
pos 300,0: button "リサイズ", *bb
stop
*bb
sy=400 // ←ここの縦幅を計算したいです。
MoveWindow hRich,0,0,300,sy,1
stop

/*ご参考*/

#include "kernel32.as"
#include "user32.as"
  LoadLibrary "RICHED20.DLL"
  pos 0,0: winobj "RichEdit20A","",0,0x50800104,300,300
  //pos 0,0: winobj "RichEdit20A","",0,0x50800004,300,300 // スクロールバーあり
  hRich = objinfo_hwnd(stat)
  mm="a\na\na\na\na\na\na\na\na\na\na\na\na\na\na\nx\n"
  sendmsg hRich, $000000C2, 1, varptr(mm) // EM_REPLACESEL
  pos 300,0: button "リサイズ", *bb
;============================== ①
  sendmsg hRich,$445,0,$40000   ; EM_SETEVENTMASK ENM_REQUESTRESIZE)
  oncmd gosub *label,$4E 
; sendmsg hRich,1793,0,0
;============================== ①
  stop
*bb
  sy=400 // ←ここの縦幅を計算したいです。
  MoveWindow hRich,0,0,300,sy,1
  stop
;============================== ②
*label
  dupptr nn,lparam,120          ; REQRESIZE
  if (nn(2) == 1793) {title strf("%d %d %d %d %d",nn(2),nn(3),nn(4),nn(5),nn(6))
                      MoveWindow hRich,0,0,300,nn(6),1}
return
;============================== ②

fortunehillさん、ありがとうございます！！

なるほど、リッチエディットのイベントで取得できるのですね。ほとんど、解決です。
それどころか、入力しながら縦幅が変更されるなんて色々応用が出来そうです。

しばらく悩んでいたのですがもっと早く質問すれば良かったです。
ほんとにありがとうございました。