Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/AbonUnit.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|