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.313 by h677, Sun May 23 17:25:46 2004 UTC revision 1.314 by h677, Mon May 24 13:06:13 2004 UTC
# Line 632  type Line 632  type
632                  procedure ShowBoardActionUpdate(Sender: TObject);                  procedure ShowBoardActionUpdate(Sender: TObject);
633                  procedure SelectThreadReloadActionUpdate(Sender: TObject);                  procedure SelectThreadReloadActionUpdate(Sender: TObject);
634                  procedure ItemReloadActionUpdate(Sender: TObject);                  procedure ItemReloadActionUpdate(Sender: TObject);
                 procedure ListViewDblClick(Sender: TObject);  
635                  procedure LogDeleteActionExecute(Sender: TObject);                  procedure LogDeleteActionExecute(Sender: TObject);
636                  procedure KokomadeActionExecute(Sender: TObject);                  procedure KokomadeActionExecute(Sender: TObject);
637                  procedure ZenbuActionExecute(Sender: TObject);                  procedure ZenbuActionExecute(Sender: TObject);
# Line 3337  begin Line 3336  begin
3336                  (Assigned(FActiveContent.Browser.Document)) then begin                  (Assigned(FActiveContent.Browser.Document)) then begin
3337                  try                  try
3338                  try                  try
3339                          //Sleep(1);                          Sleep(1);
3340                          //Application.ProcessMessages;                          //Application.ProcessMessages;
3341                          FActiveContent.Thread.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document).Body).ScrollTop;                          FActiveContent.Thread.ScrollTop := OleVariant(IHTMLDocument2(FActiveContent.Browser.Document).Body).ScrollTop;
3342                          //if FActiveContent.Browser <> BrowserNullTab.Browser then                          //if FActiveContent.Browser <> BrowserNullTab.Browser then
# Line 3387  begin Line 3386  begin
3386    
3387          Screen.Cursor := crHourGlass;          Screen.Cursor := crHourGlass;
3388          try          try
                 //if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) then  
                 //      TOleControl(FActiveContent.FBrowser).BringToFront;  
