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)
一応ここにプロジェクト一式置いておきますんで、興味があったら見てみてください。