수고하십니다.
리스트뷰를 OnCustomDrawItem 할때 데이타에 따라 아이콘을
다르게 표시할려고 합니다.
그래서 아래와 같이 코딩 했더니
끝없이 루프를 돌더군요 -.-
if item.SubItems.Strings[1] ='---' then
begin
item.ImageIndex :=1
end
else
item.ImageIndex :=0;
어떻게 해야 할까요.
혹시 item 마다 아이콘을 다르게 할수 없는것은 아닌지....
꼭 답변 부탁드립니다.
고맙습니다.
참고가 될 런지 모르겠지만.. 유사한 코드 입니다.
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 마다 아이콘을 다르게 할수 없는것은 아닌지....
>
> 꼭 답변 부탁드립니다.
> 고맙습니다.
>
>
>
>