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.98 by yoffy, Wed Oct 15 04:40:43 2003 UTC revision 1.98.2.1 by yoffy, Sat Nov 1 16:07:49 2003 UTC
# Line 962  type Line 962  type
962                  procedure SetBrowserTabState;                  procedure SetBrowserTabState;
963  //              property Favorite: TFavorite read FFavorite write FFavorite;  //              property Favorite: TFavorite read FFavorite write FFavorite;
964                  procedure SetToolBarPopup;                  procedure SetToolBarPopup;
965        procedure ShowFavoriteAddDialog( Item : TObject );
966          published          published
967                  property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;                  property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
968          end;          end;
# Line 5716  begin Line 5717  begin
5717          end;          end;
5718  end;  end;
5719    
5720  procedure TGikoForm.FavoriteAddActionExecute(Sender: TObject);  procedure TGikoForm.ShowFavoriteAddDialog( Item : TObject );
5721  var  var
5722          Dlg: TFavoriteAddDialog;          Dlg: TFavoriteAddDialog;
5723      i, b: Integer;
5724            ThreadItem: TThreadItem;
5725      Board: TBoard;
5726      FavThread: TFavoriteThreadItem;
5727      FavBoard: TFavoriteBoardItem;
5728    begin
5729    
5730            b := FavoriteTreeView.Items.Count - 1;
5731      if Item is TBoard then begin
5732        for i := 0 to b do begin
5733          if TObject(FavoriteTreeView.Items.Item[ i ].Data) is TFavoriteBoardItem then begin
5734            FavBoard := TFavoriteBoardItem( FavoriteTreeView.Items.Item[ i ].Data );
5735            Board := BBS2ch.FindBBSID(FavBoard.BBSID);
5736    
5737            if Board = Item then begin
5738              if Application.MessageBox( '既にお気に入りに登録されています。それでも追加しますか?', 'お気に入りの追加', MB_YESNO ) = IDNO then
5739                Exit;
5740              Break;
5741            end;
5742          end;
5743        end;
5744    
5745        Dlg := TFavoriteAddDialog.Create(Self);
5746        try
5747          Dlg.SetBoard( TBoard(Item) );
5748          Dlg.ShowModal;
5749        finally
5750          Dlg.Free;
5751        end;
5752      end else if Item is TThreadItem then begin
5753        for i := 0 to b do begin
5754          if TObject(FavoriteTreeView.Items.Item[ i ].Data) is TFavoriteThreadItem then begin
5755            FavThread := TFavoriteThreadItem( FavoriteTreeView.Items.Item[ i ].Data );
5756            Board := BBS2ch.FindBBSID(FavThread.BBSID);
5757            if Board <> nil then
5758              if not Board.IsThreadDatRead then
5759                GikoSys.ReadSubjectFile(Board);
5760            ThreadItem := BBS2ch.FindThreadItem(FavThread.BBSID, FavThread.ThreadID);
5761    
5762            if ThreadItem = Item then begin
5763              if Application.MessageBox( '既にお気に入りに登録されています。それでも追加しますか?', 'お気に入りの追加', MB_YESNO ) = IDNO then
5764                Exit;
5765              Break;
5766            end;
5767          end;
5768        end;
5769    
5770        Dlg := TFavoriteAddDialog.Create(Self);
5771        try
5772          Dlg.SetThreadItem( TThreadItem(Item) );
5773          Dlg.ShowModal;
5774        finally
5775          Dlg.Free;
5776        end;
5777      end;
5778    
5779      SetLinkBar;
5780    
5781    end;
5782    
5783    procedure TGikoForm.FavoriteAddActionExecute(Sender: TObject);
5784  begin  begin
5785          Dlg := TFavoriteAddDialog.Create(Self);          ShowFavoriteAddDialog(GetActiveContent);
         try  
                 Dlg.SetThreadItem(GetActiveContent);  
                 Dlg.ShowModal;  
         finally  
                 Dlg.Free;  
         end;  
         SetLinkBar;  
