| 3757 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = ThreadItem then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = ThreadItem then begin |
| 3758 |
Result := TBrowserRecord( BrowserTab.Tabs.Objects[i] ); |
Result := TBrowserRecord( BrowserTab.Tabs.Objects[i] ); |
| 3759 |
Result.Repaint := true; |
Result.Repaint := true; |
| 3760 |
Result.Movement := Movement; |
if Movement <> '' then |
| 3761 |
|
Result.Movement := Movement; |
| 3762 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = nil then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = nil then begin |
| 3763 |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 3764 |
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin |
| 3792 |
//newBrowser.Browser.Navigate(BLANK_HTML); |
//newBrowser.Browser.Navigate(BLANK_HTML); |
| 3793 |
newBrowser.thread := ThreadItem; |
newBrowser.thread := ThreadItem; |
| 3794 |
newBrowser.Repaint := true; |
newBrowser.Repaint := true; |
| 3795 |
newBrowser.Movement := Movement; |
if Movement <> '' then |
| 3796 |
|
newBrowser.Movement := Movement; |
| 3797 |
// newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes; |
// newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes; |
| 3798 |
|
|
| 3799 |
BrowserTab.Tabs.InsertObject(0, GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser); |
BrowserTab.Tabs.InsertObject(0, GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser); |
| 3820 |
newBrowser.thread := ThreadItem; |
newBrowser.thread := ThreadItem; |
| 3821 |
// newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes; |
// newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes; |
| 3822 |
newBrowser.Repaint := true; |
newBrowser.Repaint := true; |
| 3823 |
newBrowser.Movement := Movement; |
if Movement <> '' then |
| 3824 |
|
newBrowser.Movement := Movement; |
| 3825 |
i := BrowserTab.Tabs.AddObject(GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser); |
i := BrowserTab.Tabs.AddObject(GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser); |
| 3826 |
if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 1) then begin |
if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 1) then begin |
| 3827 |
DeleteTab( TBrowserRecord( BrowserTab.Tabs.Objects[ 0 ] ) ); |
DeleteTab( TBrowserRecord( BrowserTab.Tabs.Objects[ 0 ] ) ); |
| 9802 |
procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject); |
procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject); |
| 9803 |
begin |
begin |
| 9804 |
|
|
| 9805 |
FClickNode := FavoriteTreeView.Selected; |
// FClickNode := FavoriteTreeView.Selected; |
| 9806 |
FavoriteTreeViewReloadActionExecute( Sender ); |
// FavoriteTreeViewReloadActionExecute( Sender ); |
| 9807 |
|
|
| 9808 |
end; |
end; |
| 9809 |
|
|
| 10548 |
begin |
begin |
| 10549 |
FMouseDownPos.X := X; |
FMouseDownPos.X := X; |
| 10550 |
FMouseDownPos.Y := Y; |
FMouseDownPos.Y := Y; |
| 10551 |
|
if ssDouble in Shift then begin |
| 10552 |
|
FClickNode := FavoriteTreeView.GetNodeAt( X, Y ); |
| 10553 |
|
if FClickNode <> nil then |
| 10554 |
|
FavoriteTreeViewReloadActionExecute( Sender ); |
| 10555 |
|
end; |
| 10556 |
end; |
end; |
| 10557 |
mbMiddle: |
mbMiddle: |
| 10558 |
begin |
begin |
| 10623 |
|
|
| 10624 |
procedure TGikoForm.FavoriteTreeViewMouseUp(Sender: TObject; |
procedure TGikoForm.FavoriteTreeViewMouseUp(Sender: TObject; |
| 10625 |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
| 10626 |
|
var |
| 10627 |
|
item : TTreeNode; |
| 10628 |
begin |
begin |
|
|
|
| 10629 |
if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold) and |
if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold) and |
| 10630 |
(abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin |
(abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin |
| 10631 |
FavoriteClick( TObject( FavoriteTreeView.Selected ) ); |
item := FavoriteTreeView.GetNodeAt( X, Y ); |
| 10632 |
|
if (item <> nil) and (TTreeNode(item) = FavoriteTreeView.Selected) then |
| 10633 |
|
FavoriteClick( TObject( FavoriteTreeView.Selected ) ); |
| 10634 |
end; |
end; |
|
|
|
| 10635 |
end; |
end; |
| 10636 |
|
|
| 10637 |
destructor TBrowserRecord.Destroy; |
destructor TBrowserRecord.Destroy; |