レス数が 1000 を超えています。残念ながらこのスレッドには書き込めません。

ギコナビ開発スレ

987 名前：Delphi 11日目 投稿日：2004/02/29(日) 15:10 ID:4xUwnfc6

レスポップアップにメール欄を表示するpatchです。
上のパッチ適用後なので行番号がずれてます。 m(_ _)m

また、プラグインの使い方がわからないので
プラグインの必要なレスポップアップのテストができてません。＿|￣|○

Index: Giko.pas
===================================================================
RCS file: /cvsroot/gikonavi/gikonavi/Giko.pas,v
retrieving revision 1.197
diff -r1.197 Giko.pas
6769c6774,6777
< Header := IntToStr(Line) + ' 名前： ' + Res.FName + ' 投稿日： ' + Res.FDateTime;
---
> if (GikoSys.Setting.ShowMail = false) or (Length(res.FMailTo) = 0) then
> Header := IntToStr(Line) + ' 名前： ' + Res.FName + ' 投稿日： ' + Res.FDateTime
> else
> Header := IntToStr(Line) + ' 名前： ' + Res.FName + ' [' + res.FMailTo + '] 投稿日： ' + Res.FDateTime;
6793c6801,6805
< Header := IntToStr(Line) + ' 名前： ' + Res.FName + ' 投稿日： ' + Res.FDateTime;
---
> if (GikoSys.Setting.ShowMail = false) or (Length(res.FMailTo) = 0) then
> Header := IntToStr(Line) + ' 名前： ' + Res.FName + ' 投稿日： ' + Res.FDateTime
> else
> Header := IntToStr(Line) + ' 名前： ' + Res.FName + ' [' + res.FMailTo + '] 投稿日： ' + Res.FDateTime;
>