Perlについての質問箱 29箱目

Perlについての質問箱 29箱目 at TECH

690:デフォルトの名無しさん
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 でどうすればいいのかわからない。

次ページ

続きを表示

1を表示