Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 1773 |
end; |
end; |
| 1774 |
|
|
| 1775 |
try |
try |
| 1776 |
|
for i := 0 to Length( BBSs ) - 1 do begin |
| 1777 |
|
if BBSs[ i ] <> nil then |
| 1778 |
|
BBSs[ i ].Free; |
| 1779 |
|
BBSs[ i ] := nil; |
| 1780 |
|
end; |
| 1781 |
|
except |
| 1782 |
|
end; |
| 1783 |
|
try |
| 1784 |
for i := 0 to Length( BoardPlugIns ) - 1 do begin |
for i := 0 to Length( BoardPlugIns ) - 1 do begin |
| 1785 |
if BoardPlugIns[ i ] <> nil then |
if BoardPlugIns[ i ] <> nil then |
| 1786 |
BoardPlugIns[ i ].Free; |
BoardPlugIns[ i ].Free; |
| 1789 |
except |
except |
| 1790 |
end; |
end; |
| 1791 |
|
|
|
try |
|
|
for i := 0 to Length( BBSs ) - 1 do begin |
|
|
if BBSs[ i ] <> nil then |
|
|
BBSs[ i ].Free; |
|
|
BBSs[ i ] := nil; |
|
|
end; |
|
|
except |
|
|
end; |
|
| 1792 |
|
|
| 1793 |
try |
try |
| 1794 |
for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin |
for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin |
| 4768 |
procedure TGikoForm.ListViewDblClick(Sender: TObject); |
procedure TGikoForm.ListViewDblClick(Sender: TObject); |
| 4769 |
begin |
begin |
| 4770 |
ListDoubleClick; |
ListDoubleClick; |
| 4771 |
|
|
| 4772 |
end; |
end; |
| 4773 |
|
|
| 4774 |
procedure TGikoForm.LogDeleteActionExecute(Sender: TObject); |
procedure TGikoForm.LogDeleteActionExecute(Sender: TObject); |
|
|
Legend:
| Removed from v.1.152 |
|
| changed lines |
| |
Added in v.1.153 |
|
|
|