デバッグ用にコンパイルオプションで NO_ABON を定義する事で

個別あぼ〜んしたレスを表示出来るようにした。

diff --git a/AbonUnit.pas b/AbonUnit.pas
index a49c320..fd56afc 100644 (file)
--- a/AbonUnit.pas
+++ b/AbonUnit.pas
@@ -690,11 +690,17 @@ begin
                if f then begin
                        for i := 0 to FAbonRes.Count - 1 do begin
                                if (FAbonRes[i].Res <= ThreadStrings.Count) and (FAbonRes[i].Res > 0) then begin
+{$IFDEF NO_ABON}
+                                       ThreadStrings.Strings[FAbonRes[i].Res-1] :=
+                                               '<font color="red">\82 \82Ú\81`\82ñ\8dÏ\82Ý</font>' +
+                                               ThreadStrings.Strings[FAbonRes[i].Res-1];
+{$ELSE}
                                        if FAbonRes[i].option = 0 then begin
                                                ThreadStrings.Strings[FAbonRes[i].Res-1] := '';
                                        end else begin
                                                ThreadStrings.Strings[FAbonRes[i].Res-1] := '\82 \82Ú\81`\82ñ<>\82 \82Ú\81`\82ñ<>\82 \82Ú\81`\82ñ<>\82 \82Ú\81`\82ñ<>';
                                        end;
+{$ENDIF}
                                end;
                        end;
                end;