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.592 by h677, Wed Feb 22 17:21:21 2006 UTC revision 1.593 by h677, Wed Feb 22 18:29:18 2006 UTC
# Line 2709  begin Line 2709  begin
2709                          BrowserNameLabel.Left := ItemImage.Left + 20;                          BrowserNameLabel.Left := ItemImage.Left + 20;
2710    
2711                  end;                  end;
2712                    //ActiveContent の更新
2713                    FActiveContent := Thread;
2714    
2715                  if not ThreadIsLog then begin                  if not ThreadIsLog then begin
2716                          Self.Caption := GikoDataModule.CAPTION_NAME ;                          Self.Caption := GikoDataModule.CAPTION_NAME ;
2717                          //ステータスバーに表示しているスレの容量を消去                          //ステータスバーに表示しているスレの容量を消去
2718                          StatusBar.Panels[THREADSIZE_PANEL].Text := '';                          StatusBar.Panels[THREADSIZE_PANEL].Text := '';
2719                          try                          try
2720                                    Thread.Browser.BringToFront;
2721                                  s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>';                                  s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>';
2722                                  doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2;                                  doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2;
2723                                  doc.open;                                  doc.open;
# Line 2722  begin Line 2725  begin
2725                                  doc.Write(s);                                  doc.Write(s);
2726                                  doc.Close;                                  doc.Close;
2727                          finally                          finally
2728                                    
2729                          end;                          end;
2730                  end else begin                  end else begin
2731                          Self.Caption := GikoDataModule.CAPTION_NAME + ' - [' + ThreadTitle + ']';                          Self.Caption := GikoDataModule.CAPTION_NAME + ' - [' + ThreadTitle + ']';
# Line 2736  begin Line 2740  begin
2740    
2741                                  Thread.Browser.OnStatusTextChange := nil;                                  Thread.Browser.OnStatusTextChange := nil;
2742                                  LockWindowUpdate(Thread.Browser.ParentWindow);                                  LockWindowUpdate(Thread.Browser.ParentWindow);
                                 //LockWindowUpdate(Thread.Browser.Handle);  
2743                                  HTMLCreater.CreateHTML2(                                  HTMLCreater.CreateHTML2(
2744                                                  Idispatch( olevariant(Thread.Browser.ControlInterface).Document),                                                  Idispatch( olevariant(Thread.Browser.ControlInterface).Document),
2745                                                  ThreadItem, sTitle);                                                  ThreadItem, sTitle);
# Line 2748  begin Line 2751  begin
2751                                          Application.ProcessMessages;                                          Application.ProcessMessages;
2752                                  end;                                  end;
2753                                  Thread.Browser.OnStatusTextChange := BrowserStatusTextChange;                                  Thread.Browser.OnStatusTextChange := BrowserStatusTextChange;
                                 //PostMessage( Handle, USER_DOCUMENTCOMPLETE, Integer( Thread.Browser ), 0 );  
                         end else begin  
                                 // JUMPを指定されていたらJUMPする  
                                 //if (Thread.Movement <> '') then begin  
                                 //      Thread.Move(Thread.Movement);  
                                 //      Thread.Movement := '';  
                                 //end;  
2754                          end;                          end;
2755                  end;                  end;
2756    
2757                  //ActiveContent の更新  
                 FActiveContent := Thread;  
2758    
2759                  //Threadの板と表示している板が同じなら描画を更新する                  //Threadの板と表示している板が同じなら描画を更新する
2760                  if (FActiveList is TBoard) and (TBoard(ActiveList) = ThreadItem.ParentBoard) then begin                  if (FActiveList is TBoard) and (TBoard(ActiveList) = ThreadItem.ParentBoard) then begin
# Line 7240  begin Line 7235  begin
7235          s := MouseGesture.GetGestureStr;          s := MouseGesture.GetGestureStr;
7236          Action := GikoSys.Setting.Gestures.GetGestureAction(s);          Action := GikoSys.Setting.Gestures.GetGestureAction(s);
7237          if Action <> nil then          if Action <> nil then
                 MouseGesture.OnGestureStart(nil);  
7238                  Action.Execute;                  Action.Execute;
7239          StatusBar.Panels[1].Text := '';          StatusBar.Panels[1].Text := '';
7240  end;  end;

Legend:
Removed from v.1.592  
changed lines
  Added in v.1.593

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