5786  end;  end;
5787    
5788  procedure TGikoForm.FavoriteClick(Sender: TObject);  procedure TGikoForm.FavoriteClick(Sender: TObject);
# Line 5780  begin Line 5835  begin
5835  end;  end;
5836    
5837  procedure TGikoForm.BoardFavoriteAddActionExecute(Sender: TObject);  procedure TGikoForm.BoardFavoriteAddActionExecute(Sender: TObject);
 var  
         Dlg: TFavoriteAddDialog;  
5838  begin  begin
5839          if TObject(ListView.Selected.Data) is TBoard then begin          if TObject(ListView.Selected.Data) is TBoard then
5840                  Dlg := TFavoriteAddDialog.Create(Self);                  ShowFavoriteAddDialog(TObject(ListView.Selected.Data));
                 try  
                         Dlg.SetBoard(TBoard(ListView.Selected.Data));  
                         Dlg.ShowModal;  
                 finally  
                         Dlg.Free;  
                 end;  
         end;  
         SetLinkBar;  
5841  end;  end;
5842    
5843  procedure TGikoForm.BoardFavoriteAddActionUpdate(Sender: TObject);  procedure TGikoForm.BoardFavoriteAddActionUpdate(Sender: TObject);
# Line 5801  begin Line 5846  begin
5846  end;  end;
5847    
5848  procedure TGikoForm.ThreadFavoriteAddActionExecute(Sender: TObject);  procedure TGikoForm.ThreadFavoriteAddActionExecute(Sender: TObject);
 var  
         Dlg: TFavoriteAddDialog;  
5849  begin  begin
5850          if TObject(ListView.Selected.Data) is TThreadItem then begin          if TObject(ListView.Selected.Data) is TThreadItem then
5851                  Dlg := TFavoriteAddDialog.Create(Self);                  ShowFavoriteAddDialog(TObject(ListView.Selected.Data));
                 try  
                         Dlg.SetThreadItem(TThreadItem(ListView.Selected.Data));  
                         Dlg.ShowModal;  
                 finally  
                         Dlg.Free;  
                 end;  
         end;  
         SetLinkBar;  
5852  end;  end;
5853    
5854  procedure TGikoForm.ThreadFavoriteAddActionUpdate(Sender: TObject);  procedure TGikoForm.ThreadFavoriteAddActionUpdate(Sender: TObject);
# Line 5822  begin Line 5857  begin
5857  end;  end;
5858    
5859  procedure TGikoForm.TreeSelectFavoriteAddActionExecute(Sender: TObject);  procedure TGikoForm.TreeSelectFavoriteAddActionExecute(Sender: TObject);
 var  
         Dlg: TFavoriteAddDialog;  
5860  begin  begin
5861          if TObject(TreeView.Selected.Data) is TBoard then begin          ShowFavoriteAddDialog(TObject(TreeView.Selected.Data));
                 Dlg := TFavoriteAddDialog.Create(Self);  
                 try  
                         Dlg.SetBoard(TBoard(TreeView.Selected.Data));  
                         Dlg.ShowModal;  
                 finally  
                         Dlg.Free;  
                 end;  
         end else if TObject(TreeView.Selected.Data) is TThreadItem then begin  
                 Dlg := TFavoriteAddDialog.Create(Self);  
                 try  
                         Dlg.SetThreadItem(TThreadItem(TreeView.Selected.Data));  
                         Dlg.ShowModal;  
                 finally  
                         Dlg.Free;  
                 end;  
         end;  
         SetLinkBar;  
5862  end;  end;
5863    
5864  procedure TGikoForm.FavoriteArrangeActionExecute(Sender: TObject);  procedure TGikoForm.FavoriteArrangeActionExecute(Sender: TObject);

Legend:
Removed from v.1.98  
changed lines
  Added in v.1.98.2.1

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