| 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; |
| 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]; //ツリーのトップ項目を選択する |
| 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 := ''; |
| 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} |
| 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; |
| 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; |
| 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; |
| 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, |