Subversion Repositories userdetect2

Rev

Rev 72 | Rev 81 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 72 Rev 77
Line 94... Line 94...
94 
  Header_SetItem(Header, FSortedColumn, Item);
 94 
  Header_SetItem(Header, FSortedColumn, Item);
95 
end;
 95 
end;
96 
 
 96 
 
97 
procedure TVTSListView.WMNotifyMessage(var msg: TWMNotify);
 97 
procedure TVTSListView.WMNotifyMessage(var msg: TWMNotify);
98 
begin
 98 
begin
- 
 
 99 
  try
99 
  inherited;
 100 
    inherited;
- 
 
 101 
  except
- 
 
 102 
    // Workaround for Delphi 6, which raises an EAccessViolation in
- 
 
 103 
    // CallWindowProc at TWinControl.DefaultHandler, when the code executed
- 
 
 104 
    // on Windows Server 2008.
- 
 
 105 
  end;
100 
  if (Msg.NMHdr^.code = HDN_ENDTRACK) and (FSortedColumn > -1) then
 106 
  if (Msg.NMHdr^.code = HDN_ENDTRACK) and (FSortedColumn > -1) then
101 
  begin
 107 
  begin
102 
    ShowArrowOfListViewColumn;
 108 
    ShowArrowOfListViewColumn;
103 
  end;
 109 
  end;
104 
end;
 110 
end;