くだすれDelphi(超初心者用)その47

くだすれDelphi(超初心者用)その47 at TECH

720:719
08/09/27 13:15:17
(つづき)

【OnData イベント】
procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
var
　ColumnWidth: Integer;
begin
　ColumnWidth := ListView1.StringWidth(Format('Item%d', [Item.Index]));
　Item.Caption := Format('Item%d', [Item.Index]);

　if (FListView1ItemIndex = Item.Index) and (FListView1MouseX < 16) then
　　Item.StateIndex := 1
　else
　　Item.StateIndex := 0;

　if ListView1.Columns[0].Width < ColumnWidth + 30 then
　　ListView1.Columns[0].Width := ColumnWidth + 30;
end;

しかしこれだとマウスカーソルをチェックボックスにポイントしても変化しません。
ポイントアイテムの特定がめちゃくちゃなのはわかってますが、ズレてても変化ぐらいはしてもいいと思うのですが…。
アイテムの特定に無理やりな計算をしているのは、GetItemAt メソッドの使用が原因かどうか切り分けたかった
からです。

URLﾘﾝｸ(mackerel205.ddo.jp)

一応ここにプロジェクト一式置いておきますんで、興味があったら見てみてください。

次ページ

続きを表示

1を表示