Q&A

  • 리스트 뷰에서 Item 마다 아이콘을 다르게 할수는 엄나요?
수고하십니다.

리스트뷰를 OnCustomDrawItem 할때 데이타에 따라 아이콘을

다르게 표시할려고 합니다.



그래서 아래와 같이 코딩 했더니

끝없이 루프를 돌더군요 -.-



if item.SubItems.Strings[1] ='---' then

begin

item.ImageIndex :=1

end

else

item.ImageIndex :=0;



어떻게 해야 할까요.

혹시 item 마다 아이콘을 다르게 할수 없는것은 아닌지....



꼭 답변 부탁드립니다.

고맙습니다.









1  COMMENTS
  • Profile
    Ziker 2001.09.08 01:10
    안녕하세요



    참고가 될 런지 모르겠지만.. 유사한 코드 입니다.



    procedure TForm1.TreeViewCustomDrawItem(Sender: TCustomTreeView;

    Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);

    begin



    If PChar(Node.Data) = '{T}' then

    Sender.Canvas.Font.Color := $0094EBD6;

    If PChar(Node.Data) = '{A}' then

    Sender.Canvas.Font.Color := $0094EBD6;

    If PChar(Node.Data) = '{P}' then

    Sender.Canvas.Font.Color := $00E7D7FF;

    If PChar(Node.Data) = '{E}' then

    Sender.Canvas.Font.Color := $00FF6BC6;



    end;



    그럼 즐코~







    쭈꾸미 wrote:

    > 수고하십니다.

    > 리스트뷰를 OnCustomDrawItem 할때 데이타에 따라 아이콘을

    > 다르게 표시할려고 합니다.

    >

    > 그래서 아래와 같이 코딩 했더니

    > 끝없이 루프를 돌더군요 -.-

    >

    > if item.SubItems.Strings[1] ='---' then

    > begin

    > item.ImageIndex :=1

    > end

    > else

    > item.ImageIndex :=0;

    >

    > 어떻게 해야 할까요.

    > 혹시 item 마다 아이콘을 다르게 할수 없는것은 아닌지....

    >

    > 꼭 답변 부탁드립니다.

    > 고맙습니다.

    >

    >

    >

    >