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.83 by yoffy, Thu Oct 2 12:09:18 2003 UTC revision 1.84 by h677, Thu Oct 2 13:14:30 2003 UTC
# Line 853  type Line 853  type
853    
854      DropSpaceNode: TTreeNode;      DropSpaceNode: TTreeNode;
855    
856    
857            FDragTime : Cardinal;   //リンクのD&D用に時間保存用
858            FDragButton : TToolButton;      //リンクのD&D用にDragしてるButton保存
859    
860                  procedure SetBoardTreeNode;                  procedure SetBoardTreeNode;
861                  function SetCategoryListItem(ABBS2ch: TBBS2ch): Integer;                  function SetCategoryListItem(ABBS2ch: TBBS2ch): Integer;
862                  function SetBoardListItem(Category: TCategory): Integer;                  function SetBoardListItem(Category: TCategory): Integer;
# Line 6571  begin Line 6575  begin
6575  end;  end;
6576  procedure TGikoForm.LinkToolButtonStartDrag(Sender: TObject; var DragObject: TDragObject);  procedure TGikoForm.LinkToolButtonStartDrag(Sender: TObject; var DragObject: TDragObject);
6577  begin  begin
6578       //   FDragging := true;
6579  end;  end;
6580    
6581  procedure TGikoForm.LinkToolButtonDragDrop(Sender, Source: TObject; X, Y: Integer);  procedure TGikoForm.LinkToolButtonDragDrop(Sender, Source: TObject; X, Y: Integer);
# Line 6588  end; Line 6593  end;
6593    
6594  procedure TGikoForm.LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);  procedure TGikoForm.LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
6595  begin  begin
   if ( ssLeft in Shift )then begin  
     TLinkToolButton( Sender ).EndDrag( False );  
     TToolButton(Sender).BeginDrag(false ,DandD_THRESHOLD);  
   end;  
6596  end;  end;
6597    
6598  procedure TGikoForm.LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);  procedure TGikoForm.LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
6599    var
6600            Now : Cardinal;
6601  begin  begin
6602        TToolButton( Sender ).DragMode := dmManual;
6603        if ssLeft in Shift then begin
6604            TToolButton( Sender ).Down := true;
6605                    if FDragTime = 0 then begin
6606                    FDragTime := GetTickCount();
6607            end else begin
6608                    Now := GetTickCount();
6609                if (Now - FDragTime) > 500 then begin
6610                    if FDragButton <> TToolButton( Sender ) then begin
6611                                            try
6612                                    FDragButton := TToolButton( Sender );
6613                            TToolButton(Sender).BeginDrag(false ,5);
6614                            FDragTime := 0;
6615                            except
6616                                    ShowMessage('Error');
6617                            end;
6618                    end;
6619                end;
6620            end;
6621        end else begin
6622            FDragTime := 0;
6623        end;
6624  end;  end;
6625    
6626  procedure TGikoForm.LinkToolButtonOnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);  procedure TGikoForm.LinkToolButtonOnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
6627  begin  begin
6628            FDragTime := 0;
6629  end;  end;
6630    
6631  function TGikoForm.GetWidthAllToolButton(ToolBar: TToolBar): Integer;  function TGikoForm.GetWidthAllToolButton(ToolBar: TToolBar): Integer;

Legend:
Removed from v.1.83  
changed lines
  Added in v.1.84

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