| 610 |
FResPopupBrowser: TResPopupBrowser; |
FResPopupBrowser: TResPopupBrowser; |
| 611 |
FUpdateExePath: string; ///ギコナビ更新インストーラパス |
FUpdateExePath: string; ///ギコナビ更新インストーラパス |
| 612 |
FUpdateExeArgs: string; ///ギコナビ更新インストーラ引数 |
FUpdateExeArgs: string; ///ギコナビ更新インストーラ引数 |
| 613 |
|
FKokoPopupThreadItem: TThreadItem; |
| 614 |
procedure DownloadEnd(Sender: TObject; Item: TDownloadItem); |
procedure DownloadEnd(Sender: TObject; Item: TDownloadItem); |
| 615 |
procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon); |
procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon); |
| 616 |
procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string); |
procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string); |
| 760 |
property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor; |
property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor; |
| 761 |
property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor; |
property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor; |
| 762 |
property OddColor : TColor read FOddColor write FOddColor; |
property OddColor : TColor read FOddColor write FOddColor; |
| 763 |
|
//! レスメニューアクティブスレッドアイテム |
| 764 |
|
property KokoPopupThreadItem : TThreadItem read FKokoPopupThreadItem; |
| 765 |
|
|
| 766 |
function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton; |
function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton; |
| 767 |
procedure OnPlugInMenuItem( Sender : TObject ); |
procedure OnPlugInMenuItem( Sender : TObject ); |
| 768 |
procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList); |
procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList); |
| 2371 |
{$IFDEF DEBUG} |
{$IFDEF DEBUG} |
| 2372 |
Writeln(URL); |
Writeln(URL); |
| 2373 |
{$ENDIF} |
{$ENDIF} |
| 2374 |
|
FKokoPopupThreadItem := nil; |
| 2375 |
if Pos(kMenuName, URL) <> 0 then begin |
if Pos(kMenuName, URL) <> 0 then begin |
| 2376 |
sNo := Copy( URL, Pos( kMenuName, URL ) + Length( kMenuName ), Length( URL ) ); |
sNo := Copy( URL, Pos( kMenuName, URL ) + Length( kMenuName ), Length( URL ) ); |
| 2377 |
|
|
| 2378 |
if not GikoSys.IsNumeric(sNo) then Exit; |
if not GikoSys.IsNumeric(sNo) then Exit; |
| 2379 |
|
|
| 2380 |
Cancel := True; |
Cancel := True; |
| 2392 |
TResPopupBrowser(Sender).ChildClear; |
TResPopupBrowser(Sender).ChildClear; |
| 2393 |
end; |
end; |
| 2394 |
end; |
end; |
| 2395 |
|
FKokoPopupThreadItem := GetActiveContent(true); |
| 2396 |
KokoPopupMenu.Tag := StrToInt(sNo); |
KokoPopupMenu.Tag := StrToInt(sNo); |
| 2397 |
KokoPopupMenu.Popup(p.x, p.y); |
KokoPopupMenu.Popup(p.x, p.y); |
| 2398 |
end else if Pos('mailto', LowerCase(URL)) <> 0 then begin |
end else if Pos('mailto', LowerCase(URL)) <> 0 then begin |
| 7343 |
begin |
begin |
| 7344 |
No := KokoPopupMenu.Tag; |
No := KokoPopupMenu.Tag; |
| 7345 |
if No = 0 then Exit; |
if No = 0 then Exit; |
| 7346 |
ThreadItem := GetActiveContent(True); |
ThreadItem := GikoForm.KokoPopupThreadItem; |
| 7347 |
if ThreadItem = nil then Exit; |
if ThreadItem = nil then Exit; |
| 7348 |
|
|
| 7349 |
id := GikoSys.GetResID(No, ThreadItem); |
id := GikoSys.GetResID(No, ThreadItem); |
| 7402 |
begin |
begin |
| 7403 |
No := KokoPopupMenu.Tag; |
No := KokoPopupMenu.Tag; |
| 7404 |
if No = 0 then Exit; |
if No = 0 then Exit; |
| 7405 |
ThreadItem := GetActiveContent(True); |
ThreadItem := GikoForm.KokoPopupThreadItem; |
| 7406 |
if ThreadItem = nil then Exit; |
if ThreadItem = nil then Exit; |
| 7407 |
body := TStringList.Create; |
body := TStringList.Create; |
| 7408 |
try |
try |