« ☆TreeViewのチェックボックスを設定する。 | トップページ | ☆JWWファイルの超簡易表示 その3 »

☆TreeViewのノードを太字にする。

TreeViewのチェックボックスを設定する処理を模索していたときに見つけたTVIS_BOLD。 これを使うと、以下の処理で確かに太字になるのですが、使い方が正しいかどうかは不明です(^^;

uses CommCtrl;

procedure TForm1.FormCreate(Sender: TObject);

  procedure SetBold(Node: TTreeNode);
  var
    TvItem: TTVItem;
  begin
    TvItem.hItem := Node.ItemId;
    TvItem.stateMask := TVIS_BOLD;
    TvItem.mask := TVIF_HANDLE or TVIF_STATE;
    TvItem.state := TVIS_BOLD;
    TreeView_SetItem(TreeView1.Handle, TvItem);
  end;

var
  I: Integer;
  Node: TTreeNode;
begin
  for I := 0 to 10 do
  begin
    Node := TreeView1.Items.Add(nil, 'Item'+IntToStr(I));
    SetBold(Node);
  end;
end;

|

« ☆TreeViewのチェックボックスを設定する。 | トップページ | ☆JWWファイルの超簡易表示 その3 »