Commit: 0d511726ac61378929060a11198e02ccd95ff9cd - gikonavi (git)

ギコナビ

Commit MetaInfo

• Revisión: 0d511726ac61378929060a11198e02ccd95ff9cd (tree)
• Tiempo: 2005-07-23 17:10:05
• Autor: h677 <h677>
• Commiter: h677

Log Message

レスの２重取得対策の以前の対策と本対策との不整合による、板が開かない不具合の修正

Cambiar Resumen

• modified: BoardGroup.pas
• modified: Giko.pas
• modified: GikoSystem.pas
• modified: gikoNavi.res

Diferencia incremental

--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -689,16 +689,6 @@ end;
 
 procedure TCategory.Delete(index: integer);
 begin
-	{if (Items[index] <> nil) then begin
-		try
-			if TBoard(Items[index]).Multiplicity = 0 then
-				TBoard(Items[index]).Free
-			else
-				TBoard(Items[index]).Multiplicity := TBoard(Items[index]).Multiplicity - 1;
-		except
-		end;
-	end;
-	}
     inherited Delete(index);
 end;
 
@@ -827,6 +817,7 @@ begin
 	FLastGetTime := ZERO_DATE;
 	FIsThreadDatRead := False;
 	FUnRead := 0;
+	FMultiplicity := 0;
 //	FListStyle := vsReport;
 //	FItemNoVisible := True;
 

--- a/Giko.pas
+++ b/Giko.pas
@@ -4754,24 +4754,7 @@ begin
 	if TObject(ListView.Selected.Data) is TCategory then begin
 		SelectTreeNode(ListView.Selected.Data, True);
 	end else if TObject(ListView.Selected.Data) is TBoard then begin
-		if TBoard(ListView.Selected.Data).Multiplicity = 0 then
-			SelectTreeNode(ListView.Selected.Data, True)
-		else begin
-			cNode := TreeView.Selected;
-			if TObject(cNode.Data) is TCategory then begin
-				bNode := cNode.getFirstChild;
-				while bNode <> nil do begin
-					if TObject(bNode.Data) is TBoard then begin
-						if TBoard(bNode.Data) = TBoard(ListView.Selected.Data) then begin
-							bNode.Selected := true;
-							TreeClick(bNode);
-							break;
-						end;
-					end;
-					bNode := bNode.getNextSibling;
-				end;
-			end;
-		end;
+		SelectTreeNode(ListView.Selected.Data, True)
 	end else if TObject(ListView.Selected.Data) is TThreadItem then begin
 		Application.ProcessMessages;
 		ThreadItem := TThreadItem(ListView.Selected.Data);

--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -3824,13 +3824,12 @@ begin
 							end;
 						end;
 
-						if (Board.No = 0) then begin
+						if (Board.Multiplicity = 0) then begin
 							Board.BeginUpdate;
 							Board.No := j + 1;
+                            Board.Multiplicity := 1;
 							Board.Title := BoardList[j];
 							Board.RoundDate := ZERO_DATE;
-
-							Board.Multiplicity := 0;
 							Board.LoadSettings;
 							Board.EndUpdate;
 						end else begin

Binary files a/gikoNavi.res and b/gikoNavi.res differ