Türkiye'nin ilk Oyun Forumlarından olan Oyunsiteniz 17 Yasinda

OyunSiteniz ARŞİV Bölümü => GERİ DÖNÜŞÜM KUTUSU => Konuyu başlatan: nadir_pıero - 04 Aralık 2006, 08:56:56

Başlık: Treeviewde Itemları Kalın Gosterme
Gönderen: nadir_pıero - 04 Aralık 2006, 08:56:56

uses
  CommCtrl;

procedure SetNodeBoldState(Node: TTreeNode; Value: Boolean);
var
  TVItem: TTVItem;
begin
  if not Assigned(Node) then Exit;
  with TVItem do
  begin
    mask := TVIF_STATE or TVIF_HANDLE;
    hItem := Node.ItemId;
    stateMask := TVIS_BOLD;
    if Value then state := TVIS_BOLD
    else
      state := 0;
    TreeView_SetItem(Node.Handle, TVItem);
  end;
end;

// Örnek olarak ilk satırı kalın yapalım

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetNodeBoldState(TreeView1.Items[0], True);
end;

Başlık: Treeviewde Itemları Kalın Gosterme
Gönderen: LeGeND-MæN - 03 Mart 2007, 14:35:20

emeğine sağlık..

Başlık: Treeviewde Itemları Kalın Gosterme
Gönderen: N0RM - 06 Nisan 2007, 21:40:02

emeğine sağlık...