Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.571 by h677, Tue Dec 20 15:23:25 2005 UTC revision 1.572 by h677, Wed Dec 21 15:56:48 2005 UTC
# Line 2023  begin Line 2023  begin
2023          if vSortIndex = id then          if vSortIndex = id then
2024                  vSortOrder := not vSortOrder                  vSortOrder := not vSortOrder
2025          else begin          else begin
2026                  vSortOrder := True;                  vSortOrder := id = 0;
2027          end;          end;
2028  {$IFDEF DEBUG}  
         If vSortOrder then begin  
                 Writeln('True  : id:' + IntToStr(id) + ' SI:' + IntToStr(vSortIndex));  
         end else begin  
         Writeln('False : id:' + IntToStr(id) + ' SI:' + IntToStr(vSortIndex));  
         end;  
 {$ENDIF}  
2029          TListViewUtils.ListViewSort(Sender, ListView, Column, GikoDM.ListNumberVisibleAction.Checked, vSortOrder);          TListViewUtils.ListViewSort(Sender, ListView, Column, GikoDM.ListNumberVisibleAction.Checked, vSortOrder);
2030  end;  end;
2031    

Legend:
Removed from v.1.571  
changed lines
  Added in v.1.572

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26