| 1077 |
procedure HandleAppMessage(var Msg: TMsg; var Handled: Boolean); |
procedure HandleAppMessage(var Msg: TMsg; var Handled: Boolean); |
| 1078 |
/// ブラウザのキーダウンイベント |
/// ブラウザのキーダウンイベント |
| 1079 |
/// イベントを取り扱った場合は True を返す |
/// イベントを取り扱った場合は True を返す |
| 1080 |
function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean; |
// function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean; |
| 1081 |
/// 各所にあるキャビネット・ BBS メニューをセット/更新 |
/// 各所にあるキャビネット・ BBS メニューをセット/更新 |
| 1082 |
procedure SetBBSMenu; |
procedure SetBBSMenu; |
| 1083 |
function WebBrowserClick(Sender: TObject): WordBool; |
function WebBrowserClick(Sender: TObject): WordBool; |
| 1094 |
function ActiveListTrueColumn( column : TListColumn ) : TListColumn; |
function ActiveListTrueColumn( column : TListColumn ) : TListColumn; |
| 1095 |
/// ListColumnPopupMenu アイテムのクリックイベント |
/// ListColumnPopupMenu アイテムのクリックイベント |
| 1096 |
procedure ListColumnPopupMenuOnClick( Sender : TObject ); |
procedure ListColumnPopupMenuOnClick( Sender : TObject ); |
| 1097 |
|
// BrowserRecordについているFBrowserを外す |
| 1098 |
|
procedure ReleaseBrowser( BRecord: TBrowserRecord); |
| 1099 |
protected |
protected |
| 1100 |
procedure CreateParams(var Params: TCreateParams); override; |
procedure CreateParams(var Params: TCreateParams); override; |
| 1101 |
procedure WndProc(var Message: TMessage); override; |
procedure WndProc(var Message: TMessage); override; |
| 1105 |
|
|
| 1106 |
public |
public |
| 1107 |
{ Public 宣言 } |
{ Public 宣言 } |
|
// FDownload: TDownload; |
|
| 1108 |
FControlThread: TThreadControl; |
FControlThread: TThreadControl; |
| 1109 |
procedure MoveToURL(const inURL: string); |
procedure MoveToURL(const inURL: string); |
| 1110 |
function InsertBrowserTab( |
function InsertBrowserTab( |
| 1116 |
procedure SetEnabledCloseButton(Enabled: Boolean); |
procedure SetEnabledCloseButton(Enabled: Boolean); |
| 1117 |
function GetTreeNode(Data: TObject): TTreeNode; |
function GetTreeNode(Data: TObject): TTreeNode; |
| 1118 |
procedure AppFormDeactivate(Sender: TObject); |
procedure AppFormDeactivate(Sender: TObject); |
|
// procedure CabinetPanelVisible(PanelVisible: Boolean); |
|
| 1119 |
procedure ListViewAllSelect; |
procedure ListViewAllSelect; |
|
|
|
| 1120 |
property ListStyle: TViewStyle read FListStyle write FListStyle; |
property ListStyle: TViewStyle read FListStyle write FListStyle; |
| 1121 |
property ItemNoVisible: Boolean read FItemNoVisible write FItemNoVisible; |
property ItemNoVisible: Boolean read FItemNoVisible write FItemNoVisible; |
| 1122 |
property ViewType: TGikoViewType read FViewType write FViewType; |
property ViewType: TGikoViewType read FViewType write FViewType; |
|
|
|
| 1123 |
property NameCookie: string read FNameCookie write FNameCookie; |
property NameCookie: string read FNameCookie write FNameCookie; |
| 1124 |
property MailCookie: string read FMailCookie write FMailCookie; |
property MailCookie: string read FMailCookie write FMailCookie; |
|
|
|
| 1125 |
procedure SetContent(inThread: TBrowserRecord); |
procedure SetContent(inThread: TBrowserRecord); |
| 1126 |
function GetActiveContent: TThreadItem; |
function GetActiveContent: TThreadItem; |
| 1127 |
function GetActiveList: TObject; |
function GetActiveList: TObject; |
|
|
|
|
|
|
|
// property LastRoundTime: TDateTime read FLastRoundTime write FLastRoundTime; |
|
|
|
|
| 1128 |
procedure SetListViewType(AViewType: TGikoViewType); overload; |
procedure SetListViewType(AViewType: TGikoViewType); overload; |
| 1129 |
procedure SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); overload; |
procedure SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); overload; |
| 1130 |
procedure DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False); |
procedure DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False); |
| 1131 |
procedure DownloadList(Board: TBoard; ForceDownload: Boolean = False); |
procedure DownloadList(Board: TBoard; ForceDownload: Boolean = False); |
| 1132 |
procedure PlaySound(SoundEventName: string); |
procedure PlaySound(SoundEventName: string); |
|
|
|
| 1133 |
function AddHistory( FavItem: TFavoriteThreadItem ): Boolean; |
function AddHistory( FavItem: TFavoriteThreadItem ): Boolean; |
| 1134 |
procedure DeleteHistory( threadItem: TThreadItem ); |
procedure DeleteHistory( threadItem: TThreadItem ); |
| 1135 |
procedure ClearHistory; |
procedure ClearHistory; |
| 1139 |
procedure ShowBBSTreeOld( inBBS : TBBS ); |
procedure ShowBBSTreeOld( inBBS : TBBS ); |
| 1140 |
procedure ShowHistoryTree; |
procedure ShowHistoryTree; |
| 1141 |
procedure SetHistoryTreeNode; |
procedure SetHistoryTreeNode; |
|
// procedure SelectTreeNode(Item: TObject); |
|
| 1142 |
procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon); |
procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon); |
| 1143 |
procedure SetBrowserTabState; |
procedure SetBrowserTabState; |
|
// property Favorite: TFavorite read FFavorite write FFavorite; |
|
| 1144 |
procedure SetToolBarPopup; |
procedure SetToolBarPopup; |
| 1145 |
procedure ShowFavoriteAddDialog( Item : TObject ); |
procedure ShowFavoriteAddDialog( Item : TObject ); |
| 1146 |
procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList); |
procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList); |
| 1148 |
property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor; |
property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor; |
| 1149 |
property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor; |
property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor; |
| 1150 |
property OddColor : TColor read FOddColor write FOddColor; |
property OddColor : TColor read FOddColor write FOddColor; |
|
|
|
| 1151 |
function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton; |
function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton; |
| 1152 |
procedure OnPlugInMenuItem( Sender : TObject ); |
procedure OnPlugInMenuItem( Sender : TObject ); |
| 1153 |
procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList); |
procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList); |
| 1298 |
Self.OnDeactivate := AppFormDeactivate; |
Self.OnDeactivate := AppFormDeactivate; |
| 1299 |
Application.HookMainWindow(Hook); |
Application.HookMainWindow(Hook); |
| 1300 |
Application.OnMessage := HandleAppMessage; //なんか無くても大丈夫になった by もじゅ |
Application.OnMessage := HandleAppMessage; //なんか無くても大丈夫になった by もじゅ |
|
// Self.DoubleBuffered := true; |
|
| 1301 |
FTreeType := gttNone; |
FTreeType := gttNone; |
| 1302 |
|
|
| 1303 |
FSearchDialog := nil; |
FSearchDialog := nil; |
| 3663 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = nil then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = nil then begin |
| 3664 |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 3665 |
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 |
| 3666 |
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser := nil; |
ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[j])); |
|
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent <> nil then begin |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent.Free; |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent := nil; |
|
|
end; |
|
| 3667 |
break; |
break; |
| 3668 |
end; |
end; |
| 3669 |
end; |
end; |
| 3685 |
newBrowser := TBrowserRecord.Create; |
newBrowser := TBrowserRecord.Create; |
| 3686 |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 3687 |
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 |
| 3688 |
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser := nil; |
ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[j])); |
|
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent <> nil then begin |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent.Free; |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent := nil; |
|
|
end; |
|
| 3689 |
break; |
break; |
| 3690 |
end; |
end; |
| 3691 |
end; |
end; |
| 3710 |
newBrowser := TBrowserRecord.Create; |
newBrowser := TBrowserRecord.Create; |
| 3711 |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 3712 |
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 |
| 3713 |
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser := nil; |
ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[j])); |
|
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent <> nil then begin |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent.Free; |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent := nil; |
|
|
end; |
|
| 3714 |
break; |
break; |
| 3715 |
end; |
end; |
| 3716 |
end; |
end; |
| 3807 |
FBrowsers.Move(BROWSER_COUNT - 1, 0); |
FBrowsers.Move(BROWSER_COUNT - 1, 0); |
| 3808 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 3809 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin |
| 3810 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser := nil; |
ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[i])); |
|
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent <> nil then begin |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent.Free; |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent := nil; |
|
|
end; |
|
| 3811 |
break; |
break; |
| 3812 |
end; |
end; |
| 3813 |
end; |
end; |
| 3991 |
BBSs[i].KubetsuChk := KubetsuChk; |
BBSs[i].KubetsuChk := KubetsuChk; |
| 3992 |
end; |
end; |
| 3993 |
Board := TBoard(ActiveList); |
Board := TBoard(ActiveList); |
|
// Board.ParentCategory.ParenTBBS.SelectText := SelectText; |
|
|
// Board.ParentCategory.ParenTBBS.KubetsuChk := KubetsuChk; |
|
|
// Board.SelectText := SelectText; |
|
|
// Board.KubetsuChk := KubetsuChk; |
|
| 3994 |
ViewType := AViewType; |
ViewType := AViewType; |
| 3995 |
SetActiveList(Board); |
SetActiveList(Board); |
| 3996 |
SetThreadListItem(Board); |
SetThreadListItem(Board); |
| 5372 |
begin |
begin |
| 5373 |
Item := GetActiveContent; |
Item := GetActiveContent; |
| 5374 |
if Item = nil then Exit; |
if Item = nil then Exit; |
| 5375 |
Editor := TEditorForm.Create(Self); |
Editor := TEditorForm.Create(Application.MainForm); |
| 5376 |
Editor.SetThreadItem(Item); |
Editor.SetThreadItem(Item); |
| 5377 |
GikoSys.LoadEditorKeySetting(Editor.ActionList); |
GikoSys.LoadEditorKeySetting(Editor.ActionList); |
| 5378 |
Editor.Show; |
Editor.Show; |
| 5758 |
if(TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser |
if(TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser |
| 5759 |
= TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) )then |
= TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) )then |
| 5760 |
begin |
begin |
| 5761 |
TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser := nil; |
ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[j])); |
|
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent <> nil then begin |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent.Free; |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent := nil; |
|
|
end; |
|
| 5762 |
break; |
break; |
| 5763 |
end; |
end; |
| 5764 |
end; |
end; |
| 5816 |
if(TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser |
if(TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser |
| 5817 |
= TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) )then |
= TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) )then |
| 5818 |
begin |
begin |
| 5819 |
TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser := nil; |
ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[j])); |
|
if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent <> nil then begin |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent.Free; |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent := nil; |
|
|
end; |
|
| 5820 |
break; |
break; |
| 5821 |
end; |
end; |
| 5822 |
end; |
end; |
| 5833 |
end; |
end; |
| 5834 |
end; |
end; |
| 5835 |
end; |
end; |
|
|
|
| 5836 |
procedure TGikoForm.KokomadeActionExecute(Sender: TObject); |
procedure TGikoForm.KokomadeActionExecute(Sender: TObject); |
| 5837 |
var |
var |
| 5838 |
No: Integer; |
No: Integer; |
| 6429 |
|
|
| 6430 |
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
| 6431 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin |
| 6432 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser := nil; |
ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[i])); |
| 6433 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
break; |
|
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent <> nil then begin |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent.Free; |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent := nil; |
|
|
end; |
|
| 6434 |
end; |
end; |
| 6435 |
end; |
end; |
| 6436 |
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]); |
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]); |
| 9268 |
procedure TGikoForm.IndividualAbon1Click(Sender: TObject); |
procedure TGikoForm.IndividualAbon1Click(Sender: TObject); |
| 9269 |
var |
var |
| 9270 |
ThreadItem : TThreadItem; |
ThreadItem : TThreadItem; |
|
i: Integer; |
|
| 9271 |
begin |
begin |
| 9272 |
ThreadItem := GetActiveContent; |
ThreadItem := GetActiveContent; |
| 9273 |
GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 1, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG')); |
GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 1, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG')); |
| 9279 |
procedure TGikoForm.IndividualAbon2Click(Sender: TObject); |
procedure TGikoForm.IndividualAbon2Click(Sender: TObject); |
| 9280 |
var |
var |
| 9281 |
ThreadItem : TThreadItem; |
ThreadItem : TThreadItem; |
|
i: Integer; |
|
| 9282 |
begin |
begin |
| 9283 |
ThreadItem := GetActiveContent; |
ThreadItem := GetActiveContent; |
| 9284 |
GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 0, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG')); |
GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 0, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG')); |
| 10670 |
|
|
| 10671 |
// ブラウザのキーダウンイベント //なんか使わなくても動いてる気がする byもじゅ |
// ブラウザのキーダウンイベント //なんか使わなくても動いてる気がする byもじゅ |
| 10672 |
// イベントを取り扱った場合は True を返す |
// イベントを取り扱った場合は True を返す |
| 10673 |
|
{ |
| 10674 |
function TGikoForm.BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean; |
function TGikoForm.BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean; |
| 10675 |
var |
var |
| 10676 |
iOIPAO : IOleInPlaceActiveObject; |
iOIPAO : IOleInPlaceActiveObject; |
| 10680 |
if Key = VK_BACK then begin |
if Key = VK_BACK then begin |
| 10681 |
UpBoardAction.Execute; |
UpBoardAction.Execute; |
| 10682 |
Result := True; |
Result := True; |
| 10683 |
{end else if Key in [VK_ESCAPE..VK_HELP] then begin |
//end else if Key in [VK_ESCAPE..VK_HELP] then begin |
| 10684 |
// 十字、Page Up、Page Down 等は Browser が勝手に受け取るのでイベントをカット |
// // 十字、Page Up、Page Down 等は Browser が勝手に受け取るのでイベントをカット |
| 10685 |
Result := True; |
// Result := True; |
| 10686 |
} |
// |
| 10687 |
end else if(Key in [VK_SPACE..VK_HELP]) and |
end else if(Key in [VK_SPACE..VK_HELP]) and |
| 10688 |
not(ssCtrl in State) and not(ssAlt in State) and not (ssShift in State) then begin |
not(ssCtrl in State) and not(ssAlt in State) and not (ssShift in State) then begin |
| 10689 |
Result := True; |
Result := True; |
| 10701 |
//Result := False; |
//Result := False; |
| 10702 |
end; |
end; |
| 10703 |
|
|
| 10704 |
end; |
end;} |
| 10705 |
|
|
| 10706 |
// ギコナビのメッセージループを横取りします |
// ギコナビのメッセージループを横取りします |
| 10707 |
procedure TGikoForm.HandleAppMessage(var Msg: TMsg; var Handled: Boolean); |
procedure TGikoForm.HandleAppMessage(var Msg: TMsg; var Handled: Boolean); |
| 11757 |
end; |
end; |
| 11758 |
|
|
| 11759 |
end; |
end; |
| 11760 |
|
procedure TGikoForm.ReleaseBrowser( BRecord: TBrowserRecord); |
| 11761 |
|
begin |
| 11762 |
|
if BRecord <> nil then begin |
| 11763 |
|
BRecord.Browser := nil; |
| 11764 |
|
if BRecord.FEvent <> nil then begin |
| 11765 |
|
BRecord.FEvent.Free; |
| 11766 |
|
BRecord.FEvent := nil; |
| 11767 |
|
end; |
| 11768 |
|
BRecord.Repaint := true; |
| 11769 |
|
end; |
| 11770 |
|
end; |
| 11771 |
|
|
| 11772 |
initialization |
initialization |
| 11773 |
OleInitialize(nil); |
OleInitialize(nil); |