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.76 by h677, Tue Sep 30 11:39:43 2003 UTC revision 1.77 by h677, Wed Oct 1 10:58:02 2003 UTC
# Line 907  type Line 907  type
907      procedure FavoriteMoveTo( SenderNode, SourceNode: TTreeNode );      procedure FavoriteMoveTo( SenderNode, SourceNode: TTreeNode );
908      procedure FavoriteAddTo( SenderNode: TTreeNode; Source: TObject );      procedure FavoriteAddTo( SenderNode: TTreeNode; Source: TObject );
909                  procedure FavoriteDragDrop( SenderNode: TTreeNode; Source: TObject );                  procedure FavoriteDragDrop( SenderNode: TTreeNode; Source: TObject );
910            //
911            procedure BrowserTabClick(Sender: TObject);
912          protected          protected
913                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
914                  procedure WndProc(var Message: TMessage); override;                  procedure WndProc(var Message: TMessage); override;
# Line 1141  begin Line 1143  begin
1143          //ブラウザタブフォント          //ブラウザタブフォント
1144          BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;          BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
1145          BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;          BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;
1146        
1147    
1148  //      TreeView.TopItem.Expanded := True;                              //ツリートップ項目だけを開く  //      TreeView.TopItem.Expanded := True;                              //ツリートップ項目だけを開く
1149  //      TreeView.Selected := TreeView.Items[0];         //ツリーのトップ項目を選択する  //      TreeView.Selected := TreeView.Items[0];         //ツリーのトップ項目を選択する
# Line 4995  var Line 4997  var
4997          idx: Integer;          idx: Integer;
4998          ThreadItem: TThreadItem;          ThreadItem: TThreadItem;
4999  begin  begin
5000    
5001    //      if NewTab = -1 then
5002            FTabHintIndex := -1;
5003            BrowserTab.Hint := '';
5004            idx := BrowserTab.TabIndex;
5005            if idx = -1 then
5006                    SetContent(BrowserNullTab)
5007            else if BrowserTab.Tabs.Objects[idx] is TThreadItem then begin
5008                    ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]);
5009                    SetContent(ThreadItem);
5010                    if GikoSys.Setting.URLDisplay then
5011                            AddressComboBox.Text := GikoSys.GetURL(ThreadItem.ParentBoard.BBSID, ThreadItem.FileName);
5012            end;
5013    
5014    end;
5015    procedure TGikoForm.BrowserTabClick(Sender: TObject);
5016    var
5017            idx: Integer;
5018            ThreadItem: TThreadItem;
5019    begin
5020  //      if NewTab = -1 then  //      if NewTab = -1 then
5021          FTabHintIndex := -1;          FTabHintIndex := -1;
5022          BrowserTab.Hint := '';          BrowserTab.Hint := '';
# Line 5021  begin Line 5043  begin
5043          if (Button = mbLeft) and (Shift = [ssLeft]) then begin          if (Button = mbLeft) and (Shift = [ssLeft]) then begin
5044                  // マウス左ボタン                  // マウス左ボタン
5045  //              BrowserTab.BeginDrag(False, 5);  //              BrowserTab.BeginDrag(False, 5);
5046    //              BrowserTabClick(Sender);
5047      {$IFDEF DEBUG}      {$IFDEF DEBUG}
5048        Writeln( 'TabMouseDown: FTabIsDragging = ' + IntToStr( FTabIsDragging ) );        Writeln( 'TabMouseDown: FTabIsDragging = ' + IntToStr( FTabIsDragging ) );
5049      {$ENDIF}      {$ENDIF}
# Line 5051  begin Line 5074  begin
5074                                  BrowserTab.OnChange(nil);                                  BrowserTab.OnChange(nil);
5075                          end;                          end;
5076                  end;                  end;
5077          end else if Button = mbRight then begin  {       end else if Button = mbRight then begin
5078                  // マウス右ボタン                  // マウス右ボタン
5079                  GetCursorPos(p);                  GetCursorPos(p);
5080                  p2 := p;                  p2 := p;
# Line 5067  begin Line 5090  begin
5090                          BrowserTabPopupMenu.Tag := idx;                          BrowserTabPopupMenu.Tag := idx;
5091                          BrowserTabPopupMenu.Popup(p2.X, p2.Y);                          BrowserTabPopupMenu.Popup(p2.X, p2.Y);
5092                  end;                  end;
5093          end;  }       end;
5094    
5095  end;  end;
5096    
5097  procedure TGikoForm.SetBrowserTabState;  procedure TGikoForm.SetBrowserTabState;
# Line 5148  var Line 5172  var
5172          TabIdx: Integer;          TabIdx: Integer;
5173          ThreadItem: TThreadItem;          ThreadItem: TThreadItem;
5174  begin  begin
5175          if FTabIsDragging = 1 then begin          if ( ssLeft in Shift )then begin
5176          if (Abs( FTabMouseDownX - X ) >= Mouse.DragThreshold) or          BrowserTab.BeginDrag(false, 10);
        (Abs( FTabMouseDownY - Y ) >= Mouse.DragThreshold) then begin  
       {$IFDEF DEBUG}  
         Writeln( 'TabMouseMove: FTabIsDragging = ' + IntToStr( FTabIsDragging ) + ' -> 2' );  
       {$ENDIF}  
       FTabIsDragging := 2;  
       BrowserTab.BeginDrag( True );  
