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.73 by h677, Thu Feb 26 15:02:06 2009 UTC revision 1.74 by h677, Wed May 6 12:23:35 2009 UTC
# Line 2360  begin Line 2360  begin
2360          No := GikoForm.KokoPopupMenu.Tag;          No := GikoForm.KokoPopupMenu.Tag;
2361          if No = 0          if No = 0
2362          then Exit;          then Exit;
2363          ThreadItem := GikoForm.GetActiveContent(True);          ThreadItem := GikoForm.KokoPopupThreadItem;
2364          if not Assigned(ThreadItem) then          if not Assigned(ThreadItem) then
2365          Exit;          Exit;
2366          ThreadItem.Kokomade := No;          ThreadItem.Kokomade := No;
# Line 2397  var Line 2397  var
2397  begin  begin
2398          Number := GikoForm.KokoPopupMenu.Tag;          Number := GikoForm.KokoPopupMenu.Tag;
2399          if Number = 0 then Exit;          if Number = 0 then Exit;
2400          Item := GikoForm.GetActiveContent(True);          Item := GikoForm.KokoPopupThreadItem;
2401          if Item = nil then Exit;          if Item = nil then Exit;
2402    
2403          Editor := TEditorForm.Create(GikoForm);          Editor := TEditorForm.Create(GikoForm);
# Line 2426  var Line 2426  var
2426  begin  begin
2427          No := GikoForm.KokoPopupMenu.Tag;          No := GikoForm.KokoPopupMenu.Tag;
2428          if No = 0 then Exit;          if No = 0 then Exit;
2429          ThreadItem := GikoForm.GetActiveContent(True);          ThreadItem := GikoForm.KokoPopupThreadItem;
2430          if ThreadItem = nil then Exit;          if ThreadItem = nil then Exit;
2431    
2432      AID := GikoSys.GetResID(No, ThreadItem);      AID := GikoSys.GetResID(No, ThreadItem);
# Line 4513  begin Line 4513  begin
4513          No := GikoForm.KokoPopupMenu.Tag;          No := GikoForm.KokoPopupMenu.Tag;
4514          if No = 0 then Exit;          if No = 0 then Exit;
4515    
4516      ThreadItem := GikoForm.GetActiveContent;      ThreadItem := GikoForm.KokoPopupThreadItem;
4517      // アクティブタブから全てのリンクを取得する      // アクティブタブから全てのリンクを取得する
4518      links := GetActiveThreadLinks;      links := GetActiveThreadLinks;
4519      if (ThreadItem <> nil) and (links <> nil) then begin      if (ThreadItem <> nil) and (links <> nil) then begin

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74

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