| 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; |
| 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); |
| 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; |