Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/AbonUnit.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.31 by yoffy, Thu Oct 21 01:20:35 2004 UTC revision 1.32 by yoffy, Thu Oct 21 07:11:33 2004 UTC
# Line 690  begin Line 690  begin
690                  if f then begin                  if f then begin
691                          for i := 0 to FAbonRes.Count - 1 do begin                          for i := 0 to FAbonRes.Count - 1 do begin
692                                  if (FAbonRes[i].Res <= ThreadStrings.Count) and (FAbonRes[i].Res > 0) then begin                                  if (FAbonRes[i].Res <= ThreadStrings.Count) and (FAbonRes[i].Res > 0) then begin
693    {$IFDEF NO_ABON}
694                                            ThreadStrings.Strings[FAbonRes[i].Res-1] :=
695                                                    '<font color="red">あぼ〜ん済み</font>' +
696                                                    ThreadStrings.Strings[FAbonRes[i].Res-1];
697    {$ELSE}
698                                          if FAbonRes[i].option = 0 then begin                                          if FAbonRes[i].option = 0 then begin
699                                                  ThreadStrings.Strings[FAbonRes[i].Res-1] := '';                                                  ThreadStrings.Strings[FAbonRes[i].Res-1] := '';
700                                          end else begin                                          end else begin
701                                                  ThreadStrings.Strings[FAbonRes[i].Res-1] := 'あぼ〜ん<>あぼ〜ん<>あぼ〜ん<>あぼ〜ん<>';                                                  ThreadStrings.Strings[FAbonRes[i].Res-1] := 'あぼ〜ん<>あぼ〜ん<>あぼ〜ん<>あぼ〜ん<>';
702                                          end;                                          end;
703    {$ENDIF}
704                                  end;                                  end;
705                          end;                          end;
706                  end;                  end;

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

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