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.225 by yoffy, Wed Mar 24 19:20:46 2004 UTC revision 1.226 by h677, Tue Mar 30 12:45:25 2004 UTC
# Line 1026  type Line 1026  type
1026                  procedure SetToolBarPopup;                  procedure SetToolBarPopup;
1027                  procedure ShowFavoriteAddDialog( Item : TObject );                  procedure ShowFavoriteAddDialog( Item : TObject );
1028          procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);          procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);
1029            procedure RoundListURLReplace(oldURLs: TStringList; newURLs: TStringList);
1030                  property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;                  property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;
1031                  property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;                  property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;
1032                  property OddColor : TColor read FOddColor write FOddColor;                  property OddColor : TColor read FOddColor write FOddColor;
# Line 1500  begin Line 1500  begin
1500      dummy1.Caption      := ItemReservPMenu.Caption;      dummy1.Caption      := ItemReservPMenu.Caption;
1501      dummy1.Hint     := ItemReservPMenu.Hint;      dummy1.Hint     := ItemReservPMenu.Hint;
1502    
1503        //Samba24のファイルチェック
1504        GikoSys.SambaFileExists();
1505  end;  end;
1506    
1507  // CoolBar の設定を変数に保存  // CoolBar の設定を変数に保存
# Line 1731  begin Line 1733  begin
1733          //ヒストリリスト保存          //ヒストリリスト保存
1734          try          try
1735                  SaveHistory;                  SaveHistory;
1736          ClearHistory;          //ClearHistory;
1737          except          except
1738          end;          end;
1739    
# Line 6258  var Line 6260  var
6260          i                               : Integer;          i                               : Integer;
6261          Items           : ^TTreeNodes;          Items           : ^TTreeNodes;
6262          ItemURL : string;          ItemURL : string;
         CompURL : string;  
6263          Data            : Pointer;          Data            : Pointer;
6264        sT : Cardinal;
6265        eT : Cardinal;
6266  begin  begin
6267    
6268          Items := @(FavoriteTreeView.Items);          Items := @(FavoriteTreeView.Items);
# Line 6267  begin Line 6270  begin
6270                  Item := TFavoriteBoardItem( Item ).Item                  Item := TFavoriteBoardItem( Item ).Item
6271          else if Item is TFavoriteThreadItem then          else if Item is TFavoriteThreadItem then
6272                  Item := TFavoriteThreadItem( Item ).Item;                  Item := TFavoriteThreadItem( Item ).Item;
6273        sT := GetTickCount;
6274          if Item is TBoard then begin          if Item is TBoard then begin
6275                  ItemURL := TBoard( Item ).URL;                  ItemURL := TBoard( Item ).URL;
6276                  for i := Items^.Count - 1 downto 0 do begin                  for i := Items^.Count - 1 downto 0 do begin
6277                          Data := Items^.Item[ i ].Data;                          Data := Items^.Item[ i ].Data;
6278                          if TObject( Data ) is TFavoriteBoardItem then begin                          if TObject( Data ) is TFavoriteBoardItem then begin
6279                                  CompURL := TFavoriteBoardItem( Data ).URL;                  if ItemURL = TFavoriteThreadItem( Data ).URL then begin
   
                                 if ItemURL = CompURL then begin  
6280                                          if Application.MessageBox( '既にお気に入りに登録されています。それでも追加しますか?', 'お気に入りの追加', MB_YESNO ) = IDNO then                                          if Application.MessageBox( '既にお気に入りに登録されています。それでも追加しますか?', 'お気に入りの追加', MB_YESNO ) = IDNO then
6281                                                  Exit;                                                  Exit;
6282                                          Break;                                          Break;
6283                                  end;                                  end;
6284                          end;                          end;
6285                  end;                  end;
6286            eT := GetTickCount;
6287                  Dlg := TFavoriteAddDialog.Create(Self);                  Dlg := TFavoriteAddDialog.Create(Self);
6288                  try                  try
6289                          Dlg.SetBoard( TBoard( Item ) );                          Dlg.SetBoard( TBoard( Item ) );
6290                          Dlg.ShowModal;                          Dlg.ShowModal;
6291                  finally                  finally
6292                          Dlg.Free;                          Dlg.Release;
6293                  end;                  end;
6294          end else if Item is TThreadItem then begin          end else if Item is TThreadItem then begin
6295                  ItemURL := TThreadItem( Item ).URL;                  ItemURL := TThreadItem( Item ).URL;
6296                  for i := Items^.Count - 1 downto 0 do begin                  for i := Items^.Count - 1 downto 0 do begin
6297                          Data := Items^.Item[ i ].Data;                          Data := Items^.Item[ i ].Data;
6298                          if TObject( Data ) is TFavoriteThreadItem then begin                          if TObject( Data ) is TFavoriteThreadItem then begin
6299                                  CompURL := TFavoriteThreadItem( Data ).URL;                  if ItemURL = TFavoriteThreadItem( Data ).URL then begin
   
                                 if ItemURL = CompURL then begin  
6300                                          if Application.MessageBox( '既にお気に入りに登録されています。それでも追加しますか?', 'お気に入りの追加', MB_YESNO ) = IDNO then                                          if Application.MessageBox( '既にお気に入りに登録されています。それでも追加しますか?', 'お気に入りの追加', MB_YESNO ) = IDNO then
6301                                                  Exit;                                                  Exit;
6302                                          Break;                                          Break;
6303                                  end;                                  end;
6304                          end;                          end;
6305                  end;                  end;
6306            eT := GetTickCount;
6307                  Dlg := TFavoriteAddDialog.Create(Self);                  Dlg := TFavoriteAddDialog.Create(Self);
6308                  try                  try
6309                          Dlg.SetThreadItem( TThreadItem( Item ) );                          Dlg.SetThreadItem( TThreadItem( Item ) );
6310                          Dlg.ShowModal;                          Dlg.ShowModal;
6311                  finally                  finally
6312                          Dlg.Free;                          Dlg.Release;
6313                  end;                  end;
6314          end;          end;
6315    
6316          SetLinkBar;          SetLinkBar;
6317        ShowMessage(IntToStr(eT-sT));
6318  end;  end;
6319    
6320  procedure TGikoForm.FavoriteAddActionExecute(Sender: TObject);  procedure TGikoForm.FavoriteAddActionExecute(Sender: TObject);
# Line 9156  procedure TGikoForm.FavoritesURLReplace( Line 9155  procedure TGikoForm.FavoritesURLReplace(
9155  begin  begin
9156          FavoriteDM.URLReplace(oldURLs, newURLs);          FavoriteDM.URLReplace(oldURLs, newURLs);
9157  end;  end;
9158    procedure TGikoForm.RoundListURLReplace(oldURLs: TStringList; newURLs: TStringList);
9159    begin
9160            RoundList.URLReplace(oldURLs, newURLs);
9161    end;
9162  procedure TGikoForm.OnMinimize;  procedure TGikoForm.OnMinimize;
9163  begin  begin
9164          FIsIconiced := True;          FIsIconiced := True;

Legend:
Removed from v.1.225  
changed lines
  Added in v.1.226

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