| 1057 |
EnabledCloseButton := True; |
EnabledCloseButton := True; |
| 1058 |
BoardGroup.BBS2ch.ReadBoardFile; //ボードファイル読込 |
BoardGroup.BBS2ch.ReadBoardFile; //ボードファイル読込 |
| 1059 |
// SetBoardTreeNode; //ツリーにボード追加 |
// SetBoardTreeNode; //ツリーにボード追加 |
|
Show2chTree; |
|
| 1060 |
|
|
| 1061 |
//リストスタイル |
//リストスタイル |
| 1062 |
ListView.ViewStyle := GikoSys.Setting.ListStyle; |
ListView.ViewStyle := GikoSys.Setting.ListStyle; |
| 1087 |
|
|
| 1088 |
//フォント・色設定 |
//フォント・色設定 |
| 1089 |
TreeView.Items.BeginUpdate; |
TreeView.Items.BeginUpdate; |
| 1090 |
|
FavoriteTreeView.Items.BeginUpdate; |
| 1091 |
ListView.Items.BeginUpdate; |
ListView.Items.BeginUpdate; |
| 1092 |
try |
try |
| 1093 |
TreeView.Font.Name := GikoSys.Setting.CabinetFontName; |
TreeView.Font.Name := GikoSys.Setting.CabinetFontName; |
| 1095 |
TreeView.Font.Color := GikoSys.Setting.CabinetFontColor; |
TreeView.Font.Color := GikoSys.Setting.CabinetFontColor; |
| 1096 |
TreeView.Color := GikoSys.Setting.CabinetBackColor; |
TreeView.Color := GikoSys.Setting.CabinetBackColor; |
| 1097 |
|
|
| 1098 |
|
FavoriteTreeView.Font.Name := GikoSys.Setting.CabinetFontName; |
| 1099 |
|
FavoriteTreeView.Font.Size := GikoSys.Setting.CabinetFontSize; |
| 1100 |
|
FavoriteTreeView.Font.Color := GikoSys.Setting.CabinetFontColor; |
| 1101 |
|
FavoriteTreeView.Color := GikoSys.Setting.CabinetBackColor; |
| 1102 |
|
|
| 1103 |
ListView.Font.Name := GikoSys.Setting.ListFontName; |
ListView.Font.Name := GikoSys.Setting.ListFontName; |
| 1104 |
ListView.Font.Size := GikoSys.Setting.ListFontSize; |
ListView.Font.Size := GikoSys.Setting.ListFontSize; |
| 1105 |
ListView.Font.Color := GikoSys.Setting.ListFontColor; |
ListView.Font.Color := GikoSys.Setting.ListFontColor; |
| 1106 |
ListView.Color := GikoSys.Setting.ListBackColor; |
ListView.Color := GikoSys.Setting.ListBackColor; |
| 1107 |
finally |
finally |
| 1108 |
TreeView.Items.EndUpdate; |
TreeView.Items.EndUpdate; |
| 1109 |
|
FavoriteTreeView.Items.EndUpdate; |
| 1110 |
ListView.Items.EndUpdate; |
ListView.Items.EndUpdate; |
| 1111 |
end; |
end; |
| 1112 |
//ViewNoButton.Down := GikoSys.Setting.ListViewNo; |
//ViewNoButton.Down := GikoSys.Setting.ListViewNo; |
| 1346 |
//ResHint |
//ResHint |
| 1347 |
FHint := TResPopup.Create(Self); |
FHint := TResPopup.Create(Self); |
| 1348 |
|
|
| 1349 |
|
// 最後に選択されたキャビネットの復元 |
| 1350 |
|
Case GikoSys.Setting.CabinetIndex of |
| 1351 |
|
0: Cabinet2chAction.Execute; |
| 1352 |
|
1: CabinetHistoryAction.Execute; |
| 1353 |
|
2: CabinetFavoriteAction.Execute; |
| 1354 |
|
end; |
| 1355 |
|
|
| 1356 |
//オートログイン |
//オートログイン |
| 1357 |
if GikoSys.Setting.AutoLogin then |
if GikoSys.Setting.AutoLogin then |
| 1358 |
LoginAction.Execute; |
LoginAction.Execute; |
| 2281 |
end else begin |
end else begin |
| 2282 |
URL := Text; |
URL := Text; |
| 2283 |
|
|
| 2284 |
// スキンを使用している場合はポップアップしない |
if Pos('about:blank..', URL) = 1 then |
|
if Pos('about:blank..', URL) = 1 then begin |
|
|
if GikoSys.Setting.UseCSS and |
|
|
FileExists( GikoSys.GetSkinHeaderFileName ) and |
|
|
(not GikoSys.Setting.SkinPopup) then |
|
|
Exit; |
|
|
|
|
| 2285 |
URL := StringReplace(URL, 'about:blank..', 'http://www.2ch.net', []); |
URL := StringReplace(URL, 'about:blank..', 'http://www.2ch.net', []); |
|
end; |
|
| 2286 |
|
|
| 2287 |
PathRec := Gikosys.Parse2chURL2(URL); |
PathRec := Gikosys.Parse2chURL2(URL); |
| 2288 |
|
|
| 3303 |
var |
var |
| 3304 |
i: Integer; |
i: Integer; |
| 3305 |
begin |
begin |
| 3306 |
|
GikoSys.Setting.CabinetIndex := 0; |
| 3307 |
|
|
| 3308 |
FavoriteTreeView.Visible := False; |
FavoriteTreeView.Visible := False; |
| 3309 |
FavoriteToolBar.Hide; |
FavoriteToolBar.Hide; |
| 3310 |
TreeView.Visible := True; |
TreeView.Visible := True; |
| 3311 |
|
|
| 3312 |
|
CabinetSelectToolButton.Caption := '2ちゃんねる'; |
| 3313 |
|
|
| 3314 |
Cabinet2chAction.Checked := True; |
Cabinet2chAction.Checked := True; |
| 3315 |
CabinetHistoryAction.Checked := False; |
CabinetHistoryAction.Checked := False; |
| 3316 |
CabinetFavoriteAction.Checked := False; |
CabinetFavoriteAction.Checked := False; |
| 3321 |
SetBoardTreeNode; |
SetBoardTreeNode; |
| 3322 |
TreeView.TopItem.Expanded := True; //ツリートップ項目だけを開く |
TreeView.TopItem.Expanded := True; //ツリートップ項目だけを開く |
| 3323 |
//TreeView.Selected := TreeView.Items[0]; //ツリーのトップ項目を選択する |
//TreeView.Selected := TreeView.Items[0]; //ツリーのトップ項目を選択する |
|
CabinetSelectToolButton.Caption := '2ちゃんねる'; |
|
| 3324 |
if GetActiveList = nil then |
if GetActiveList = nil then |
| 3325 |
TreeView.Selected := TreeView.Items[0] |
TreeView.Selected := TreeView.Items[0] |
| 3326 |
else begin |
else begin |
| 3334 |
|
|
| 3335 |
procedure TGikoForm.ShowHistoryTree; |
procedure TGikoForm.ShowHistoryTree; |
| 3336 |
begin |
begin |
| 3337 |
|
GikoSys.Setting.CabinetIndex := 1; |
| 3338 |
|
|
| 3339 |
FavoriteTreeView.Visible := False; |
FavoriteTreeView.Visible := False; |
| 3340 |
TreeView.Visible := True; |
TreeView.Visible := True; |
| 3341 |
|
|
| 7366 |
procedure TGikoForm.CabinetFavoriteActionExecute(Sender: TObject); |
procedure TGikoForm.CabinetFavoriteActionExecute(Sender: TObject); |
| 7367 |
begin |
begin |
| 7368 |
|
|
| 7369 |
|
GikoSys.Setting.CabinetIndex := 2; |
| 7370 |
|
|
| 7371 |
// キャビネットツールバー及びキャビネットの表示切替 |
// キャビネットツールバー及びキャビネットの表示切替 |
| 7372 |
HistoryToolBar.Hide; |
HistoryToolBar.Hide; |
| 7373 |
FavoriteToolBar.Show; |
FavoriteToolBar.Show; |