treeview 'de boyama

[delphikursu]

iyi günler arkadaşlar ben treeview de işaretlediğim yazının boyanmasını istiyorum
yani başka bir nesneyi seçtiğimde treeviewde ne secili olduğunu görmek istiyorum

[husonet]

Fazla inceleyemedim ama sanırım vereceğim kodlarla işini görebilirsin.

Kod: Tümünü seç

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, CommCtrl, XMLIntf;

Proje içi

Kod: Tümünü seç

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;
procedure TForm1.TreeView1Click(Sender: TObject);
Var
  Node: TTreeNode;
begin
  SetNodeBoldState(TreeView1.Selected ,True); //Yazıları bold yapmak için
end;

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  If node.Text= 'HUSONET' then //Menudeki textlere renk vermek için
    treeview1.canvas.font.Color:=clGreen
  else
  If node.Text= 'DELPHITURKIYE' then
    treeview1.canvas.font.Color:=clred;
end;

Kolay Gelsin...