| 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; |
| 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 |