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.635.2.12 by h677, Wed May 30 15:48:21 2007 UTC revision 1.635.2.13 by h677, Sun Jun 10 14:20:06 2007 UTC
# Line 725  type Line 725  type
725                  property ActiveBBS : TBBS read FActiveBBS write FActiveBBS;                  property ActiveBBS : TBBS read FActiveBBS write FActiveBBS;
726                  property WorkCount: Integer read FWorkCount write FWorkCount;                  property WorkCount: Integer read FWorkCount write FWorkCount;
727                  procedure SetContent(inThread: TBrowserRecord);                  procedure SetContent(inThread: TBrowserRecord);
728                  function GetActiveContent: TThreadItem;                  function GetActiveContent(popup :Boolean = false): TThreadItem;
729                  function GetActiveList: TObject;                  function GetActiveList: TObject;
730    
731                  procedure SetListViewType(AViewType: TGikoViewType); overload;                  procedure SetListViewType(AViewType: TGikoViewType); overload;
# Line 2853  begin Line 2853  begin
2853          end;          end;
2854  end;  end;
2855    
2856  function TGikoForm.GetActiveContent: TThreadItem;  function TGikoForm.GetActiveContent(popup :Boolean = false): TThreadItem;
2857  begin  begin
2858          try          try
2859                  if FActiveContent <> nil then begin                  if FActiveContent <> nil then begin
2860                          Result := FActiveContent.Thread;                          Result := FActiveContent.Thread;
2861              if (FResPopupBrowser <> nil) and (FResPopupBrowser.CurrentBrowser.Visible = True) then              if (popup) and
2862                    (FResPopupBrowser <> nil) and (FResPopupBrowser.CurrentBrowser.Visible = True) then
2863                  if (FResPopupBrowser.CurrentBrowser.Thread <> nil) then begin                  if (FResPopupBrowser.CurrentBrowser.Thread <> nil) then begin
2864                      Result := FResPopupBrowser.CurrentBrowser.Thread;                      Result := FResPopupBrowser.CurrentBrowser.Thread;
2865                  end;                  end;
# Line 6178  var Line 6179  var
6179          boardPlugIn : TBoardPlugIn;          boardPlugIn : TBoardPlugIn;
6180  begin  begin
6181          if Number = 0 then Exit;          if Number = 0 then Exit;
6182          ThreadItem := GetActiveContent;          ThreadItem := GetActiveContent(True);
6183    
6184          if ThreadItem <> nil then begin          if ThreadItem <> nil then begin
6185                  //if ThreadItem.IsBoardPlugInAvailable then begin                  //if ThreadItem.IsBoardPlugInAvailable then begin
# Line 7047  var Line 7048  var
7048          ReadList                : TStringList;          ReadList                : TStringList;
7049          wordCount               : TWordCount;          wordCount               : TWordCount;
7050  begin  begin
7051          ThreadItem      := GetActiveContent;          ThreadItem      := GetActiveContent(True);
7052          ReadList                := TStringList.Create;          ReadList                := TStringList.Create;
7053          wordCount               := TWordCount.Create;          wordCount               := TWordCount.Create;
7054          try          try
# Line 7081  var Line 7082  var
7082  begin  begin
7083          No := KokoPopupMenu.Tag;          No := KokoPopupMenu.Tag;
7084          if No = 0 then Exit;          if No = 0 then Exit;
7085          ThreadItem := GetActiveContent;          ThreadItem := GetActiveContent(True);
7086          if ThreadItem = nil then Exit;          if ThreadItem = nil then Exit;
7087          body := TStringList.Create;          body := TStringList.Create;
7088          try          try

Legend:
Removed from v.1.635.2.12  
changed lines
  Added in v.1.635.2.13

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