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