| 1908 |
SelectComboBox.Visible := True; |
SelectComboBox.Visible := True; |
| 1909 |
// スレッド絞込用独自セパレータを挿入 |
// スレッド絞込用独自セパレータを挿入 |
| 1910 |
SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width; |
SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width; |
|
SelectComboBoxSplitter.Visible := True; |
|
| 1911 |
SelectComboBoxSplitter.Parent := ListToolBar; |
SelectComboBoxSplitter.Parent := ListToolBar; |
| 1912 |
|
SelectComboBoxSplitter.Visible := True; |
| 1913 |
|
SelectComboBoxSplitter.BringToFront; |
| 1914 |
break; |
break; |
| 1915 |
end; |
end; |
| 1916 |
end; |
end; |
| 1918 |
end; |
end; |
| 1919 |
//重要 これがないとツールボタンの更新がおかしくなる |
//重要 これがないとツールボタンの更新がおかしくなる |
| 1920 |
ResetBandInfo( ListCoolBar, ListToolBar ); |
ResetBandInfo( ListCoolBar, ListToolBar ); |
|
|
|
| 1921 |
FIsIgnoreResize := rtNone; |
FIsIgnoreResize := rtNone; |
| 1922 |
|
|
| 1923 |
//TabAutoLoad |
//TabAutoLoad |
| 2114 |
// TBoard, TThreadItem のデストラクタはプラグインに破棄を伝えるので |
// TBoard, TThreadItem のデストラクタはプラグインに破棄を伝えるので |
| 2115 |
// BoardPluteIns の開放より先に行うこと |
// BoardPluteIns の開放より先に行うこと |
| 2116 |
for i := Length(BoardGroups) - 1 downto 0 do begin |
for i := Length(BoardGroups) - 1 downto 0 do begin |
| 2117 |
BoardGroups[i].Clear; |
//BoardGroups[i].Clear; |
| 2118 |
|
BoardGroups[i].Free; |
| 2119 |
end; |
end; |
| 2120 |
|
|
| 2121 |
try |
try |
| 2212 |
i : Integer; |
i : Integer; |
| 2213 |
tmpBool: Boolean; |
tmpBool: Boolean; |
| 2214 |
begin |
begin |
| 2215 |
|
LockWindowUpdate(Self.Handle); |
| 2216 |
|
|
| 2217 |
//タブクローズ |
//タブクローズ |
| 2218 |
tmpBool := GikoSys.Setting.ShowDialogForAllTabClose; |
tmpBool := GikoSys.Setting.ShowDialogForAllTabClose; |
| 2219 |
GikoSys.Setting.ShowDialogForAllTabClose := false; |
GikoSys.Setting.ShowDialogForAllTabClose := false; |
| 2236 |
end; |
end; |
| 2237 |
|
|
| 2238 |
//履歴の保存と破棄 |
//履歴の保存と破棄 |
| 2239 |
SaveHistory; |
try |
| 2240 |
ClearHistory; |
SaveHistory; |
| 2241 |
|
ClearHistory; |
| 2242 |
|
except |
| 2243 |
|
end; |
| 2244 |
|
|
| 2245 |
//お気に入りの保存と破棄 |
//お気に入りの保存と破棄 |
| 2246 |
FavoriteDM.WriteFavorite; |
try |
| 2247 |
FavoriteDM.Clear; |
FavoriteDM.WriteFavorite; |
| 2248 |
|
FavoriteDM.Clear; |
| 2249 |
|
except |
| 2250 |
|
end; |
| 2251 |
|
|
| 2252 |
|
//板・スレ・PLUGINの破棄 |
| 2253 |
|
for i := Length(BoardGroups) - 1 downto 0 do begin |
| 2254 |
|
try |
| 2255 |
|
BoardGroups[i].Free; |
| 2256 |
|
except |
| 2257 |
|
end; |
| 2258 |
|
end; |
| 2259 |
//BBS破棄 |
//BBS破棄 |
| 2260 |
try |
try |
| 2261 |
for i := Length( BBSs ) - 1 downto 0 do begin |
for i := Length( BBSs ) - 1 downto 0 do begin |
| 2269 |
ActiveList := nil; |
ActiveList := nil; |
| 2270 |
|
|
| 2271 |
FTreeType := gttNone; |
FTreeType := gttNone; |
| 2272 |
//GikoSys.FBoardURLList.Clear; |
|
| 2273 |
for i := Length(BoardGroups) - 1 downto 0 do begin |
//============ここから下で、再生================================// |
| 2274 |
BoardGroups[i].Clear; |
|
| 2275 |
end; |
// 外部板プラグインをロード(ReadBoardFile, LoadHistory より先に行うこと) |
| 2276 |
|
InitializeBoardPlugIns; |
| 2277 |
|
|
| 2278 |
GikoSys.ListBoardFile; //ボードファイル読込 |
GikoSys.ListBoardFile; //ボードファイル読込 |
| 2279 |
|
|
| 2280 |
// すべてのBBSを読み込んでおく |
// すべてのBBSを読み込んでおく |
| 2300 |
RoundList.LoadRoundBoardFile; |
RoundList.LoadRoundBoardFile; |
| 2301 |
RoundList.LoadRoundThreadFile; |
RoundList.LoadRoundThreadFile; |
| 2302 |
|
|
| 2303 |
|
LockWindowUpdate(0); |
| 2304 |
// |
// |
| 2305 |
TabsOpenAction.Execute; |
TabsOpenAction.Execute; |
| 2306 |
end; |
end; |
| 8253 |
else |
else |
| 8254 |
Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' [' + res.FMailTo + '] 投稿日: ' + Res.FDateTime; |
Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' [' + res.FMailTo + '] 投稿日: ' + Res.FDateTime; |
| 8255 |
|
|
| 8256 |
Body := CustomStringReplace(Res.FBody, '<br> ', #10,true); |
Body := DeleteFontTag(Res.FBody); |
| 8257 |
|
Body := CustomStringReplace(Body, '<br> ', #10,true); |
| 8258 |
Body := CustomStringReplace(Body, '<br>', #10,true); |
Body := CustomStringReplace(Body, '<br>', #10,true); |
| 8259 |
Body := CustomStringReplace(Body, '</a>', '',true); |
Body := CustomStringReplace(Body, '</a>', '',true); |
| 8260 |
Body := GikoSys.DeleteLink(Body); |
Body := GikoSys.DeleteLink(Body); |
| 10874 |
if FActiveContent <> nil then |
if FActiveContent <> nil then |
| 10875 |
WebBrowserClick(FActiveContent.Browser); //一回Browserに当てないと動かないときがある |
WebBrowserClick(FActiveContent.Browser); //一回Browserに当てないと動かないときがある |
| 10876 |
ListView.SetFocus; |
ListView.SetFocus; |
| 10877 |
|
|
| 10878 |
if( ListView.Items.Count > 0 ) and (ListView.ItemFocused = nil) then |
if( ListView.Items.Count > 0 ) and (ListView.ItemFocused = nil) then |
| 10879 |
ListView.Items.Item[0].Selected := true //選択アイテムが無いときは先頭のを選択する |
ListView.Items.Item[0].Selected := true; //選択アイテムが無いときは先頭のを選択する |
| 10880 |
else if ListView.Items.Count > 0 then begin |
|
| 10881 |
ListView.Scroll(-ListView.ClientWidth, -ListView.ClientHeight); |
//スクロールさせる |
| 10882 |
rct := ListView.ItemFocused.DisplayRect(drBounds); |
if (ListView.ItemFocused <> nil) then begin |
| 10883 |
ListView.Scroll(0, 2 * rct.Top - rct.Bottom); |
ListView.ItemFocused.MakeVisible(False); |
|
if ListView.ViewStyle <> vsReport then begin |
|
|
ListView.Scroll(rct.Left, 0); |
|
|
end; |
|
| 10884 |
end; |
end; |
| 10885 |
end; |
end; |
| 10886 |
|
|
| 11722 |
var |
var |
| 11723 |
ThreadItem: TThreadItem; |
ThreadItem: TThreadItem; |
| 11724 |
begin |
begin |
| 11725 |
DefaultDraw := true; |
DefaultDraw := true; |
| 11726 |
if TObject(Item.Data) is TThreadItem then begin |
if TObject(Item.Data) is TThreadItem then begin |
| 11727 |
ThreadItem := TThreadItem(Item.Data); |
ThreadItem := TThreadItem(Item.Data); |
| 11728 |
if ( FUseOddResOddColor ) and ( ThreadItem.Count <> 0 ) and ( ThreadItem.AllResCount <> ThreadItem.Count) then begin |
if ( FUseOddResOddColor ) and ( ThreadItem.Count <> 0 ) and ( ThreadItem.AllResCount <> ThreadItem.Count) then begin |
| 11729 |
ListView.Canvas.Brush.Color := FOddColor; |
ListView.Canvas.Brush.Color := FOddColor; |
| 11730 |
|
//選択されているけど、フォーカスがないと、グレイになるので、太字に変更 |
| 11731 |
|
if (Item.Selected) and (not (cdsFocused in State)) then begin |
| 11732 |
|
ListView.Canvas.Font.Style := [fsBold]; |
| 11733 |
|
end; |
| 11734 |
end else begin |
end else begin |
| 11735 |
ListView.Canvas.Brush.Color := FListViewBackGroundColor; |
ListView.Canvas.Brush.Color := FListViewBackGroundColor; |
| 11736 |
end; |
end; |
| 11737 |
// if (ThreadItem.Kokomade <> ThreadItem.Count) and (ThreadItem.IsLogFile) then |
|
| 11738 |
if ThreadItem.UnRead then |
if ThreadItem.UnRead then |
| 11739 |
ListView.Canvas.Font.Style := [fsBold]; |
ListView.Canvas.Font.Style := [fsBold]; |
| 11740 |
end; |
end; |