- 690 名前：デフォルトの名無しさん mailto:sage [2007/02/17(土) 15:11:52 ]
- >>689
substr( $lParam, 48, 8, $clrText);
を
substr(unpack("P56", pack("L",$lParam)), 48, 8, $clrText);
にするとエラーは無くなるが、文字色は変わらない。
要するに、$lParamはNMLVCUSTOMDRAW構造体へのポインタ
cf. www.kumei.ne.jp/c_lang/sdk3/sdk_261.htm
であって、この構造体の中身を書き換えればいいように思えるのだが、
Perl でどうすればいいのかわからない。
