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.336 by h677, Sat Jun 5 12:10:07 2004 UTC revision 1.337 by h677, Sat Jun 5 12:24:16 2004 UTC
# Line 3446  begin Line 3446  begin
3446                          end;                          end;
3447                  end;                  end;
3448                  if not ThreadItem.IsLogFile then begin                  if not ThreadItem.IsLogFile then begin
3449                          Caption := CAPTION_NAME ;                          Self.Caption := CAPTION_NAME ;
3450                          try                          try
3451                                  s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>';                                  s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>';
3452                                  doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2;                                  doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2;
# Line 3457  begin Line 3457  begin
3457                          finally                          finally
3458                          end;                          end;
3459                  end else begin                  end else begin
3460                          Caption := CAPTION_NAME + ' - [' + ThreadItem.Title + ']';                          Self.Caption := CAPTION_NAME + ' - [' + ThreadItem.Title + ']';
3461                          //Thread.Repaintは、スキン等の設定を変更したとき、Threadをダウンロードしたとき                          //Thread.Repaintは、スキン等の設定を変更したとき、Threadをダウンロードしたとき
3462                          //新規にThreadを開いたときに真になっている。                          //新規にThreadを開いたときに真になっている。
3463                          if(Thread.Repaint) or (Thread.OnlyHundred <> GikoSys.OnlyAHundredRes)then begin                          if(Thread.Repaint) or (Thread.OnlyHundred <> GikoSys.OnlyAHundredRes)then begin
# Line 3566  begin Line 3566  begin
3566                  ListView.Selected := nil;                  ListView.Selected := nil;
3567  //      ListView.Columns.Clear;  //      ListView.Columns.Clear;
3568    
3569                  Caption := CAPTION_NAME;                  Self.Caption := CAPTION_NAME;
3570                  //Application.Title := CAPTION_NAME;                  //Application.Title := CAPTION_NAME;
3571    
3572                  if Obj is TBBS then begin                  if Obj is TBBS then begin
# Line 5696  begin Line 5696  begin
5696          BrowserTab.Tabs.EndUpdate;          BrowserTab.Tabs.EndUpdate;
5697          BrowserTab.OnChange := BrowserTabChange;          BrowserTab.OnChange := BrowserTabChange;
5698          SetContent(BrowserNullTab);          SetContent(BrowserNullTab);
5699            Self.Caption := CAPTION_NAME ;
5700  end;  end;
5701    
5702  procedure TGikoForm.TreeSelectBoradReloadExecute(Sender: TObject);  procedure TGikoForm.TreeSelectBoradReloadExecute(Sender: TObject);
# Line 6049  begin Line 6050  begin
6050    
6051                          if (GikoSys.Setting.URLDisplay) and (GetActiveContent <> nil) then                          if (GikoSys.Setting.URLDisplay) and (GetActiveContent <> nil) then
6052                                  AddressComboBox.Text := GetActiveContent.URL;                                  AddressComboBox.Text := GetActiveContent.URL;
6053    
6054                            if ((TreeView.Visible) and (TreeView.Focused)) or ((FavoriteTreeView.Visible) and (FavoriteTreeView.Focused)) or
6055                                    (ListView.Focused) or (SelectComboBox.Focused) or (AddressComboBox.Focused)
6056                            then
6057                            else
6058                    SetFocusForBrowserAction.Execute;      
6059    
6060                  end;                  end;
6061    
6062          end;          end;

Legend:
Removed from v.1.336  
changed lines
  Added in v.1.337

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