| 12 |
MSHTML_TLB, |
MSHTML_TLB, |
| 13 |
{$IFEND} |
{$IFEND} |
| 14 |
ComCtrls, BrowserRecord, Graphics, Messages, Setting, Dialogs, |
ComCtrls, BrowserRecord, Graphics, Messages, Setting, Dialogs, |
| 15 |
ActiveX, MoveHistoryItem, HistoryList; |
ActiveX, GikoSystem, MoveHistoryItem, HistoryList; |
| 16 |
|
|
| 17 |
const |
const |
| 18 |
CAPTION_NAME: string = 'ギコナビ'; |
CAPTION_NAME: string = 'ギコナビ'; |
| 49 |
|
|
| 50 |
|
|
| 51 |
type |
type |
| 52 |
|
|
| 53 |
TGikoDM = class(TDataModule) |
TGikoDM = class(TDataModule) |
| 54 |
GikoFormActionList: TActionList; |
GikoFormActionList: TActionList; |
| 55 |
OnlyAHundredResAction: TAction; |
OnlyAHundredResAction: TAction; |
| 488 |
|
|
| 489 |
uses |
uses |
| 490 |
Windows, Math, Clipbrd, |
Windows, Math, Clipbrd, |
| 491 |
Giko, GikoSystem, GikoUtil, BoardGroup, |
Giko, GikoUtil, BoardGroup, |
| 492 |
FavoriteArrange, Favorite, MojuUtils, |
FavoriteArrange, Favorite, MojuUtils, |
| 493 |
Editor, ListSelect, Search, Option, Round, |
Editor, ListSelect, Search, Option, Round, |
| 494 |
KeySetting, Gesture, Kotehan, ToolBarSetting, |
KeySetting, Gesture, Kotehan, ToolBarSetting, |
| 2336 |
begin |
begin |
| 2337 |
No := GikoForm.KokoPopupMenu.Tag; |
No := GikoForm.KokoPopupMenu.Tag; |
| 2338 |
if No = 0 then Exit; |
if No = 0 then Exit; |
| 2339 |
ThreadItem := GikoForm.GetActiveContent; |
ThreadItem := GikoForm.GetActiveContent(True); |
| 2340 |
if ThreadItem = nil then Exit; |
if ThreadItem = nil then Exit; |
| 2341 |
ThreadItem.Kokomade := No; |
ThreadItem.Kokomade := No; |
| 2342 |
GikoForm.ActiveContent.Thread.ScrollTop := |
GikoForm.ActiveContent.Thread.ScrollTop := |
| 2353 |
var |
var |
| 2354 |
ThreadItem: TThreadItem; |
ThreadItem: TThreadItem; |
| 2355 |
begin |
begin |
| 2356 |
ThreadItem := GikoForm.GetActiveContent; |
ThreadItem := GikoForm.GetActiveContent(True); |
| 2357 |
if ThreadItem = nil then Exit; |
if ThreadItem = nil then Exit; |
| 2358 |
ThreadItem.Kokomade := -1; |
ThreadItem.Kokomade := -1; |
| 2359 |
GikoForm.ActiveContent.Thread.ScrollTop := |
GikoForm.ActiveContent.Thread.ScrollTop := |
| 2374 |
begin |
begin |
| 2375 |
Number := GikoForm.KokoPopupMenu.Tag; |
Number := GikoForm.KokoPopupMenu.Tag; |
| 2376 |
if Number = 0 then Exit; |
if Number = 0 then Exit; |
| 2377 |
Item := GikoForm.GetActiveContent; |
Item := GikoForm.GetActiveContent(True); |
| 2378 |
if Item = nil then Exit; |
if Item = nil then Exit; |
| 2379 |
|
|
| 2380 |
Editor := TEditorForm.Create(GikoForm); |
Editor := TEditorForm.Create(GikoForm); |
| 2404 |
begin |
begin |
| 2405 |
No := GikoForm.KokoPopupMenu.Tag; |
No := GikoForm.KokoPopupMenu.Tag; |
| 2406 |
if No = 0 then Exit; |
if No = 0 then Exit; |
| 2407 |
ThreadItem := GikoForm.GetActiveContent; |
ThreadItem := GikoForm.GetActiveContent(True); |
| 2408 |
if ThreadItem = nil then Exit; |
if ThreadItem = nil then Exit; |
| 2409 |
count := GikoSys.GetSameIDResCount(No, GikoForm.ActiveContent.Thread); |
count := GikoSys.GetSameIDResCount(No, GikoForm.ActiveContent.Thread); |
| 2410 |
limited := LIMIT; |
limited := LIMIT; |
| 2446 |
begin |
begin |
| 2447 |
IndividualForm := TIndividualAbonForm.Create(GikoForm); |
IndividualForm := TIndividualAbonForm.Create(GikoForm); |
| 2448 |
try |
try |
| 2449 |
ThreadItem := GikoForm.GetActiveContent; |
ThreadItem := GikoForm.GetActiveContent(True); |
| 2450 |
ThreadItem.ScrollTop := |
ThreadItem.ScrollTop := |
| 2451 |
OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop; |
OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop; |
| 2452 |
if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin |
if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin |
| 2494 |
begin |
begin |
| 2495 |
IndividualForm := TIndividualAbonForm.Create(GikoForm); |
IndividualForm := TIndividualAbonForm.Create(GikoForm); |
| 2496 |
try |
try |
| 2497 |
ThreadItem := GikoForm.GetActiveContent; |
ThreadItem := GikoForm.GetActiveContent(True); |
| 2498 |
ThreadItem.ScrollTop := |
ThreadItem.ScrollTop := |
| 2499 |
OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop; |
OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop; |
| 2500 |
if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin |
if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin |