２ちゃんねるブラウザ「OpenJnae」規制解除改造ｽﾚ

全てのスレを開く

var
index: Integer;
item: TListItem;
thread: TThreadItem;
begin
if ListTabControl.Tabs.Count < 1 then
exit;
for index:=0 to ListView.Items.Count-1 do
begin
item := ListView.items[index];
if item = nil then
continue;
thread := TThreadItem(item.Data);
begin
ShowSpecifiedThread(thread, Config.oprGestureThrOther,
(Config.oprOpenThreWNewView xor (GetKeyState(VK_SHIFT) < 0)));
SetRPane(ptView);
end;
end;
end;

お気に入りを裏で開く

var
index: Integer;
item: TListItem;
thread: TThreadItem;
begin
if ListTabControl.Tabs.Count < 1 then
exit;
for index:=0 to ListView.Items.Count-1 do
begin
item := ListView.items[index];
if item = nil then
continue;
thread := TThreadItem(item.Data);
if (thread.lines > 0) and (thread.oldLines >= thread.lines)
and (thread.lines < thread.itemCount) then
begin
ShowSpecifiedThread(thread, Config.oprGestureThrOther,
(Config.oprOpenThreWNewView xor (GetKeyState(VK_SHIFT) < 0)));
end;
end;
end;