5177      end;      end;
5178    end else if MilliSecondsBetween( Now, FTabMouseUpTime ) >= 1000 then begin  //
5179          FTabIsDragging := 0;  //      if FTabIsDragging = 1 then begin
5180    end;  //      if (Abs( FTabMouseDownX - X ) >= Mouse.DragThreshold) or
5181          TabIdx := BrowserTab.IndexOfTabAt(x, y);  //       (Abs( FTabMouseDownY - Y ) >= Mouse.DragThreshold) then begin
5182          if (FTabHintIndex <> TabIdx) and (TabIdx <> -1) then begin  //      {$IFDEF DEBUG}
5183                  Application.CancelHint;  //        Writeln( 'TabMouseMove: FTabIsDragging = ' + IntToStr( FTabIsDragging ) + ' -> 2' );
5184                  ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[TabIdx]);  //      {$ENDIF}
5185                  if ThreadItem.Title <> BrowserTab.Tabs[TabIdx] then begin  //      FTabIsDragging := 2;
5186                          BrowserTab.Hint := ThreadItem.Title;  //      BrowserTab.BeginDrag( True );
5187                          Application.ShowHint := True;  //    end;
5188                  end else begin  //  end else if MilliSecondsBetween( Now, FTabMouseUpTime ) >= 1000 then begin
5189                          BrowserTab.Hint := '';  //      FTabIsDragging := 0;
5190                          Application.ShowHint := True;  //  end;
5191                  end;  //      TabIdx := BrowserTab.IndexOfTabAt(x, y);
5192                  FTabHintIndex := TabIdx;  //      if (FTabHintIndex <> TabIdx) and (TabIdx <> -1) then begin
5193          end;  //              Application.CancelHint;
5194    //              ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[TabIdx]);
5195    //              if ThreadItem.Title <> BrowserTab.Tabs[TabIdx] then begin
5196    //                      BrowserTab.Hint := ThreadItem.Title;
5197    //                      Application.ShowHint := True;
5198    //              end else begin
5199    //                      BrowserTab.Hint := '';
5200    //                      Application.ShowHint := True;
5201    //              end;
5202    //              FTabHintIndex := TabIdx;
5203    //      end;
5204    
5205  end;  end;
5206    
5207  procedure TGikoForm.BrowserDocumentComplete(Sender: TObject;  procedure TGikoForm.BrowserDocumentComplete(Sender: TObject;
# Line 8108  procedure TGikoForm.BrowserTabMouseUp(Se Line 8137  procedure TGikoForm.BrowserTabMouseUp(Se
8137  begin  begin
8138    
8139    {$IFDEF DEBUG}    {$IFDEF DEBUG}
8140      Writeln( 'TabMouseUp: FTabIsDragging = ' + IntToStr( FTabIsDragging ) + ' -> 3' );  //    Writeln( 'TabMouseUp: FTabIsDragging = ' + IntToStr( FTabIsDragging ) + ' -> 3' );
8141    {$ENDIF}    {$ENDIF}
8142    FTabIsDragging := 3;  {  FTabIsDragging := 3;
8143    FTabMouseUpTime := Now;    FTabMouseUpTime := Now;
8144    }
8145  end;  end;
8146    
8147  procedure TGikoForm.LinkToolBarDragOver(Sender, Source: TObject; X,  procedure TGikoForm.LinkToolBarDragOver(Sender, Source: TObject; X,

Legend:
Removed from v.1.76  
changed lines
  Added in v.1.77

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