procedure SetNodeState(Node: TTreeNode; Flags: Integer);
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 or TVIS_CUT;
state := Flags;
TreeView_SetItem(Node.Handle, TVItem);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetNodeState(TreeView1.Items[0], TVIS_BOLD);
end;
TabSheet, TreeView등의 컴퍼넌트에서 Caption 의 값을 굵은 표시를 하고자 하는데... 무슨 이유에서인지 안되더라구여! 예시로 TPanel(PageControl.ActivePage).Font.Style := [fsBold]; 이케 했거든여! 이제 쌩뚱맞은 것인가여? TreeVie...
구창민
•
2009.01.22 00:40
안녕하세요...
아래 예제를 참고해 보세요...
즐거운 프로그래밍 하시구요...
uses
CommCtrl...
아래 예제를 참고해 보세요...
즐거운 프로그래밍 하시구요...
uses
CommCtrl;
procedure SetNodeState(Node: TTreeNode; Flags: Integer);
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 or TVIS_CUT;
state := Flags;
TreeView_SetItem(Node.Handle, TVItem);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetNodeState(TreeView1.Items[0], TVIS_BOLD);
end;