Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas

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

revision 1.52 by h677, Sun Feb 4 14:12:52 2007 UTC revision 1.53 by h677, Tue Feb 13 15:58:59 2007 UTC
# Line 2902  begin Line 2902  begin
2902          try          try
2903                  GikoForm.SelectListItem(List);                  GikoForm.SelectListItem(List);
2904                  for i := 0 to List.Count - 1 do begin                  for i := 0 to List.Count - 1 do begin
2905                          if TObject(List[i]) is TBoard then              if TObject(List[i]) is TCategory then
2906                    s := s + TCategory(List[i]).Title + #13#10
2907                            else if TObject(List[i]) is TBoard then
2908                                  s := s + TBoard(List[i]).Title + #13#10                                  s := s + TBoard(List[i]).Title + #13#10
2909                          else if TObject(List[i]) is TThreadItem then                          else if TObject(List[i]) is TThreadItem then
2910                                  s := s + TThreadItem(List[i]).Title + #13#10;                                  s := s + TThreadItem(List[i]).Title + #13#10;
# Line 2918  end; Line 2920  end;
2920  // *************************************************************************  // *************************************************************************
2921  procedure TGikoDM.SelectItemNameCopyActionUpdate(Sender: TObject);  procedure TGikoDM.SelectItemNameCopyActionUpdate(Sender: TObject);
2922  begin  begin
2923          if ((GikoForm.GetActiveList is TBoard) or          if ((GikoForm.GetActiveList is TBBS) or
2924            (GikoForm.GetActiveList is TBoard) or
2925                  (GikoForm.GetActiveList is TCategory))and (GikoForm.ListView.SelCount > 0) then                  (GikoForm.GetActiveList is TCategory))and (GikoForm.ListView.SelCount > 0) then
2926                  TAction(Sender).Enabled := True                  TAction(Sender).Enabled := True
2927          else          else

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

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