3389                  if inThread.FThread.UnRead then begin                  if inThread.FThread.UnRead then begin
3390                          inThread.FThread.ParentBoard.UnRead := inThread.FThread.ParentBoard.UnRead - 1;                          inThread.FThread.ParentBoard.UnRead := inThread.FThread.ParentBoard.UnRead - 1;
3391                          if inThread.FThread.ParentBoard.UnRead < 0 then inThread.FThread.ParentBoard.UnRead := 0;                          if inThread.FThread.ParentBoard.UnRead < 0 then inThread.FThread.ParentBoard.UnRead := 0;
3392                          TreeView.Refresh;                          TreeView.Refresh;
3393                  end;                  end;
3394                    if(FActiveContent <> nil) and (FActiveContent <> inThread) then begin
3395                            if (FActiveContent.Browser <> BrowserNullTab.Browser) and
3396                                    (TOleControl(FActiveContent.Browser).Visible) then
3397                                            TOleControl(FActiveContent.Browser).Visible := false;
3398                    end;
3399                  LockWindowUpdate(Self.Handle);                  LockWindowUpdate(Self.Handle);
3400                  if not TOleControl(inThread.FBrowser).Visible then                  if not TOleControl(inThread.FBrowser).Visible then
3401                          TOleControl(inThread.FBrowser).Visible := true;         //ここで表示しておかないと描画で止まる                          TOleControl(inThread.FBrowser).Visible := true;         //ここで表示しておかないと描画で止まる
3402                  LockWindowUpdate(0);                  LockWindowUpdate(0);
3403                    if (not Assigned(inThread.Browser.Document)) then begin
3404                            inThread.Browser.Navigate('about:blank');
3405                    end;
3406                  if inThread.Browser <> BrowserNullTab.Browser then begin                  if inThread.Browser <> BrowserNullTab.Browser then begin
3407                          while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and                          while (inThread.Browser.ReadyState <> READYSTATE_COMPLETE) and
3408                                          (inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin                                          (inThread.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
3409                                  Application.ProcessMessages;                                  Application.ProcessMessages;
3410                          end;                          end;
3411                  end;                  end;
                 if (not Assigned(inThread.Browser.Document)) then begin  
                         inThread.Browser.Navigate('about:blank');  
                 end;  
3412                  if not inThread.FThread.IsLogFile then begin                  if not inThread.FThread.IsLogFile then begin
3413                          try                          try
3414                                  s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>';                                  s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>';
# Line 3427  begin Line 3429  begin
3429                                          doc := Idispatch( olevariant(inThread.Browser.ControlInterface).Document) as IHTMLDocument2;                                          doc := Idispatch( olevariant(inThread.Browser.ControlInterface).Document) as IHTMLDocument2;
3430                                          GikoSys.CreateHTML2(doc, inThread.FThread, sTitle);                                          GikoSys.CreateHTML2(doc, inThread.FThread, sTitle);
3431                                          //なぜかここで明示的にDocumentCompleteを呼ばないとうまくいかない                                          //なぜかここで明示的にDocumentCompleteを呼ばないとうまくいかない
3432                      inThread.FBrowser.OnDocumentComplete(inThread.FBrowser, inThread.FBrowser.Parent, url);                                          inThread.FBrowser.OnDocumentComplete(inThread.FBrowser, inThread.FBrowser.Parent, url);
3433                                          inThread.OnlyHundred := GikoSys.OnlyAHundredRes;                                          inThread.OnlyHundred := GikoSys.OnlyAHundredRes;
3434                                          Application.ProcessMessages;                                          Application.ProcessMessages;
3435                                          //ここでApplication.ProcessMessagesを呼ぶことによってWebBrowserを更新させる。                                          //ここでApplication.ProcessMessagesを呼ぶことによってWebBrowserを更新させる。
# Line 3451  begin Line 3453  begin
3453                          inThread.FThread.UnRead := False;                          inThread.FThread.UnRead := False;
3454                          ListView.Refresh;                          ListView.Refresh;
3455                  end;                  end;
 //              LockWindowUpdate(0);  
                 if(FActiveContent <> nil) and (FActiveContent <> inThread) then begin  
                         if (FActiveContent.Browser <> BrowserNullTab.Browser) and  
                                 (TOleControl(FActiveContent.Browser).Visible) then  
                                         TOleControl(FActiveContent.Browser).Visible := false;  
                 end;  
3456                  FActiveContent := inThread;                  FActiveContent := inThread;
3457    
3458                  BrowserBoardNameLabel.Caption := inThread.FThread.ParentBoard.Title;                  BrowserBoardNameLabel.Caption := inThread.FThread.ParentBoard.Title;
# Line 4146  begin Line 4142  begin
4142                          if threadItem.IsLogFile then                          if threadItem.IsLogFile then
4143                                  ListView.UpdateItems(listItem.Index, listItem.Index);                                  ListView.UpdateItems(listItem.Index, listItem.Index);
4144                  end;                  end;
4145            mbLeft:
4146                    begin
4147                //ここでDblClick拾わないと、Clickイベントが優先して起きてしまうので
4148                            if (ssDouble in Shift) then
4149                                    ListDoubleClick(Shift)
4150                            else
4151                                    ListClick;
4152                    end;
4153          end;          end;
4154  {       if ssDouble in Shift then begin  {       if ssDouble in Shift then begin
4155                  DoubleClickOccurred[Button] := True;                  DoubleClickOccurred[Button] := True;
# Line 5188  begin Line 5192  begin
5192          ActiveLogDeleteAction.Enabled := GetActiveContent <> nil;          ActiveLogDeleteAction.Enabled := GetActiveContent <> nil;
5193  end;  end;
5194    
 procedure TGikoForm.ListViewDblClick(Sender: TObject);  
 var  
         shift: TShiftState;  
 begin  
         shift := [];  
         if GetAsyncKeyState(VK_SHIFT) = Smallint($8001) then  
                 Include(shift, ssShift);  
         if GetAsyncKeyState(VK_CONTROL) = Smallint($8001) then  
                 Include(shift, ssCtrl);  
         if GetAsyncKeyState(VK_MENU) = Smallint($8001) then  
                 Include(shift, ssAlt);  
   
         ListDoubleClick(shift);  
 end;  
   
5195  procedure TGikoForm.LogDeleteActionExecute(Sender: TObject);  procedure TGikoForm.LogDeleteActionExecute(Sender: TObject);
5196  const  const
5197          DEL_MSG = 'ログファイルを削除します。よろしいですか?';          DEL_MSG = 'ログファイルを削除します。よろしいですか?';
# Line 9865  end; Line 9854  end;
9854    
9855  procedure TGikoForm.ListViewClick(Sender: TObject);  procedure TGikoForm.ListViewClick(Sender: TObject);
9856  begin  begin
         ListClick;  
9857  end;  end;
9858    
9859  // TreeView がクリックされた  // TreeView がクリックされた

Legend:
Removed from v.1.313  
changed lines
  Added in v.1.314

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