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.375 by yoffy, Mon Aug 2 15:11:56 2004 UTC revision 1.376 by yoffy, Tue Aug 3 17:21:51 2004 UTC
# Line 1839  end; Line 1839  end;
1839    
1840  procedure TGikoForm.FormDestroy(Sender: TObject);  procedure TGikoForm.FormDestroy(Sender: TObject);
1841  var  var
1842          i: Integer;          i                               : Integer;
1843  //      CoolSet: TCoolSet;  //      CoolSet: TCoolSet;
1844          wp: TWindowPlacement;          wp                      : TWindowPlacement;
1845          tmpBool: Boolean;          tmpBool : Boolean;
1846            Node            : TTreeNode;
1847  begin  begin
1848  //      Application.OnDeactivate := nil;  //      Application.OnDeactivate := nil;
1849  //      Self.OnDeactivate := nil;  //      Self.OnDeactivate := nil;
# Line 1934  begin Line 1935  begin
1935          LockWindowUpdate(0);          LockWindowUpdate(0);
1936          try          try
1937                  TreeView.Items.BeginUpdate;                  TreeView.Items.BeginUpdate;
1938                  for i := TreeView.Items.Count - 1 downto 0 do begin                  Node := TreeView.Items.GetFirstNode;
1939                          TreeView.Items[i].Free;                  while Node <> nil do begin
1940                            Node.Free;
1941                            Node := Node.GetNext;
1942                  end;                  end;
1943                  TreeView.Items.Clear;                  TreeView.Items.Clear;
1944                  TreeView.Items.EndUpdate;                  TreeView.Items.EndUpdate;

Legend:
Removed from v.1.375  
changed lines
  Added in v.1.376

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