| 2209 |
if BBS = nil then Exit; |
if BBS = nil then Exit; |
| 2210 |
if BBS.Count <= 0 then Exit; |
if BBS.Count <= 0 then Exit; |
| 2211 |
if Item = nil then Exit; |
if Item = nil then Exit; |
| 2212 |
if Item.Index > BBS.Count then Exit; |
if Item.Index >= BBS.Count then Exit; |
| 2213 |
if ListView.Items.Count = 0 then Exit; |
if ListView.Items.Count = 0 then Exit; |
| 2214 |
|
|
| 2215 |
if not (BBS.Items[Item.index] is TCategory) then Exit; |
if not (BBS.Items[Item.index] is TCategory) then Exit; |
| 2216 |
Category := TCategory(BBS.Items[Item.index]); |
Category := TCategory(BBS.Items[Item.index]); |
| 2217 |
|
|
| 2218 |
if Category = nil then Exit; |
if Category = nil then Exit; |
| 2219 |
|
|
| 2365 |
Item.SubItems[4] := ''; |
Item.SubItems[4] := ''; |
| 2366 |
Item.SubItems[5] := ''; |
Item.SubItems[5] := ''; |
| 2367 |
if not GikoSys.Setting.CreationTimeLogs then |
if not GikoSys.Setting.CreationTimeLogs then |
| 2368 |
if ThreadItem.CreateDate = ZERO_DATE then |
if ThreadItem.CreateDate = ZERO_DATE then |
| 2369 |
Item.SubItems[6] := '' |
Item.SubItems[6] := '' |
| 2370 |
else |
else |
| 2371 |
Item.SubItems[6] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.CreateDate); |
Item.SubItems[6] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.CreateDate); |
| 3289 |
MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0); |
MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0); |
| 3290 |
end; |
end; |
| 3291 |
end; |
end; |
| 3292 |
finally |
finally |
| 3293 |
// Application.ProcessMessages; |
// Application.ProcessMessages; |
| 3294 |
end; |
end; |
| 3295 |
|
|
| 5921 |
SetSelectItemRound(RoundFlag, RoundName); |
SetSelectItemRound(RoundFlag, RoundName); |
| 5922 |
end else begin |
end else begin |
| 5923 |
threadItem := GetActiveContent; |
threadItem := GetActiveContent; |
| 5924 |
if threadItem <> nil then begin |
if threadItem <> nil then begin |
| 5925 |
threadItem.RoundName := RoundName; |
threadItem.RoundName := RoundName; |
| 5926 |
threadItem.Round := RoundFlag; |
threadItem.Round := RoundFlag; |
| 5927 |
end; |
end; |
| 6033 |
PlaySound('Error'); |
PlaySound('Error'); |
| 6034 |
LoginAction.Checked := False; |
LoginAction.Checked := False; |
| 6035 |
LoginToolButton.Down := False; |
LoginToolButton.Down := False; |
| 6036 |
LoginToolButton.Style := tbsButton; |
LoginToolButton.Style := tbsButton; |
| 6037 |
end; |
end; |
| 6038 |
end else begin |
end else begin |
| 6039 |
msg := '強制ログインモードでは,サーバの証明書の有効性をチェックしません。' + #13#10 |
msg := '強制ログインモードでは,サーバの証明書の有効性をチェックしません。' + #13#10 |
| 6061 |
// MsgBox(Handle, 'ログイン出来ませんでした', 'エラー', MB_OK or MB_ICONSTOP); |
// MsgBox(Handle, 'ログイン出来ませんでした', 'エラー', MB_OK or MB_ICONSTOP); |
| 6062 |
AddMessageList(GikoSys.Dolib.ErrorMsg, nil, gmiNG); |
AddMessageList(GikoSys.Dolib.ErrorMsg, nil, gmiNG); |
| 6063 |
PlaySound('Error'); |
PlaySound('Error'); |
| 6064 |
LoginAction.Checked := False; |
LoginAction.Checked := False; |
| 6065 |
LoginToolButton.Down := False; |
LoginToolButton.Down := False; |
| 6066 |
LoginToolButton.Style := tbsButton; |
LoginToolButton.Style := tbsButton; |
| 6067 |
end; |
end; |
| 6621 |
end else if ctrlDown then begin |
end else if ctrlDown then begin |
| 6622 |
GikoSys.OpenBrowser(URL, gbtIE); |
GikoSys.OpenBrowser(URL, gbtIE); |
| 6623 |
Exit; |
Exit; |
| 6624 |
end; |
end; |
| 6625 |
|
|
| 6626 |
//===== プラグイン |
//===== プラグイン |
| 6627 |
try |
try |
| 6761 |
if Board = nil then begin |
if Board = nil then begin |
| 6762 |
GikoSys.OpenBrowser(URL, gbtAuto); |
GikoSys.OpenBrowser(URL, gbtAuto); |
| 6763 |
end else begin |
end else begin |
| 6764 |
if FActiveBBS <> Board.ParentCategory.ParenTBBS then |
if FActiveBBS <> Board.ParentCategory.ParenTBBS then |
| 6765 |
ShowBBSTree( Board.ParentCategory.ParenTBBS ); |
ShowBBSTree( Board.ParentCategory.ParenTBBS ); |
| 6766 |
SelectTreeNode( Board, True ); |
SelectTreeNode( Board, True ); |
| 6767 |
end; |
end; |