Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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; |
| 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 |
|
|
|