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.574 by h677, Fri Dec 23 16:39:22 2005 UTC revision 1.575 by h677, Sat Dec 24 07:00:59 2005 UTC
# Line 2724  begin Line 2724  begin
2724                  ListView.Selected := nil;                  ListView.Selected := nil;
2725  //      ListView.Columns.Clear;  //      ListView.Columns.Clear;
2726                  if (FActiveContent <> nil) and (FActiveContent.Thread <> nil)                  if (FActiveContent <> nil) and (FActiveContent.Thread <> nil)
2727                          and (FActiveContent.Thread.IsLogFile) then                          and (FActiveContent.Thread.IsLogFile) then begin
2728                          Self.Caption := GikoDataModule.CAPTION_NAME + ' - [' + FActiveContent.Thread.Title + ']'                          try
2729                  else                                  Self.Caption := GikoDataModule.CAPTION_NAME + ' - [' + FActiveContent.Thread.Title + ']'
2730                            except
2731                                    on E: Exception do begin
2732                                            //スレ一覧DL後などにFActiveContentの持つThreadが
2733                                            //削除されている場合があるのでここて処理する
2734                                            ReleaseBrowser(FActiveContent);
2735                                            FActiveContent.Thread := nil;
2736                                            Self.Caption := GikoDataModule.CAPTION_NAME;
2737                                    end;
2738                            end;
2739                    end else
2740                          Self.Caption := GikoDataModule.CAPTION_NAME;                          Self.Caption := GikoDataModule.CAPTION_NAME;
2741                  //Application.Title := CAPTION_NAME;                  //Application.Title := CAPTION_NAME;
2742    

Legend:
Removed from v.1.574  
changed lines
  Added in v.1.575

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