Q&A

  • [질문]Caption 의 값을 굵은 표시하고자 할때...
TabSheet, TreeView등의 컴퍼넌트에서 Caption 의 값을 굵은 표시를 하고자 하는데...

무슨 이유에서인지 안되더라구여!

예시로 TPanel(PageControl.ActivePage).Font.Style := [fsBold]; 이케 했거든여!

이제 쌩뚱맞은 것인가여?

TreeView의 경우도 선택된 노드를 굵게 표시하고 하는데 위와 비슷한 방법을 사용했구여!

이케 안되는건가여? 다른 방법이 있을까여?
1  COMMENTS
  • Profile
    구창민 2009.01.22 00:40
    안녕하세요...

    아래 예제를 참고해 보세요...

    즐거운 프로그래밍 하시구요...

    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;