2ちゃんねる用ブラウザ「OpenJane」 Part 15

>356
こんな感じで。
　{$IFDEF IE}
　TYPE_MAIL: dest.WriteText(mail, mailSize);
　{$ELSE}
　TYPE_MAIL:
　　begin
　　　if (mailSize = 4) and (StrLIComp(mail, 'sage', 4) = 0) then
　　　begin
　　　　dest.WriteItem('<SA i=2>', 9, ditNORMAL); //<SA i=2>は適当
　　　　dest.WriteText(mail, mailSize)
　　　　dest.WriteItem('<SA i=0>', 9, ditNORMAL); //スキンに書くならいらない
　　　end else
　　　　dest.WriteText(mail, mailSize);
　　end;