Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas

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

revision 1.36 by h677, Mon May 29 14:55:21 2006 UTC revision 1.37 by h677, Sun Jun 25 13:14:35 2006 UTC
# Line 1247  begin Line 1247  begin
1247                                          if MsgBox(GikoForm.Handle, StringReplace( DEL_MSG, '^0', ThreadItem.Title, [rfReplaceAll] ) , DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then                                          if MsgBox(GikoForm.Handle, StringReplace( DEL_MSG, '^0', ThreadItem.Title, [rfReplaceAll] ) , DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then
1248                                                  Exit;                                                  Exit;
1249                          GikoForm.DeleteTab(TBrowserRecord(GikoForm.BrowserTab.Tabs.Objects[idx]));                          GikoForm.DeleteTab(TBrowserRecord(GikoForm.BrowserTab.Tabs.Objects[idx]));
1250                GikoForm.DeleteHistory(ThreadItem);
1251                          ThreadItem.DeleteLogFile;                          ThreadItem.DeleteLogFile;
1252                          if ThreadItem.ParentBoard = GikoForm.ActiveList then                          if ThreadItem.ParentBoard = GikoForm.ActiveList then
1253                                  GikoForm.ListView.Refresh;                                  GikoForm.ListView.Refresh;

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

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