---------------------------------------------------------------------------
| 33 | } |
| 34 | //--------------------------------------------------------------------------- |
| 35 | void TMessStyle::SetFontStyle(TFont * p) |
| 36 | { |
| 37 | TFontStyles s = p->Style; |
| 38 | if( bBold ) s << fsBold; |
| 39 | else s >> fsBold; |
| 40 | if( bItalic ) s << fsItalic; |
| 41 | else s >> fsItalic; |
| 42 | if( bUnderline ) s << fsUnderline; |
| 43 | else s >> fsUnderline; |
| 44 | p->Style = s; |
| 45 | } |
| 46 | //--------------------------------------------------------------------------- |
| 47 | #pragma package(smart_init) |
| 48 |
no outgoing calls
no test coverage detected