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.554 by h677, Thu Dec 1 14:35:56 2005 UTC revision 1.555 by h677, Sun Dec 4 08:54:15 2005 UTC
# Line 6895  var Line 6895  var
6895          GikoTab                 : TGikoTabAppend;          GikoTab                 : TGikoTabAppend;
6896          fileName                : string;          fileName                : string;
6897  begin  begin
         if FStartUp then begin  
                 //起動時にタブ自動復元を入れていると、空ページ用のBrowserの  
                 //描画が終わっていなくて、クリックイベントの設定等に突入するので  
                 //ここで終わらせておく  
                 while (Browser.ReadyState <> READYSTATE_COMPLETE) and  
                                 (Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin  
                         Application.ProcessMessages;  
                 end;  
         end;  
6898    
6899          fileName := ExtractFilePath(Application.ExeName) + 'tab.sav';          fileName := ExtractFilePath(Application.ExeName) + 'tab.sav';
6900          URLs := TStringList.Create();          URLs := TStringList.Create();
# Line 7537  begin Line 7528  begin
7528                          WM_KEYFIRST..WM_KEYLAST :                          WM_KEYFIRST..WM_KEYLAST :
7529                          begin                          begin
7530                                  //キーアップは無視する KeyDownと合わせて2回呼ばれるから                                  //キーアップは無視する KeyDownと合わせて2回呼ばれるから
7531                                  if Msg.message <> WM_KEYUP then begin                                  if (Msg.message <> WM_KEYUP) and (Msg.message <> WM_CHAR) then begin
7532                                          wmMsg.Msg := Msg.message;                                          wmMsg.Msg := Msg.message;
7533                                          wmMsg.CharCode := Word(Msg.wParam);                                          wmMsg.CharCode := Word(Msg.wParam);
7534                                          wmMsg.KeyData := Msg.lParam;                                          wmMsg.KeyData := Msg.lParam;
# Line 7689  procedure TGikoForm.TreeViewMouseUp(Send Line 7680  procedure TGikoForm.TreeViewMouseUp(Send
7680    Shift: TShiftState; X, Y: Integer);    Shift: TShiftState; X, Y: Integer);
7681  begin  begin
7682          if (Button = mbLeft) and not (ssDouble in Shift) then begin          if (Button = mbLeft) and not (ssDouble in Shift) then begin
   
7683                  if (FClickNode <> nil) and (FClickNode = TreeView.GetNodeAt(X, Y)) then begin                  if (FClickNode <> nil) and (FClickNode = TreeView.GetNodeAt(X, Y)) then begin
                 //if (FClickNode = TreeView.Selected) then begin  
7684                          TreeClick(FClickNode);                          TreeClick(FClickNode);
7685                  end;                  end;
7686          end;          end;
# Line 7740  begin Line 7729  begin
7729          end;          end;
7730          BrowserNullTab.Browser.BringToFront;          BrowserNullTab.Browser.BringToFront;
7731          ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW);          ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW);
7732            //起動時にタブ自動復元を入れていると、空ページ用のBrowserの
7733            //描画が終わっていなくて、クリックイベントの設定等に突入するので
7734            //ここで終わらせておく
7735            while (Browser.ReadyState <> READYSTATE_COMPLETE) and
7736                    (Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
7737                    Application.ProcessMessages;
7738            end;
7739  end;  end;
7740  // *************************************************************************  // *************************************************************************
7741  //! ツールバーにスレ絞込みコンボボックスを設定する  //! ツールバーにスレ絞込みコンボボックスを設定する

Legend:
Removed from v.1.554  
changed lines
  Added in v.1.555

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