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.505 by h677, Fri Mar 18 13:39:48 2005 UTC revision 1.506 by h677, Sat Mar 19 13:58:18 2005 UTC
# Line 4041  var Line 4041  var
4041  begin  begin
4042  //      if FActiveList <> Obj then begin  //      if FActiveList <> Obj then begin
4043                  FActiveList := Obj;                  FActiveList := Obj;
4044            try
4045                  if ListView.Selected <> nil then                          if ListView.Selected <> nil then
4046                          idx := ListView.Selected.Index                                  idx := ListView.Selected.Index
4047                  else                          else
4048                          idx := -1;                                  idx := -1;
4049            except
4050                    idx := -1;
4051            end;
4052                  ListView.Items.Count := 0;                  ListView.Items.Count := 0;
4053                  ListView.Items.Clear;                  ListView.Items.Clear;
4054                  ListView.Selected := nil;                  ListView.Selected := nil;

Legend:
Removed from v.1.505  
changed lines
  Added in v.1.506

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