| 9315 |
ThreadItem : TThreadItem; |
ThreadItem : TThreadItem; |
| 9316 |
i: Integer; |
i: Integer; |
| 9317 |
begin |
begin |
|
GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag,1); |
|
| 9318 |
ThreadItem := GetActiveContent; |
ThreadItem := GetActiveContent; |
| 9319 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do |
GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 1, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG')); |
| 9320 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
FActiveContent.Repaint := true; |
|
|
|
| 9321 |
if ThreadItem <> nil then |
if ThreadItem <> nil then |
| 9322 |
InsertBrowserTab( ThreadItem, True ); |
InsertBrowserTab( ThreadItem, True ); |
| 9323 |
end; |
end; |
| 9327 |
ThreadItem : TThreadItem; |
ThreadItem : TThreadItem; |
| 9328 |
i: Integer; |
i: Integer; |
| 9329 |
begin |
begin |
|
GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag,0); |
|
| 9330 |
ThreadItem := GetActiveContent; |
ThreadItem := GetActiveContent; |
| 9331 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do |
GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 0, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG')); |
| 9332 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
FActiveContent.Repaint := true; |
| 9333 |
if ThreadItem <> nil then |
if ThreadItem <> nil then |
| 9334 |
InsertBrowserTab( ThreadItem, True ); |
InsertBrowserTab( ThreadItem, True ); |
| 9335 |
end; |
end; |
| 9336 |
//個別あぼーん解除() |
//個別あぼーん解除() |
| 9337 |
procedure TGikoForm.AntiIndividualAbonClick(Sender: TObject); |
procedure TGikoForm.AntiIndividualAbonClick(Sender: TObject); |
| 9338 |
var |
var |
| 9339 |
|
IndividualForm :TIndividualAbonForm; |
| 9340 |
ThreadItem : TThreadItem; |
ThreadItem : TThreadItem; |
| 9341 |
msg : String; |
msg : String; |
|
i: Integer; |
|
| 9342 |
begin |
begin |
| 9343 |
if GikoSys.FAbon.GetAbonResCount <> 0 then begin |
IndividualForm := TIndividualAbonForm.Create(Self); |
| 9344 |
GikoSys.FAbon.DeleteIndividualAbon(KokoPopupMenu.Tag); |
try |
| 9345 |
ThreadItem := GetActiveContent; |
ThreadItem := GetActiveContent; |
| 9346 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do |
if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin |
| 9347 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin |
| 9348 |
if ThreadItem <> nil then |
if IndividualForm.DeleteNG(KokoPopupMenu.Tag) then begin |
| 9349 |
InsertBrowserTab( ThreadItem, True ); |
FActiveContent.Repaint := true; |
| 9350 |
end else begin |
InsertBrowserTab( ThreadItem, True ); |
| 9351 |
msg := 'このスレッドでは個別あぼ〜んを行ってません'; |
end; |
| 9352 |
MsgBox(Handle, msg, 'メッセージ', MB_OK); |
end else begin |
| 9353 |
|
msg := 'このスレッドでは個別あぼ〜んを行ってません'; |
| 9354 |
|
MsgBox(Handle, msg, 'メッセージ', MB_OK); |
| 9355 |
|
end; |
| 9356 |
|
end; |
| 9357 |
|
finally |
| 9358 |
|
IndividualForm.Release; |
| 9359 |
end; |
end; |
| 9360 |
end; |
end; |
| 9361 |
//個別あぼーん解除 |
//個別あぼーん解除 |
| 9363 |
var |
var |
| 9364 |
IndividualForm :TIndividualAbonForm; |
IndividualForm :TIndividualAbonForm; |
| 9365 |
ThreadItem : TThreadItem; |
ThreadItem : TThreadItem; |
|
i : Integer; |
|
| 9366 |
msg : String; |
msg : String; |
| 9367 |
begin |
begin |
| 9368 |
IndividualForm := TIndividualAbonForm.Create(Self); |
IndividualForm := TIndividualAbonForm.Create(Self); |
| 9369 |
try |
try |
|
if GikoSys.FAbon.GetAbonResCount <> 0 then begin |
|
|
for i :=0 to GikoSys.FAbon.GetAbonResCount-1 do begin |
|
|
IndividualForm.ComboBox1.Items.Add(GikoSys.FAbon.GetAbonResString(i)); |
|
|
end; |
|
|
if IndividualForm.ShowModal = mrOK then begin |
|
|
GikoSys.FAbon.DeleteIndividualAbon(IndividualForm.ResNumber); |
|
|
end; |
|
|
for i := BrowserTab.Tabs.Count - 1 downto 0 do |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
|
| 9370 |
ThreadItem := GetActiveContent; |
ThreadItem := GetActiveContent; |
| 9371 |
if ThreadItem <> nil then |
if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin |
| 9372 |
InsertBrowserTab( ThreadItem, True ); |
if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin |
| 9373 |
end else begin |
if IndividualForm.ShowModal = mrOK then begin |
| 9374 |
msg := 'このスレッドでは個別あぼ〜んを行ってません'; |
if IndividualForm.FRepaint then begin |
| 9375 |
MsgBox(Handle, msg, 'メッセージ', MB_OK); |
FActiveContent.Repaint := true; |
| 9376 |
|
InsertBrowserTab( ThreadItem, True ); |
| 9377 |
|
end; |
| 9378 |
|
end; |
| 9379 |
|
end else begin |
| 9380 |
|
msg := 'このスレッドでは個別あぼ〜んを行ってません'; |
| 9381 |
|
MsgBox(Handle, msg, 'メッセージ', MB_OK); |
| 9382 |
|
end; |
| 9383 |
end; |
end; |
| 9384 |
finally |
finally |
| 9385 |
IndividualForm.Free; |
IndividualForm.Release; |
| 9386 |
end; |
end; |
| 9387 |
end; |
end; |
| 9388 |
|
|
| 11214 |
i: Integer; |
i: Integer; |
| 11215 |
begin |
begin |
| 11216 |
for i := BROWSER_COUNT - 1 downto 0 do begin |
for i := BROWSER_COUNT - 1 downto 0 do begin |
| 11217 |
SetWindowPos(TWebBrowser(FBrowsers[i]).Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOMOVE + SWP_NOZORDER); |
SetWindowPos(TWebBrowser(FBrowsers[i]).Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOACTIVATE + SWP_NOCOPYBITS + SWP_NOREDRAW + SWP_NOMOVE + SWP_NOZORDER); |
| 11218 |
end; |
end; |
| 11219 |
|
|
| 11220 |
end; |
end; |
| 11221 |
|
|
| 11222 |
procedure TGikoForm.LogFolderOpenActionExecute(Sender: TObject); |
procedure TGikoForm.LogFolderOpenActionExecute(Sender: TObject); |