07/02/17 15:11:52
>>689
substr( $lParam, 48, 8, $clrText);
を
substr(unpack("P56", pack("L",$lParam)), 48, 8, $clrText);
にするとエラーは無くなるが、文字色は変わらない。
要するに、$lParamはNMLVCUSTOMDRAW構造体へのポインタ
cf. URLﾘﾝｸ(www.kumei.ne.jp)
であって、この構造体の中身を書き換えればいいように思えるのだが、
Perl でどうすればいいのかわからない。