Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.291 by h677, Sat Apr 24 14:25:29 2004 UTC revision 1.292 by h677, Mon Apr 26 16:25:27 2004 UTC
# Line 2209  begin Line 2209  begin
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    
# Line 2365  begin Line 2365  begin
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);
# Line 3289  begin Line 3289  begin
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    
# Line 5921  begin Line 5921  begin
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;
# Line 6033  begin Line 6033  begin
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
# Line 6061  begin Line 6061  begin
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;
# Line 6621  begin Line 6621  begin
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
# Line 6761  begin Line 6761  begin
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;

Legend:
Removed from v.1.291  
changed lines
  Added in v.1.292

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26