| 1128 |
procedure OnGestureEnd(Sender: TObject); |
procedure OnGestureEnd(Sender: TObject); |
| 1129 |
//! 絞り込み文字列設定 |
//! 絞り込み文字列設定 |
| 1130 |
procedure SetSelectWord( const text : string ); |
procedure SetSelectWord( const text : string ); |
| 1131 |
|
//ブラウザの再描画 true:全てのタブ false:アクティブなタブのみ |
| 1132 |
|
procedure RepaintAllTabsBrowser(); |
| 1133 |
protected |
protected |
| 1134 |
procedure CreateParams(var Params: TCreateParams); override; |
procedure CreateParams(var Params: TCreateParams); override; |
| 1135 |
procedure WndProc(var Message: TMessage); override; |
procedure WndProc(var Message: TMessage); override; |
| 4076 |
Board: TBoard; |
Board: TBoard; |
| 4077 |
i: Integer; |
i: Integer; |
| 4078 |
begin |
begin |
| 4079 |
|
for i := Length( BBSs ) - 1 downto 0 do begin |
| 4080 |
|
BBSs[i].SelectText := SelectText; |
| 4081 |
|
BBSs[i].KubetsuChk := KubetsuChk; |
| 4082 |
|
end; |
| 4083 |
|
ViewType := AViewType; |
| 4084 |
if ActiveList is TBoard then begin |
if ActiveList is TBoard then begin |
|
for i := Length( BBSs ) - 1 downto 0 do begin |
|
|
BBSs[i].SelectText := SelectText; |
|
|
BBSs[i].KubetsuChk := KubetsuChk; |
|
|
end; |
|
| 4085 |
Board := TBoard(ActiveList); |
Board := TBoard(ActiveList); |
|
ViewType := AViewType; |
|
| 4086 |
SetActiveList(Board); |
SetActiveList(Board); |
| 4087 |
SetThreadListItem(Board); |
//SetThreadListItem(Board); //SetActiveList内で呼ばれるから2重に呼び出す必要なし |
| 4088 |
end; |
end; |
| 4089 |
end; |
end; |
| 4090 |
|
|
| 4097 |
begin |
begin |
| 4098 |
if ListView.Items.Count = 0 then begin |
if ListView.Items.Count = 0 then begin |
| 4099 |
DefaultDraw := true; |
DefaultDraw := true; |
|
|
|
| 4100 |
ListView.Canvas.Brush.Color := ListView.Color; |
ListView.Canvas.Brush.Color := ListView.Color; |
| 4101 |
ListView.Canvas.FillRect(ARect); |
ListView.Canvas.FillRect(ARect); |
| 4102 |
|
|
| 9174 |
finally |
finally |
| 9175 |
FilterList.Destroy; |
FilterList.Destroy; |
| 9176 |
end; |
end; |
| 9177 |
|
RepaintAllTabsBrowser(); |
|
// スレッドの再描画 |
|
|
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
|
|
end; |
|
|
ThreadItem := GetActiveContent; |
|
|
if ThreadItem <> nil then |
|
|
InsertBrowserTab( ThreadItem, True ); |
|
| 9178 |
end; |
end; |
| 9179 |
end else begin |
end else begin |
| 9180 |
// キャンセル |
// キャンセル |
| 9219 |
|
|
| 9220 |
FSelectResWord := ''; |
FSelectResWord := ''; |
| 9221 |
|
|
| 9222 |
// スレッドを再描画 |
RepaintAllTabsBrowser(); |
|
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
|
|
end; |
|
|
ThreadItem := GetActiveContent; |
|
|
if ThreadItem <> nil then |
|
|
InsertBrowserTab( ThreadItem, True ); |
|
| 9223 |
end; |
end; |
| 9224 |
end; |
end; |
| 9225 |
|
|
| 9236 |
if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin |
if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin |
| 9237 |
MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION); |
MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION); |
| 9238 |
end else begin |
end else begin |
| 9239 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do |
RepaintAllTabsBrowser(); |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
|
|
|
|
|
ThreadItem := GetActiveContent; |
|
|
if ThreadItem <> nil then |
|
|
InsertBrowserTab( ThreadItem, True ); |
|
| 9240 |
end; |
end; |
| 9241 |
|
|
| 9242 |
end; |
end; |
| 9254 |
StatusBar.Panels.Items[2].Text := s; |
StatusBar.Panels.Items[2].Text := s; |
| 9255 |
StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100); |
StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100); |
| 9256 |
StatusBarResize(Sender); |
StatusBarResize(Sender); |
| 9257 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do |
RepaintAllTabsBrowser(); |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
|
|
|
|
|
ThreadItem := GetActiveContent; |
|
|
if ThreadItem <> nil then |
|
|
InsertBrowserTab( ThreadItem, True ); |
|
| 9258 |
end; |
end; |
| 9259 |
|
|
| 9260 |
end; |
end; |
| 9272 |
StatusBar.Panels.Items[2].Text := s; |
StatusBar.Panels.Items[2].Text := s; |
| 9273 |
StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100); |
StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100); |
| 9274 |
StatusBarResize(Sender); |
StatusBarResize(Sender); |
| 9275 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do |
RepaintAllTabsBrowser(); |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
|
|
|
|
|
ThreadItem := GetActiveContent; |
|
|
if ThreadItem <> nil then |
|
|
InsertBrowserTab( ThreadItem, True ); |
|
| 9276 |
end; |
end; |
| 9277 |
|
|
| 9278 |
end; |
end; |
| 11213 |
end; |
end; |
| 11214 |
|
|
| 11215 |
FSelectResWord := ''; |
FSelectResWord := ''; |
| 11216 |
|
RepaintAllTabsBrowser(); |
|
// スレッドを再描画 |
|
|
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
|
|
end; |
|
|
ThreadItem := GetActiveContent; |
|
|
if ThreadItem <> nil then |
|
|
InsertBrowserTab( ThreadItem, True ); |
|
| 11217 |
end; |
end; |
| 11218 |
end; |
end; |
| 11219 |
|
|
| 11242 |
end; |
end; |
| 11243 |
|
|
| 11244 |
FSelectResWord := ''; |
FSelectResWord := ''; |
| 11245 |
|
RepaintAllTabsBrowser(); |
|
// スレッドを再描画 |
|
|
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
|
|
end; |
|
|
ThreadItem := GetActiveContent; |
|
|
if ThreadItem <> nil then |
|
|
InsertBrowserTab( ThreadItem, True ); |
|
| 11246 |
end; |
end; |
| 11247 |
end; |
end; |
| 11248 |
|
|
| 11271 |
end; |
end; |
| 11272 |
|
|
| 11273 |
FSelectResWord := ''; |
FSelectResWord := ''; |
| 11274 |
|
RepaintAllTabsBrowser(); |
|
// スレッドを再描画 |
|
|
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
|
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
|
|
end; |
|
|
ThreadItem := GetActiveContent; |
|
|
if ThreadItem <> nil then |
|
|
InsertBrowserTab( ThreadItem, True ); |
|
| 11275 |
end; |
end; |
| 11276 |
end; |
end; |
| 11277 |
|
|
| 11622 |
end; |
end; |
| 11623 |
// if (ThreadItem.Kokomade <> ThreadItem.Count) and (ThreadItem.IsLogFile) then |
// if (ThreadItem.Kokomade <> ThreadItem.Count) and (ThreadItem.IsLogFile) then |
| 11624 |
if ThreadItem.UnRead then |
if ThreadItem.UnRead then |
| 11625 |
TListView(Sender).Canvas.Font.Style := [fsBold]; |
ListView.Canvas.Font.Style := [fsBold]; |
| 11626 |
end; |
end; |
| 11627 |
|
|
| 11628 |
end; |
end; |
| 12090 |
IDAnchorPopup(''); |
IDAnchorPopup(''); |
| 12091 |
end; |
end; |
| 12092 |
|
|
| 12093 |
|
procedure TGikoForm.RepaintAllTabsBrowser(); |
| 12094 |
|
var |
| 12095 |
|
i : Integer; |
| 12096 |
|
ThreadItem: TThreadItem; |
| 12097 |
|
begin |
| 12098 |
|
for i := BrowserTab.Tabs.Count - 1 downto 0 do |
| 12099 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true; |
| 12100 |
|
|
| 12101 |
|
ThreadItem := GetActiveContent; |
| 12102 |
|
if ThreadItem <> nil then |
| 12103 |
|
InsertBrowserTab( ThreadItem, True ); |
| 12104 |
|
|
| 12105 |
|
end; |
| 12106 |
|
|
| 12107 |
initialization |
initialization |
| 12108 |
OleInitialize(nil); |
OleInitialize(nil); |
| 12109 |
finalization |
finalization |