• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javaandroidc++linuxc#objective-ccocoa誰得qtrubypythonwindowsphpgamebathyscaphegui翻訳comegattwitterframeworkbtronvb.net計画中(planning stage)testdomarduinodirectxpreviewerゲームエンジン

ギコナビ


Commit MetaInfo

Revision6f58ca257654b388576b2959499c3d514dc0f3c4 (tree)
Time2007-06-10 23:20:06
Authorh677 <h677>
Commiterh677

Log Message

他のスレッドへのリンクをポップアップ中に、現在スレッドのダウンロードなどを
実行するとポップアップしているスレッドをダウンロードするなどの不具合の解消

Change Summary

Incremental Difference

--- a/Giko.pas
+++ b/Giko.pas
@@ -725,7 +725,7 @@ type
725725 property ActiveBBS : TBBS read FActiveBBS write FActiveBBS;
726726 property WorkCount: Integer read FWorkCount write FWorkCount;
727727 procedure SetContent(inThread: TBrowserRecord);
728- function GetActiveContent: TThreadItem;
728+ function GetActiveContent(popup :Boolean = false): TThreadItem;
729729 function GetActiveList: TObject;
730730
731731 procedure SetListViewType(AViewType: TGikoViewType); overload;
@@ -2853,12 +2853,13 @@ begin
28532853 end;
28542854 end;
28552855
2856-function TGikoForm.GetActiveContent: TThreadItem;
2856+function TGikoForm.GetActiveContent(popup :Boolean = false): TThreadItem;
28572857 begin
28582858 try
28592859 if FActiveContent <> nil then begin
28602860 Result := FActiveContent.Thread;
2861- if (FResPopupBrowser <> nil) and (FResPopupBrowser.CurrentBrowser.Visible = True) then
2861+ if (popup) and
2862+ (FResPopupBrowser <> nil) and (FResPopupBrowser.CurrentBrowser.Visible = True) then
28622863 if (FResPopupBrowser.CurrentBrowser.Thread <> nil) then begin
28632864 Result := FResPopupBrowser.CurrentBrowser.Thread;
28642865 end;
@@ -6178,7 +6179,7 @@ var
61786179 boardPlugIn : TBoardPlugIn;
61796180 begin
61806181 if Number = 0 then Exit;
6181- ThreadItem := GetActiveContent;
6182+ ThreadItem := GetActiveContent(True);
61826183
61836184 if ThreadItem <> nil then begin
61846185 //if ThreadItem.IsBoardPlugInAvailable then begin
@@ -7047,7 +7048,7 @@ var
70477048 ReadList : TStringList;
70487049 wordCount : TWordCount;
70497050 begin
7050- ThreadItem := GetActiveContent;
7051+ ThreadItem := GetActiveContent(True);
70517052 ReadList := TStringList.Create;
70527053 wordCount := TWordCount.Create;
70537054 try
@@ -7081,7 +7082,7 @@ var
70817082 begin
70827083 No := KokoPopupMenu.Tag;
70837084 if No = 0 then Exit;
7084- ThreadItem := GetActiveContent;
7085+ ThreadItem := GetActiveContent(True);
70857086 if ThreadItem = nil then Exit;
70867087 body := TStringList.Create;
70877088 try
--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -2336,7 +2336,7 @@ var
23362336 begin
23372337 No := GikoForm.KokoPopupMenu.Tag;
23382338 if No = 0 then Exit;
2339- ThreadItem := GikoForm.GetActiveContent;
2339+ ThreadItem := GikoForm.GetActiveContent(True);
23402340 if ThreadItem = nil then Exit;
23412341 ThreadItem.Kokomade := No;
23422342 GikoForm.ActiveContent.Thread.ScrollTop :=
@@ -2353,7 +2353,7 @@ procedure TGikoDM.ZenbuActionExecute(Sender: TObject);
23532353 var
23542354 ThreadItem: TThreadItem;
23552355 begin
2356- ThreadItem := GikoForm.GetActiveContent;
2356+ ThreadItem := GikoForm.GetActiveContent(True);
23572357 if ThreadItem = nil then Exit;
23582358 ThreadItem.Kokomade := -1;
23592359 GikoForm.ActiveContent.Thread.ScrollTop :=
@@ -2374,7 +2374,7 @@ var
23742374 begin
23752375 Number := GikoForm.KokoPopupMenu.Tag;
23762376 if Number = 0 then Exit;
2377- Item := GikoForm.GetActiveContent;
2377+ Item := GikoForm.GetActiveContent(True);
23782378 if Item = nil then Exit;
23792379
23802380 Editor := TEditorForm.Create(GikoForm);
@@ -2404,7 +2404,7 @@ var
24042404 begin
24052405 No := GikoForm.KokoPopupMenu.Tag;
24062406 if No = 0 then Exit;
2407- ThreadItem := GikoForm.GetActiveContent;
2407+ ThreadItem := GikoForm.GetActiveContent(True);
24082408 if ThreadItem = nil then Exit;
24092409 count := GikoSys.GetSameIDResCount(No, GikoForm.ActiveContent.Thread);
24102410 limited := LIMIT;
@@ -2446,7 +2446,7 @@ var
24462446 begin
24472447 IndividualForm := TIndividualAbonForm.Create(GikoForm);
24482448 try
2449- ThreadItem := GikoForm.GetActiveContent;
2449+ ThreadItem := GikoForm.GetActiveContent(True);
24502450 ThreadItem.ScrollTop :=
24512451 OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop;
24522452 if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
@@ -2494,7 +2494,7 @@ var
24942494 begin
24952495 IndividualForm := TIndividualAbonForm.Create(GikoForm);
24962496 try
2497- ThreadItem := GikoForm.GetActiveContent;
2497+ ThreadItem := GikoForm.GetActiveContent(True);
24982498 ThreadItem.ScrollTop :=
24992499 OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop;
25002500 if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
Binary files a/gikoNavi.res and b/gikoNavi.res differ