diff options
Diffstat (limited to 'experimental/tqtinterface/qt4/src/kernel/tqfont.cpp')
| -rw-r--r-- | experimental/tqtinterface/qt4/src/kernel/tqfont.cpp | 3376 |
1 files changed, 3376 insertions, 0 deletions
diff --git a/experimental/tqtinterface/qt4/src/kernel/tqfont.cpp b/experimental/tqtinterface/qt4/src/kernel/tqfont.cpp new file mode 100644 index 000000000..48fe5a05e --- /dev/null +++ b/experimental/tqtinterface/qt4/src/kernel/tqfont.cpp @@ -0,0 +1,3376 @@ +/**************************************************************************** +** +** Implementation of TQFont, TQFontMetrics and TQFontInfo classes +** +** Created : 941207 +** +** Copyright (C) 2010 Timothy Pearson and (C) 1992-2008 Trolltech ASA. +** +** This file is part of the kernel module of the TQt GUI Toolkit. +** +** This file may be used under the terms of the GNU General +** Public License versions 2.0 or 3.0 as published by the Free +** Software Foundation and appearing in the files LICENSE.GPL2 +** and LICENSE.GPL3 included in the packaging of this file. +** Alternatively you may (at your option) use any later version +** of the GNU General Public License if such license has been +** publicly approved by Trolltech ASA (or its successors, if any) +** and the KDE Free TQt Foundation. +** +** Please review the following information to ensure GNU General +** Public Licensing requirements will be met: +** http://trolltech.com/products/qt/licenses/licensing/opensource/. +** If you are unsure which license is appropriate for your use, please +** review the following information: +** http://trolltech.com/products/qt/licenses/licensing/licensingoverview +** or contact the sales department at sales@trolltech.com. +** +** This file may be used under the terms of the Q Public License as +** defined by Trolltech ASA and appearing in the file LICENSE.TQPL +** included in the packaging of this file. Licensees holding valid TQt +** Commercial licenses may use this file in accordance with the TQt +** Commercial License Agreement provided with the Software. +** +** This file is provided "AS IS" with NO WARRANTY OF ANY KIND, +** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR +** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted +** herein. +** +**********************************************************************/ + +#include <tqtglobaldefines.h> +#ifdef USE_QT4 +// Nasty, nasty horrid HACK to get access to QFont's private members +// This is TERRIBLE and I wish there was a way around it +// See also QRect +#define private protected +#include <Qt/qfont.h> +#undef private +#endif // USE_QT4 + +#define TQT_FATAL_ASSERT + +#include "tqfont.h" +#include "tqfontdatabase.h" +#include "tqfontmetrics.h" +#include "tqfontinfo.h" +#include "tqpainter.h" +#include "tqdict.h" +#include "tqcache.h" +#include "tqdatastream.h" +#include "tqapplication.h" +#include "tqcleanuphandler.h" +#include "tqstringlist.h" +#ifdef TQ_WS_MAC +#include "tqpaintdevicemetrics.h" +#endif + +#include <private/tqunicodetables_p.h> +#include "tqfontdata_p.h" +#include "tqfontengine_p.h" +#include "tqpainter_p.h" +#include "tqtextengine_p.h" + +// #define TQFONTCACHE_DEBUG +#ifdef TQFONTCACHE_DEBUG +# define FC_DEBUG qDebug +#else +# define FC_DEBUG if (FALSE) qDebug +#endif + +#ifdef USE_QT4 + +void TQFont::tqt_x11SetScreen( int screen ) { + x11SetScreen(screen); +} +int TQFont::tqt_x11Screen() const { + return x11Screen(); +} + +#else // USE_QT4 + +bool TQFontDef::operator==( const TQFontDef &other ) const +{ + /* + TQFontDef comparison is more complicated than just simple + per-member comparisons. + + When comparing point/pixel sizes, either point or pixelsize + could be -1. in This case we have to compare the non negative + size value. + + This test will fail if the point-sizes differ by 1/2 point or + more or they do not round to the same value. We have to do this + since our API still uses 'int' point-sizes in the API, but store + deci-point-sizes internally. + + To compare the family members, we need to parse the font names + and compare the family/foundry strings separately. This allows + us to compare e.g. "Helvetica" and "Helvetica [Adobe]" with + positive results. + */ + if (pixelSize != -1 && other.pixelSize != -1) { + if (pixelSize != other.pixelSize) + return FALSE; + } else if (pointSize != -1 && other.pointSize != -1) { + if (pointSize != other.pointSize + && (TQABS(pointSize - other.pointSize) >= 5 + || tqRound(pointSize/10.) != tqRound(other.pointSize/10.))) + return FALSE; + } else { + return FALSE; + } + + if (!ignorePitch && !other.ignorePitch && fixedPitch != other.fixedPitch) + return FALSE; + + if (stretch != 0 && other.stretch != 0 && stretch != other.stretch) + return FALSE; + + TQString this_family, this_foundry, other_family, other_foundry; + TQFontDatabase::parseFontName(family, this_foundry, this_family); + TQFontDatabase::parseFontName(other.family, other_foundry, other_family); + + return ( tqstyleHint == other.tqstyleHint + && styleStrategy == other.styleStrategy + && weight == other.weight + && italic == other.italic + && this_family == other_family + && (this_foundry.isEmpty() + || other_foundry.isEmpty() + || this_foundry == other_foundry) +#ifdef TQ_WS_X11 + && addStyle == other.addStyle +#endif // TQ_WS_X11 + ); +} + + + + +TQFontPrivate::TQFontPrivate() + : engineData( 0 ), painttqdevice( 0 ), + rawMode( FALSE ), underline( FALSE ), overline( FALSE ), strikeOut( FALSE ), + tqmask( 0 ) +{ +#ifdef TQ_WS_X11 + screen = TQPaintDevice::x11AppScreen(); +#else + screen = 0; +#endif // TQ_WS_X11 +} + +TQFontPrivate::TQFontPrivate( const TQFontPrivate &other ) + : TQShared(), request( other.request ), engineData( 0 ), + painttqdevice( other.painttqdevice ), screen( other.screen ), + rawMode( other.rawMode ), underline( other.underline ), overline( other.overline ), + strikeOut( other.strikeOut ), tqmask( other.tqmask ) +{ +} + +TQFontPrivate::~TQFontPrivate() +{ + if ( engineData ) + engineData->deref(); + engineData = 0; +} + +void TQFontPrivate::resolve( const TQFontPrivate *other ) +{ +#ifdef TQT_CHECK_STATE + TQ_ASSERT( other != 0 ); +#endif + + if ( ( tqmask & Complete ) == Complete ) return; + + // assign the unset-bits with the set-bits of the other font def + if ( ! ( tqmask & Family ) ) + request.family = other->request.family; + + if ( ! ( tqmask & Size ) ) { + request.pointSize = other->request.pointSize; + request.pixelSize = other->request.pixelSize; + } + + if ( ! ( tqmask & StyleHint ) ) + request.tqstyleHint = other->request.tqstyleHint; + + if ( ! ( tqmask & StyleStrategy ) ) + request.styleStrategy = other->request.styleStrategy; + + if ( ! ( tqmask & Weight ) ) + request.weight = other->request.weight; + + if ( ! ( tqmask & Italic ) ) + request.italic = other->request.italic; + + if ( ! ( tqmask & FixedPitch ) ) + request.fixedPitch = other->request.fixedPitch; + + if ( ! ( tqmask & Stretch ) ) + request.stretch = other->request.stretch; + + if ( ! ( tqmask & Underline ) ) + underline = other->underline; + + if ( ! ( tqmask & Overline ) ) + overline = other->overline; + + if ( ! ( tqmask & StrikeOut ) ) + strikeOut = other->strikeOut; +} + + + + +TQFontEngineData::TQFontEngineData() + : lineWidth( 1 ) +{ +#if defined(TQ_WS_X11) || defined(TQ_WS_WIN) + memset( engines, 0, TQFont::LastPrivateScript * sizeof( TQFontEngine * ) ); +#else + engine = 0; +#endif // TQ_WS_X11 || TQ_WS_WIN +#ifndef TQ_WS_MAC + memset( widthCache, 0, widthCacheSize*sizeof( uchar ) ); +#endif +} + +TQFontEngineData::~TQFontEngineData() +{ +#if defined(TQ_WS_X11) || defined(TQ_WS_WIN) + for ( int i = 0; i < TQFont::LastPrivateScript; i++ ) { + if ( engines[i] ) + engines[i]->deref(); + engines[i] = 0; + } +#else + if ( engine ) + engine->deref(); + engine = 0; +#endif // TQ_WS_X11 || TQ_WS_WIN +} + + + + +/*! + \class TQFont tqfont.h + \brief The TQFont class specifies a font used for drawing text. + + \ingroup graphics + \ingroup appearance + \ingroup shared + \mainclass + + When you create a TQFont object you specify various attributes that + you want the font to have. TQt will use the font with the specified + attributes, or if no matching font exists, TQt will use the closest + matching installed font. The attributes of the font that is + actually used are retrievable from a TQFontInfo object. If the + window system provides an exact match exactMatch() returns TRUE. + Use TQFontMetrics to get measurements, e.g. the pixel length of a + string using TQFontMetrics::width(). + + Use TQApplication::setFont() to set the application's default font. + + If a choosen X11 font does not include all the characters that + need to be displayed, TQFont will try to tqfind the characters in the + nearest equivalent fonts. When a TQPainter draws a character from a + font the TQFont will report whether or not it has the character; if + it does not, TQPainter will draw an unfilled square. + + Create TQFonts like this: + \code + TQFont serifFont( "Times", 10, Bold ); + TQFont sansFont( "Helvetica [Cronyx]", 12 ); + \endcode + + The attributes set in the constructor can also be set later, e.g. + setFamily(), setPointSize(), setPointSizeFloat(), setWeight() and + setItalic(). The remaining attributes must be set after + contstruction, e.g. setBold(), setUnderline(), setOverline(), + setStrikeOut() and setFixedPitch(). TQFontInfo objects should be + created \e after the font's attributes have been set. A TQFontInfo + object will not change, even if you change the font's + attributes. The corresponding "get" functions, e.g. family(), + pointSize(), etc., return the values that were set, even though + the values used may differ. The actual values are available from a + TQFontInfo object. + + If the requested font family is unavailable you can influence the + \link #fontmatching font matching algorithm\endlink by choosing a + particular \l{TQFont::StyleHint} and \l{TQFont::StyleStrategy} with + setStyleHint(). The default family (corresponding to the current + style hint) is returned by defaultFamily(). + + The font-matching algorithm has a lastResortFamily() and + lastResortFont() in cases where a suitable match cannot be found. + You can provide substitutions for font family names using + insertSubstitution() and insertSubstitutions(). Substitutions can + be removed with removeSubstitution(). Use substitute() to retrieve + a family's first substitute, or the family name itself if it has + no substitutes. Use substitutes() to retrieve a list of a family's + substitutes (which may be empty). + + Every TQFont has a key() which you can use, for example, as the key + in a cache or dictionary. If you want to store a user's font + preferences you could use TQSettings, writing the font information + with toString() and reading it back with fromString(). The + operator<<() and operator>>() functions are also available, but + they work on a data stream. + + It is possible to set the height of characters shown on the screen + to a specified number of pixels with setPixelSize(); however using + setPointSize() has a similar effect and provides tqdevice + independence. + + Under the X Window System you can set a font using its system + specific name with setRawName(). + + Loading fonts can be expensive, especially on X11. TQFont tqcontains + extensive optimizations to make the copying of TQFont objects fast, + and to cache the results of the slow window system functions it + depends upon. + + \target fontmatching + The font matching algorithm works as follows: + \list 1 + \i The specified font family is searched for. + \i If not found, the tqstyleHint() is used to select a tqreplacement + family. + \i Each tqreplacement font family is searched for. + \i If none of these are found or there was no tqstyleHint(), "helvetica" + will be searched for. + \i If "helvetica" isn't found TQt will try the lastResortFamily(). + \i If the lastResortFamily() isn't found TQt will try the + lastResortFont() which will always return a name of some kind. + \endlist + + Once a font is found, the remaining attributes are matched in order of + priority: + \list 1 + \i fixedPitch() + \i pointSize() (see below) + \i weight() + \i italic() + \endlist + + If you have a font which matches on family, even if none of the + other attributes match, this font will be chosen in preference to + a font which doesn't match on family but which does match on the + other attributes. This is because font family is the dominant + search criteria. + + The point size is defined to match if it is within 20% of the + requested point size. When several fonts match and are only + distinguished by point size, the font with the closest point size + to the one requested will be chosen. + + The actual family, font size, weight and other font attributes + used for drawing text will depend on what's available for the + chosen family under the window system. A TQFontInfo object can be + used to determine the actual values used for drawing the text. + + Examples: + + \code + TQFont f("Helvetica"); + \endcode + If you had both an Adobe and a Cronyx Helvetica, you might get + either. + + \code + TQFont f1( "Helvetica [Cronyx]" ); // TQt 3.x + TQFont f2( "Cronyx-Helvetica" ); // TQt 2.x compatibility + \endcode + You can specify the foundry you want in the family name. Both fonts, + f1 and f2, in the above example will be set to "Helvetica + [Cronyx]". + + To determine the attributes of the font actually used in the window + system, use a TQFontInfo object, e.g. + \code + TQFontInfo info( f1 ); + TQString family = info.family(); + \endcode + + To tqfind out font metrics use a TQFontMetrics object, e.g. + \code + TQFontMetrics fm( f1 ); + int pixelWidth = fm.width( "How many pixels wide is this text?" ); + int pixelHeight = fm.height(); + \endcode + + For more general information on fonts, see the + \link http://www.nwalsh.com/comp.fonts/FAQ/ comp.fonts FAQ.\endlink + Information on encodings can be found from + \link http://czyborra.com/ Roman Czyborra's\endlink page. + + \sa TQFontMetrics TQFontInfo TQFontDatabase TQApplication::setFont() + TQWidget::setFont() TQPainter::setFont() TQFont::StyleHint + TQFont::Weight +*/ + +/*! + \enum TQFont::Script + + This enum represents \link tqunicode.html Unicode \endlink allocated + scripts. For exhaustive coverage see \link + http://www.amazon.com/exec/obidos/ASIN/0201616335/trolltech/t The + Unicode Standard Version 3.0 \endlink. The following scripts are + supported: + + Modern European alphabetic scripts (left to right): + + \value Latin consists of most alphabets based on the original Latin alphabet. + \value Greek covers ancient and modern Greek and Coptic. + \value Cyrillic covers the Slavic and non-Slavic languages using + cyrillic alphabets. + \value Armenian tqcontains the Armenian alphabet used with the + Armenian language. + \value Georgian covers at least the language Georgian. + \value Runic covers the known constituents of the Runic alphabets used + by the early and medieval societies in the Germanic, + Scandinavian, and Anglo-Saxon areas. + \value Ogham is an alphabetical script used to write a very early + form of Irish. + \value SpacingModifiers are small signs indicating modifications + to the preceeding letter. + \value CombiningMarks consist of diacritical marks not specific to + a particular alphabet, diacritical marks used in + combination with mathematical and technical symbols, and + glyph encodings applied to multiple letterforms. + + Middle Eastern scripts (right to left): + + \value Hebrew is used for writing Hebrew, Yiddish, and some other languages. + \value Arabic covers the Arabic language as well as Persian, Urdu, + Kurdish and some others. + \value Syriac is used to write the active liturgical languages and + dialects of several Middle Eastern and Southeast Indian + communities. + \value Thaana is used to write the Maledivian Dhivehi language. + + South and Southeast Asian scripts (left to right with few historical exceptions): + + \value Devanagari covers classical Sanskrit and modern Hindi as + well as several other languages. + \value Bengali is a relative to Devanagari employed to write the + Bengali language used in West Bengal/India and Bangladesh + as well as several minority languages. + \value Gurmukhi is another Devanagari relative used to write Punjabi. + \value Gujarati is closely related to Devanagari and used to write + the Gujarati language of the Gujarat state in India. + \value Oriya is used to write the Oriya language of Orissa state/India. + \value Tamil is used to write the Tamil language of Tamil Nadu state/India, + Sri Lanka, Singapore and parts of Malaysia as well as some + minority languages. + \value Telugu is used to write the Telugu language of Andhra + Pradesh state/India and some minority languages. + \value Kannada is another South Indian script used to write the + Kannada language of Karnataka state/India and some minority + languages. + \value Malayalam is used to write the Malayalam language of Kerala + state/India. + \value Sinhala is used for Sri Lanka's majority language Sinhala + and is also employed to write Pali, Sanskrit, and Tamil. + \value Thai is used to write Thai and other Southeast Asian languages. + \value Lao is a language and script quite similar to Thai. + \value Tibetan is the script used to write Tibetan in several + countries like Tibet, the bordering Indian regions and + Nepal. It is also used in the Buddist philosophy and + liturgy of the Mongolian cultural area. + \value Myanmar is mainly used to write the Burmese language of + Myanmar (former Burma). + \value Khmer is the official language of Kampuchea. + + East Asian scripts (traditionally top-down, right to left, modern + often horizontal left to right): + + \value Han consists of the CJK (Chinese, Japanese, Korean) + idiographic characters. + \value Hiragana is a cursive syllabary used to indicate phonetics + and pronounciation of Japanese words. + \value Katakana is a non-cursive syllabic script used to write + Japanese words with visual emphasis and non-Japanese words + in a phonetical manner. + \value Hangul is a Korean script consisting of alphabetic components. + \value Bopomofo is a phonetic alphabet for Chinese (mainly Mandarin). + \value Yi (also called Cuan or Wei) is a syllabary used to write + the Yi language of Southwestern China, Myanmar, Laos, and Vietnam. + + Additional scripts that do not fit well into the script categories above: + + \value Ethiopic is a syllabary used by several Central East African languages. + \value Cherokee is a left-to-right syllabic script used to write + the Cherokee language. + \value CanadianAboriginal consists of the syllabics used by some + Canadian aboriginal societies. + \value Mongolian is the traditional (and recently reintroduced) + script used to write Mongolian. + + Symbols: + + \value CurrencySymbols tqcontains currency symbols not encoded in other scripts. + \value LetterlikeSymbols consists of symbols derived from + ordinary letters of an alphabetical script. + \value NumberForms are provided for compatibility with other + existing character sets. + \value MathematicalOperators consists of encodings for operators, + relations and other symbols like arrows used in a mathematical context. + \value TechnicalSymbols tqcontains representations for control + codes, the space symbol, APL symbols and other symbols + mainly used in the context of electronic data processing. + \value GeometricSymbols covers block elements and geometric tqshapes. + \value MiscellaneousSymbols consists of a heterogeneous collection + of symbols that do not fit any other Unicode character + block, e.g. Dingbats. + \value EnclosedAndSquare is provided for compatibility with some + East Asian standards. + \value Braille is an international writing system used by blind + people. This script encodes the 256 eight-dot patterns with + the 64 six-dot patterns as a subset. + + \value Tagalog + \value Hanunoo + \value Buhid + \value Tagbanwa + + \value KatakanaHalfWidth + + \value Limbu (Unicode 4.0) + \value TaiLe (Unicode 4.0) + + \value Unicode includes all the above scripts. +*/ + +/*! \internal + + Constructs a font for use on the paint tqdevice \a pd using the + specified font \a data. +*/ +TQFont::TQFont( TQFontPrivate *data, TQPaintDevice *pd ) +{ + d = new TQFontPrivate( *data ); + TQ_CHECK_PTR( d ); + d->painttqdevice = pd; + + // now a single reference + d->count = 1; +} + +/*! \internal + Detaches the font object from common font data. +*/ +void TQFont::detach() +{ + if (d->count == 1) { + if ( d->engineData ) + d->engineData->deref(); + d->engineData = 0; + + return; + } + + TQFontPrivate *old_d = d; + d = new TQFontPrivate( *old_d ); + + /* + if this font is a copy of the application default font, set the + fontdef tqmask to zero to indicate that *nothing* has been + explicitly set by the programmer. + */ + const TQFont appfont = TQApplication::font(); + if ( old_d == appfont.d ) + d->tqmask = 0; + + if ( old_d->deref() ) + delete old_d; +} + +/*! + Constructs a font object that uses the application's default font. + + \sa TQApplication::setFont(), TQApplication::font() +*/ +TQFont::TQFont() +{ + const TQFont appfont = TQApplication::font(); + d = appfont.d; + d->ref(); +} + +/*! + Constructs a font object with the specified \a family, \a + pointSize, \a weight and \a italic settings. + + If \a pointSize is <= 0 it is set to 1. + + The \a family name may optionally also include a foundry name, + e.g. "Helvetica [Cronyx]". (The TQt 2.x syntax, i.e. + "Cronyx-Helvetica", is also supported.) If the \a family is + available from more than one foundry and the foundry isn't + specified, an arbitrary foundry is chosen. If the family isn't + available a family will be set using the \link #fontmatching font + matching\endlink algorithm. + + \sa Weight, setFamily(), setPointSize(), setWeight(), setItalic(), + setStyleHint() TQApplication::font() +*/ +TQFont::TQFont( const TQString &family, int pointSize, int weight, bool italic ) +{ + + d = new TQFontPrivate; + TQ_CHECK_PTR( d ); + + d->tqmask = TQFontPrivate::Family; + + if (pointSize <= 0) { + pointSize = 12; + } else { + d->tqmask |= TQFontPrivate::Size; + } + + if (weight < 0) { + weight = Normal; + } else { + d->tqmask |= TQFontPrivate::Weight | TQFontPrivate::Italic; + } + + d->request.family = family; + d->request.pointSize = pointSize * 10; + d->request.pixelSize = -1; + d->request.weight = weight; + d->request.italic = italic; +} + +/*! + Constructs a font that is a copy of \a font. +*/ +TQFont::TQFont( const TQFont &font ) +{ + d = font.d; + d->ref(); +} + +/*! + Destroys the font object and frees all allocated resources. +*/ +TQFont::~TQFont() +{ + if ( d->deref() ) + delete d; + d = 0; +} + +/*! + Assigns \a font to this font and returns a reference to it. +*/ +TQFont &TQFont::operator=( const TQFont &font ) +{ + if ( font.d != d ) { + if ( d->deref() ) + delete d; + d = font.d; + d->ref(); + } + + return *this; +} + +/*! + Returns the requested font family name, i.e. the name set in the + constructor or the last setFont() call. + + \sa setFamily() substitutes() substitute() +*/ +TQString TQFont::family() const +{ + return d->request.family; +} + +/*! + Sets the family name of the font. The name is case insensitive and + may include a foundry name. + + The \a family name may optionally also include a foundry name, + e.g. "Helvetica [Cronyx]". (The TQt 2.x syntax, i.e. + "Cronyx-Helvetica", is also supported.) If the \a family is + available from more than one foundry and the foundry isn't + specified, an arbitrary foundry is chosen. If the family isn't + available a family will be set using the \link #fontmatching font + matching\endlink algorithm. + + \sa family(), setStyleHint(), TQFontInfo +*/ +void TQFont::setFamily( const TQString &family ) +{ + detach(); + + d->request.family = family; +#if defined(TQ_WS_X11) + d->request.addStyle = TQString::null; +#endif // TQ_WS_X11 + + d->tqmask |= TQFontPrivate::Family; +} + +/*! + Returns the point size in 1/10ths of a point. + + The returned value will be -1 if the font size has been specified + in pixels. + + \sa pointSize() pointSizeFloat() + */ +int TQFont::deciPointSize() const +{ + return d->request.pointSize; +} + +/*! + Returns the point size of the font. Returns -1 if the font size + was specified in pixels. + + \sa setPointSize() deciPointSize() pointSizeFloat() +*/ +int TQFont::pointSize() const +{ + return d->request.pointSize == -1 ? -1 : (d->request.pointSize + 5) / 10; +} + +/*! + Sets the point size to \a pointSize. The point size must be + greater than zero. + + \sa pointSize() setPointSizeFloat() +*/ +void TQFont::setPointSize( int pointSize ) +{ + if ( pointSize <= 0 ) { + +#if defined(TQT_CHECK_RANGE) + qWarning( "TQFont::setPointSize: Point size <= 0 (%d)", pointSize ); +#endif + + return; + } + + detach(); + + d->request.pointSize = pointSize * 10; + d->request.pixelSize = -1; + + d->tqmask |= TQFontPrivate::Size; +} + +/*! + Sets the point size to \a pointSize. The point size must be + greater than zero. The requested precision may not be achieved on + all platforms. + + \sa pointSizeFloat() setPointSize() setPixelSize() +*/ +void TQFont::setPointSizeFloat( float pointSize ) +{ + if ( pointSize <= 0.0 ) { +#if defined(TQT_CHECK_RANGE) + qWarning( "TQFont::setPointSize: Point size <= 0 (%f)", pointSize ); +#endif + return; + } + + detach(); + + d->request.pointSize = tqRound(pointSize * 10.0); + d->request.pixelSize = -1; + + d->tqmask |= TQFontPrivate::Size; +} + +/*! + Returns the point size of the font. Returns -1 if the font size was + specified in pixels. + + \sa pointSize() setPointSizeFloat() pixelSize() TQFontInfo::pointSize() TQFontInfo::pixelSize() +*/ +float TQFont::pointSizeFloat() const +{ + return float( d->request.pointSize == -1 ? -10 : d->request.pointSize ) / 10.0; +} + +/*! + Sets the font size to \a pixelSize pixels. + + Using this function makes the font tqdevice dependent. Use + setPointSize() or setPointSizeFloat() to set the size of the font + in a tqdevice independent manner. + + \sa pixelSize() +*/ +void TQFont::setPixelSize( int pixelSize ) +{ + if ( pixelSize <= 0 ) { +#if defined(TQT_CHECK_RANGE) + qWarning( "TQFont::setPixelSize: Pixel size <= 0 (%d)", pixelSize ); +#endif + return; + } + + detach(); + + d->request.pixelSize = pixelSize; + d->request.pointSize = -1; + + d->tqmask |= TQFontPrivate::Size; +} + +/*! + Returns the pixel size of the font if it was set with + setPixelSize(). Returns -1 if the size was set with setPointSize() + or setPointSizeFloat(). + + \sa setPixelSize() pointSize() TQFontInfo::pointSize() TQFontInfo::pixelSize() +*/ +int TQFont::pixelSize() const +{ + return d->request.pixelSize; +} + +/*! \obsolete + + Sets the logical pixel height of font characters when shown on + the screen to \a pixelSize. +*/ +void TQFont::setPixelSizeFloat( float pixelSize ) +{ + setPixelSize( (int)pixelSize ); +} + +/*! + Returns TRUE if italic has been set; otherwise returns FALSE. + + \sa setItalic() +*/ +bool TQFont::italic() const +{ + return d->request.italic; +} + +/*! + If \a enable is TRUE, italic is set on; otherwise italic is set + off. + + \sa italic(), TQFontInfo +*/ +void TQFont::setItalic( bool enable ) +{ + detach(); + + d->request.italic = enable; + d->tqmask |= TQFontPrivate::Italic; +} + +/*! + Returns the weight of the font which is one of the enumerated + values from \l{TQFont::Weight}. + + \sa setWeight(), Weight, TQFontInfo +*/ +int TQFont::weight() const +{ + return d->request.weight; +} + +/*! + \enum TQFont::Weight + + TQt uses a weighting scale from 0 to 99 similar to, but not the + same as, the scales used in Windows or CSS. A weight of 0 is + ultralight, whilst 99 will be an extremely black. + + This enum tqcontains the predefined font weights: + + \value Light 25 + \value Normal 50 + \value DemiBold 63 + \value Bold 75 + \value Black 87 +*/ + +/*! + Sets the weight the font to \a weight, which should be a value + from the \l TQFont::Weight enumeration. + + \sa weight(), TQFontInfo +*/ +void TQFont::setWeight( int weight ) +{ + if ( weight < 0 || weight > 99 ) { + +#if defined(TQT_CHECK_RANGE) + qWarning( "TQFont::setWeight: Value out of range (%d)", weight ); +#endif + + return; + } + + detach(); + + d->request.weight = weight; + d->tqmask |= TQFontPrivate::Weight; +} + +/*! + \fn bool TQFont::bold() const + + Returns TRUE if weight() is a value greater than \link Weight + TQFont::Normal \endlink; otherwise returns FALSE. + + \sa weight(), setBold(), TQFontInfo::bold() +*/ + +/*! + \fn void TQFont::setBold( bool enable ) + + If \a enable is true sets the font's weight to \link Weight + TQFont::Bold \endlink; otherwise sets the weight to \link Weight + TQFont::Normal\endlink. + + For finer boldness control use setWeight(). + + \sa bold(), setWeight() +*/ + +/*! + Returns TRUE if underline has been set; otherwise returns FALSE. + + \sa setUnderline() +*/ +bool TQFont::underline() const +{ + return d->underline; +} + +/*! + If \a enable is TRUE, sets underline on; otherwise sets underline + off. + + \sa underline(), TQFontInfo +*/ +void TQFont::setUnderline( bool enable ) +{ + detach(); + + d->underline = enable; + d->tqmask |= TQFontPrivate::Underline; +} + +/*! + Returns TRUE if overline has been set; otherwise returns FALSE. + + \sa setOverline() +*/ +bool TQFont::overline() const +{ + return d->overline; +} + +/*! + If \a enable is TRUE, sets overline on; otherwise sets overline off. + + \sa overline(), TQFontInfo +*/ +void TQFont::setOverline( bool enable ) +{ + detach(); + + d->overline = enable; + d->tqmask |= TQFontPrivate::Overline; +} + +/*! + Returns TRUE if strikeout has been set; otherwise returns FALSE. + + \sa setStrikeOut() +*/ +bool TQFont::strikeOut() const +{ + return d->strikeOut; +} + +/*! + If \a enable is TRUE, sets strikeout on; otherwise sets strikeout + off. + + \sa strikeOut(), TQFontInfo +*/ +void TQFont::setStrikeOut( bool enable ) +{ + detach(); + + d->strikeOut = enable; + d->tqmask |= TQFontPrivate::StrikeOut; +} + +/*! + Returns TRUE if fixed pitch has been set; otherwise returns FALSE. + + \sa setFixedPitch(), TQFontInfo::fixedPitch() +*/ +bool TQFont::fixedPitch() const +{ + return d->request.fixedPitch; +} + +/*! + If \a enable is TRUE, sets fixed pitch on; otherwise sets fixed + pitch off. + + \sa fixedPitch(), TQFontInfo +*/ +void TQFont::setFixedPitch( bool enable ) +{ + detach(); + + d->request.fixedPitch = enable; + d->request.ignorePitch = FALSE; + d->tqmask |= TQFontPrivate::FixedPitch; +} + +/*! + Returns the StyleStrategy. + + The style strategy affects the \link #fontmatching font + matching\endlink algorithm. See \l TQFont::StyleStrategy for the + list of strategies. + + \sa setStyleHint() TQFont::StyleHint +*/ +TQFont::StyleStrategy TQFont::styleStrategy() const +{ + return (StyleStrategy) d->request.styleStrategy; +} + +/*! + Returns the StyleHint. + + The style hint affects the \link #fontmatching font + matching\endlink algorithm. See \l TQFont::StyleHint for the list + of strategies. + + \sa setStyleHint(), TQFont::StyleStrategy TQFontInfo::tqstyleHint() +*/ +TQFont::StyleHint TQFont::tqstyleHint() const +{ + return (StyleHint) d->request.tqstyleHint; +} + +/*! + \enum TQFont::StyleHint + + Style hints are used by the \link #fontmatching font + matching\endlink algorithm to tqfind an appropriate default family + if a selected font family is not available. + + \value AnyStyle leaves the font matching algorithm to choose the + family. This is the default. + + \value SansSerif the font matcher prefer sans serif fonts. + \value Helvetica is a synonym for \c SansSerif. + + \value Serif the font matcher prefers serif fonts. + \value Times is a synonym for \c Serif. + + \value TypeWriter the font matcher prefers fixed pitch fonts. + \value Courier a synonym for \c TypeWriter. + + \value OldEnglish the font matcher prefers decorative fonts. + \value Decorative is a synonym for \c OldEnglish. + + \value System the font matcher prefers system fonts. +*/ + +/*! + \enum TQFont::StyleStrategy + + The style strategy tells the \link #fontmatching font + matching\endlink algorithm what type of fonts should be used to + tqfind an appropriate default family. + + The following strategies are available: + + \value PreferDefault the default style strategy. It does not prefer + any type of font. + \value PreferBitmap prefers bitmap fonts (as opposed to outline + fonts). + \value PreferDevice prefers tqdevice fonts. + \value PreferOutline prefers outline fonts (as opposed to bitmap fonts). + \value ForceOutline forces the use of outline fonts. + \value NoAntialias don't antialias the fonts. + \value PreferAntialias antialias if possible. + \value OpenGLCompatible forces the use of OpenGL compatible + fonts. + + Any of these may be OR-ed with one of these flags: + + \value PreferMatch prefer an exact match. The font matcher will try to + use the exact font size that has been specified. + \value PreferQuality prefer the best quality font. The font matcher + will use the nearest standard point size that the font + supports. +*/ + +/*! + Sets the style hint and strategy to \a hint and \a strategy, + respectively. + + If these aren't set explicitly the style hint will default to + \c AnyStyle and the style strategy to \c PreferDefault. + + TQt does not support style hints on X11 since this information + is not provided by the window system. + + \sa StyleHint, tqstyleHint(), StyleStrategy, styleStrategy(), TQFontInfo +*/ +void TQFont::setStyleHint( StyleHint hint, StyleStrategy strategy ) +{ + detach(); + + if ( ( d->tqmask & ( TQFontPrivate::StyleHint | TQFontPrivate::StyleStrategy ) ) && + (StyleHint) d->request.tqstyleHint == hint && + (StyleStrategy) d->request.styleStrategy == strategy ) + return; + + d->request.tqstyleHint = hint; + d->request.styleStrategy = strategy; + d->tqmask |= TQFontPrivate::StyleHint; + d->tqmask |= TQFontPrivate::StyleStrategy; + +#if defined(TQ_WS_X11) + d->request.addStyle = TQString::null; +#endif // TQ_WS_X11 +} + +/*! + Sets the style strategy for the font to \a s. + + \sa TQFont::StyleStrategy +*/ +void TQFont::setStyleStrategy( StyleStrategy s ) +{ + detach(); + + if ( ( d->tqmask & TQFontPrivate::StyleStrategy ) && + s == (StyleStrategy)d->request.styleStrategy ) + return; + + d->request.styleStrategy = s; + d->tqmask |= TQFontPrivate::StyleStrategy; +} + + +/*! + \enum TQFont::Stretch + + Predefined stretch values that follow the CSS naming convention. + + \value UltraCondensed 50 + \value ExtraCondensed 62 + \value Condensed 75 + \value SemiCondensed 87 + \value Unstretched 100 + \value SemiExpanded 112 + \value Expanded 125 + \value ExtraExpanded 150 + \value UltraExpanded 200 + + \sa setStretch() stretch() +*/ + +/*! + Returns the stretch factor for the font. + + \sa setStretch() + */ +int TQFont::stretch() const +{ + return d->request.stretch; +} + +/*! + Sets the stretch factor for the font. + + The stretch factor changes the width of all characters in the font + by \a factor percent. For example, setting \a factor to 150 + results in all characters in the font being 1.5 times ( ie. 150% ) + wider. The default stretch factor is 100. The minimum stretch + factor is 1, and the maximum stretch factor is 4000. + + The stretch factor is only applied to outline fonts. The stretch + factor is ignored for bitmap fonts. + + NOTE: TQFont cannot stretch XLFD fonts. When loading XLFD fonts on + X11, the stretch factor is matched against a predefined set of + values for the SETWIDTH_NAME field of the XLFD. + + \sa stretch() TQFont::StyleStrategy +*/ +void TQFont::setStretch( int factor ) +{ + if ( factor < 1 || factor > 4000 ) { +#ifdef TQT_CHECK_RANGE + qWarning( "TQFont::setStretch(): parameter '%d' out of range", factor ); +#endif // TQT_CHECK_RANGE + + return; + } + + detach(); + + if ( ( d->tqmask & TQFontPrivate::Stretch ) && + d->request.stretch == (uint)factor ) + return; + + d->request.stretch = (uint)factor; + d->tqmask |= TQFontPrivate::Stretch; +} + +/*! + If \a enable is TRUE, turns raw mode on; otherwise turns raw mode + off. This function only has an effect under X11. + + If raw mode is enabled, TQt will search for an X font with a + complete font name matching the family name, ignoring all other + values set for the TQFont. If the font name matches several fonts, + TQt will use the first font returned by X. TQFontInfo \e cannot be + used to fetch information about a TQFont using raw mode (it will + return the values set in the TQFont for all parameters, including + the family name). + + \warning Do not use raw mode unless you really, really need it! In + most (if not all) cases, setRawName() is a much better choice. + + \sa rawMode(), setRawName() +*/ +void TQFont::setRawMode( bool enable ) +{ + detach(); + + if ( (bool) d->rawMode == enable ) return; + + d->rawMode = enable; +} + +/*! + Returns TRUE if a window system font exactly matching the settings + of this font is available. + + \sa TQFontInfo +*/ +bool TQFont::exactMatch() const +{ + TQFontEngine *engine = d->engineForScript( TQFont::NoScript ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE + + return d->rawMode ? engine->type() != TQFontEngine::Box + : d->request == engine->fontDef; +} + +/*! + Returns TRUE if this font is equal to \a f; otherwise returns + FALSE. + + Two TQFonts are considered equal if their font attributes are + equal. If rawMode() is enabled for both fonts, only the family + fields are compared. + + \sa operator!=() isCopyOf() +*/ +bool TQFont::operator==( const TQFont &f ) const +{ + return f.d == d || ( f.d->request == d->request && + f.d->underline == d->underline && + f.d->overline == d->overline && + f.d->strikeOut == d->strikeOut ); +} + +/*! + Returns TRUE if this font is different from \a f; otherwise + returns FALSE. + + Two TQFonts are considered to be different if their font attributes + are different. If rawMode() is enabled for both fonts, only the + family fields are compared. + + \sa operator==() +*/ +bool TQFont::operator!=( const TQFont &f ) const +{ + return !(operator==( f )); +} + +/*! + Returns TRUE if this font and \a f are copies of each other, i.e. + one of them was created as a copy of the other and neither has + been modified since. This is much stricter than equality. + + \sa operator=() operator==() +*/ +bool TQFont::isCopyOf( const TQFont & f ) const +{ + return d == f.d; +} + +/*! + Returns TRUE if raw mode is used for font name matching; otherwise + returns FALSE. + + \sa setRawMode() rawName() +*/ +bool TQFont::rawMode() const +{ + return d->rawMode; +} + +/*! + Returns a new TQFont that has attributes copied from \a other. +*/ +TQFont TQFont::resolve( const TQFont &other ) const +{ + if ( *this == other && d->tqmask == other.d->tqmask ) + return *this; + + TQFont font( *this ); + font.detach(); + + /* + if this font is a copy of the application default font, set the + fontdef tqmask to zero to indicate that *nothing* has been + explicitly set by the programmer. + */ + const TQFont appfont = TQApplication::font(); + if ( d == appfont.d ) + font.d->tqmask = 0; + + font.d->resolve( other.d ); + + return font; +} + +#ifndef TQT_NO_COMPAT + +/*! \obsolete + + Please use TQApplication::font() instead. +*/ +TQFont TQFont::defaultFont() +{ + return TQApplication::font(); +} + +/*! \obsolete + + Please use TQApplication::setFont() instead. +*/ +void TQFont::setDefaultFont( const TQFont &f ) +{ + TQApplication::setFont( f ); +} + + +#endif + + + + +#ifndef TQT_NO_STRINGLIST + +/***************************************************************************** + TQFont substitution management + *****************************************************************************/ + +typedef TQDict<TQStringList> TQFontSubst; +static TQFontSubst *fontSubst = 0; +static TQSingleCleanupHandler<TQFontSubst> qfont_cleanup_fontsubst; + + +// create substitution dict +static void initFontSubst() +{ + // default substitutions + static const char *initTbl[] = { + +#if defined(TQ_WS_X11) + "arial", "helvetica", + "helv", "helvetica", + "tms rmn", "times", +#elif defined(TQ_WS_WIN) + "times", "Times New Roman", + "courier", "Courier New", + "helvetica", "Arial", +#endif + + 0, 0 + }; + + if (fontSubst) + return; + + fontSubst = new TQFontSubst(17, FALSE); + TQ_CHECK_PTR( fontSubst ); + fontSubst->setAutoDelete( TRUE ); + qfont_cleanup_fontsubst.set(&fontSubst); + + for ( int i=0; initTbl[i] != 0; i += 2 ) + TQFont::insertSubstitution(TQString::tqfromLatin1(initTbl[i]), + TQString::tqfromLatin1(initTbl[i+1])); +} + + +/*! + Returns the first family name to be used whenever \a familyName is + specified. The lookup is case insensitive. + + If there is no substitution for \a familyName, \a familyName is + returned. + + To obtain a list of substitutions use substitutes(). + + \sa setFamily() insertSubstitutions() insertSubstitution() removeSubstitution() +*/ +TQString TQFont::substitute( const TQString &familyName ) +{ + initFontSubst(); + + TQStringList *list = fontSubst->tqfind(familyName); + if (list && list->count() > 0) + return *(list->at(0)); + + return familyName; +} + + +/*! + Returns a list of family names to be used whenever \a familyName + is specified. The lookup is case insensitive. + + If there is no substitution for \a familyName, an empty list is + returned. + + \sa substitute() insertSubstitutions() insertSubstitution() removeSubstitution() + */ +TQStringList TQFont::substitutes(const TQString &familyName) +{ + initFontSubst(); + + TQStringList ret, *list = fontSubst->tqfind(familyName); + if (list) + ret += *list; + return ret; +} + + +/*! + Inserts the family name \a substituteName into the substitution + table for \a familyName. + + \sa insertSubstitutions() removeSubstitution() substitutions() substitute() substitutes() +*/ +void TQFont::insertSubstitution(const TQString &familyName, + const TQString &substituteName) +{ + initFontSubst(); + + TQStringList *list = fontSubst->tqfind(familyName); + if (! list) { + list = new TQStringList; + fontSubst->insert(familyName, list); + } + + if (! list->tqcontains(substituteName)) + list->append(substituteName); +} + + +/*! + Inserts the list of families \a substituteNames into the + substitution list for \a familyName. + + \sa insertSubstitution(), removeSubstitution(), substitutions(), substitute() +*/ +void TQFont::insertSubstitutions(const TQString &familyName, + const TQStringList &substituteNames) +{ + initFontSubst(); + + TQStringList *list = fontSubst->tqfind(familyName); + if (! list) { + list = new TQStringList; + fontSubst->insert(familyName, list); + } + + TQStringList::ConstIterator it = substituteNames.begin(); + while (it != substituteNames.end()) { + if (! list->tqcontains(*it)) + list->append(*it); + it++; + } +} + +// ### mark: should be called removeSubstitutions() +/*! + Removes all the substitutions for \a familyName. + + \sa insertSubstitutions(), insertSubstitution(), substitutions(), substitute() +*/ +void TQFont::removeSubstitution( const TQString &familyName ) +{ // ### function name should be removeSubstitutions() or + // ### removeSubstitutionList() + initFontSubst(); + + fontSubst->remove(familyName); +} + + +/*! + Returns a sorted list of substituted family names. + + \sa insertSubstitution(), removeSubstitution(), substitute() +*/ +TQStringList TQFont::substitutions() +{ + initFontSubst(); + + TQStringList ret; + TQDictIterator<TQStringList> it(*fontSubst); + + while (it.current()) { + ret.append(it.currentKey()); + ++it; + } + + ret.sort(); + + return ret; +} + +#endif // TQT_NO_STRINGLIST + + +/* \internal + Internal function. Converts boolean font settings to an unsigned + 8-bit number. Used for serialization etc. +*/ +static TQ_UINT8 get_font_bits( const TQFontPrivate *f ) +{ +#ifdef TQT_CHECK_STATE + TQ_ASSERT( f != 0 ); +#endif + + TQ_UINT8 bits = 0; + if ( f->request.italic ) + bits |= 0x01; + if ( f->underline ) + bits |= 0x02; + if ( f->overline ) + bits |= 0x40; + if ( f->strikeOut ) + bits |= 0x04; + if ( f->request.fixedPitch ) + bits |= 0x08; + // if ( f.hintSetByUser ) + // bits |= 0x10; + if ( f->rawMode ) + bits |= 0x20; + return bits; +} + + +#ifndef TQT_NO_DATASTREAM + +/* \internal + Internal function. Sets boolean font settings from an unsigned + 8-bit number. Used for serialization etc. +*/ +static void set_font_bits( TQ_UINT8 bits, TQFontPrivate *f ) +{ +#ifdef TQT_CHECK_STATE + TQ_ASSERT( f != 0 ); +#endif + + f->request.italic = (bits & 0x01) != 0; + f->underline = (bits & 0x02) != 0; + f->overline = (bits & 0x40) != 0; + f->strikeOut = (bits & 0x04) != 0; + f->request.fixedPitch = (bits & 0x08) != 0; + // f->hintSetByUser = (bits & 0x10) != 0; + f->rawMode = (bits & 0x20) != 0; +} + +#endif + + +/*! + Returns the font's key, a textual representation of a font. It is + typically used as the key for a cache or dictionary of fonts. + + \sa TQMap +*/ +TQString TQFont::key() const +{ + return toString(); +} + +/*! + Returns a description of the font. The description is a + comma-separated list of the attributes, perfectly suited for use + in TQSettings. + + \sa fromString() operator<<() + */ +TQString TQFont::toString() const +{ + const TQChar comma( ',' ); + return family() + comma + + TQString::number( pointSizeFloat() ) + comma + + TQString::number( pixelSize() ) + comma + + TQString::number( (int) tqstyleHint() ) + comma + + TQString::number( weight() ) + comma + + TQString::number( (int) italic() ) + comma + + TQString::number( (int) underline() ) + comma + + TQString::number( (int) strikeOut() ) + comma + + TQString::number( (int)fixedPitch() ) + comma + + TQString::number( (int) rawMode() ); +} + + +/*! + Sets this font to match the description \a descrip. The description + is a comma-separated list of the font attributes, as returned by + toString(). + + \sa toString() operator>>() + */ +bool TQFont::fromString(const TQString &descrip) +{ +#ifndef TQT_NO_STRINGLIST + TQStringList l(TQStringList::split(',', descrip)); + + int count = (int)l.count(); +#else + int count = 0; + TQString l[11]; + int from = 0; + int to = descrip.tqfind( ',' ); + while ( to > 0 && count < 11 ) { + l[count] = descrip.mid( from, to-from ); + count++; + from = to+1; + to = descrip.tqfind( ',', from ); + } +#endif // TQT_NO_STRINGLIST + if ( !count || ( count > 2 && count < 9 ) || count > 11 ) { + +#ifdef TQT_CHECK_STATE + qWarning("TQFont::fromString: invalid description '%s'", + descrip.isEmpty() ? "(empty)" : descrip.latin1()); +#endif + + return FALSE; + } + + setFamily(l[0]); + if ( count > 1 && l[1].toDouble() > 0.0 ) + setPointSizeFloat(l[1].toDouble()); + if ( count == 9 ) { + setStyleHint((StyleHint) l[2].toInt()); + setWeight(l[3].toInt()); + setItalic(l[4].toInt()); + setUnderline(l[5].toInt()); + setStrikeOut(l[6].toInt()); + setFixedPitch(l[7].toInt()); + setRawMode(l[8].toInt()); + } else if ( count == 10 ) { + if ( l[2].toInt() > 0 ) + setPixelSize( l[2].toInt() ); + setStyleHint((StyleHint) l[3].toInt()); + setWeight(l[4].toInt()); + setItalic(l[5].toInt()); + setUnderline(l[6].toInt()); + setStrikeOut(l[7].toInt()); + setFixedPitch(l[8].toInt()); + setRawMode(l[9].toInt()); + } + + return TRUE; +} + +#if !defined( TQ_WS_TQWS ) +/*! \internal + + Internal function that dumps font cache statistics. +*/ +void TQFont::cacheStatistics() +{ + + +} +#endif // !TQ_WS_TQWS + + + +/***************************************************************************** + TQFont stream functions + *****************************************************************************/ +#ifndef TQT_NO_DATASTREAM + +/*! + \relates TQFont + + Writes the font \a font to the data stream \a s. (toString() + writes to a text stream.) + + \sa \link datastreamformat.html Format of the TQDataStream operators \endlink +*/ +TQDataStream &operator<<( TQDataStream &s, const TQFont &font ) +{ + if ( s.version() == 1 ) { + TQCString fam( font.d->request.family.latin1() ); + s << fam; + } else { + s << font.d->request.family; + } + + if ( s.version() <= 3 ) { + TQ_INT16 pointSize = (TQ_INT16) font.d->request.pointSize; + if ( pointSize == -1 ) { +#ifdef TQ_WS_X11 + pointSize = (TQ_INT16)(font.d->request.pixelSize*720/TQPaintDevice::x11AppDpiY()); +#else + pointSize = (TQ_INT16)TQFontInfo( font ).pointSize() * 10; +#endif + } + s << pointSize; + } else { + s << (TQ_INT16) font.d->request.pointSize; + s << (TQ_INT16) font.d->request.pixelSize; + } + + s << (TQ_UINT8) font.d->request.tqstyleHint; + if ( s.version() >= 5 ) + s << (TQ_UINT8 ) font.d->request.styleStrategy; + return s << (TQ_UINT8) 0 + << (TQ_UINT8) font.d->request.weight + << get_font_bits(font.d); +} + + +/*! + \relates TQFont + + Reads the font \a font from the data stream \a s. (fromString() + reads from a text stream.) + + \sa \link datastreamformat.html Format of the TQDataStream operators \endlink +*/ +TQDataStream &operator>>( TQDataStream &s, TQFont &font ) +{ + if (font.d->deref()) delete font.d; + + font.d = new TQFontPrivate; + font.d->tqmask = TQFontPrivate::Complete; + + TQ_INT16 pointSize, pixelSize = -1; + TQ_UINT8 tqstyleHint, styleStrategy = TQFont::PreferDefault, charSet, weight, bits; + + if ( s.version() == 1 ) { + TQCString fam; + s >> fam; + font.d->request.family = TQString( fam ); + } else { + s >> font.d->request.family; + } + + s >> pointSize; + if ( s.version() >= 4 ) + s >> pixelSize; + s >> tqstyleHint; + if ( s.version() >= 5 ) + s >> styleStrategy; + s >> charSet; + s >> weight; + s >> bits; + + font.d->request.pointSize = pointSize; + font.d->request.pixelSize = pixelSize; + font.d->request.tqstyleHint = tqstyleHint; + font.d->request.styleStrategy = styleStrategy; + font.d->request.weight = weight; + + set_font_bits( bits, font.d ); + + return s; +} + +#endif // TQT_NO_DATASTREAM + + + + +/***************************************************************************** + TQFontMetrics member functions + *****************************************************************************/ + +/*! + \class TQFontMetrics tqfontmetrics.h + \brief The TQFontMetrics class provides font metrics information. + + \ingroup graphics + \ingroup shared + + TQFontMetrics functions calculate the size of characters and + strings for a given font. There are three ways you can create a + TQFontMetrics object: + + \list 1 + \i Calling the TQFontMetrics constructor with a TQFont creates a + font metrics object for a screen-compatible font, i.e. the font + cannot be a printer font<sup>*</sup>. If the font is changed + later, the font metrics object is \e not updated. + + \i TQWidget::fontMetrics() returns the font metrics for a widget's + font. This is equivalent to TQFontMetrics(widget->font()). If the + widget's font is changed later, the font metrics object is \e not + updated. + + \i TQPainter::fontMetrics() returns the font metrics for a + painter's current font. If the painter's font is changed later, the + font metrics object is \e not updated. + \endlist + + <sup>*</sup> If you use a printer font the values returned may be + inaccurate. Printer fonts are not always accessible so the nearest + screen font is used if a printer font is supplied. + + Once created, the object provides functions to access the + individual metrics of the font, its characters, and for strings + rendered in the font. + + There are several functions that operate on the font: ascent(), + descent(), height(), leading() and lineSpacing() return the basic + size properties of the font. The underlinePos(), overlinePos(), + strikeOutPos() and lineWidth() functions, return the properties of + the line that underlines, overlines or strikes out the + characters. These functions are all fast. + + There are also some functions that operate on the set of glyphs in + the font: minLeftBearing(), minRightBearing() and maxWidth(). + These are by necessity slow, and we recommend avoiding them if + possible. + + For each character, you can get its width(), leftBearing() and + rightBearing() and tqfind out whether it is in the font using + inFont(). You can also treat the character as a string, and use + the string functions on it. + + The string functions include width(), to return the width of a + string in pixels (or points, for a printer), boundingRect(), to + return a rectangle large enough to contain the rendered string, + and size(), to return the size of that rectangle. + + Example: + \code + TQFont font( "times", 24 ); + TQFontMetrics fm( font ); + int pixelsWide = fm.width( "What's the width of this text?" ); + int pixelsHigh = fm.height(); + \endcode + + \sa TQFont TQFontInfo TQFontDatabase +*/ + +/*! + Constructs a font metrics object for \a font. + + The font must be screen-compatible, i.e. a font you use when + drawing text in \link TQWidget widgets\endlink or \link TQPixmap + pixmaps\endlink, not TQPicture or TQPrinter. + + The font metrics object holds the information for the font that is + passed in the constructor at the time it is created, and is not + updated if the font's attributes are changed later. + + Use TQPainter::fontMetrics() to get the font metrics when painting. + This will give correct results also when painting on paint tqdevice + that is not screen-compatible. +*/ +TQFontMetrics::TQFontMetrics( const TQFont &font ) + : d( font.d ), painter( 0 ), fscript( TQFont::NoScript ) +{ + d->ref(); +} + +/*! + \overload + + Constructs a font metrics object for \a font using the given \a + script. +*/ +TQFontMetrics::TQFontMetrics( const TQFont &font, TQFont::Script script ) + : d( font.d ), painter( 0 ), fscript( script ) +{ + d->ref(); +} + +/*! \internal + + Constructs a font metrics object for the painter's font \a p. +*/ +TQFontMetrics::TQFontMetrics( const TQPainter *p ) + : painter ( (TQPainter *) p ), fscript( TQFont::NoScript ) +{ +#if defined(CHECK_STATE) + if ( !painter->isActive() ) + qWarning( "TQFontMetrics: Get font metrics between TQPainter::begin() " + "and TQPainter::end()" ); +#endif + + if ( painter->testf(TQPainter::DirtyFont) ) + painter->updateFont(); + + d = painter->pfont ? painter->pfont->d : painter->cfont.d; + +#if defined(TQ_WS_X11) + if ( d->screen != p->scrn ) { + TQFontPrivate *new_d = new TQFontPrivate( *d ); + TQ_CHECK_PTR( new_d ); + d = new_d; + d->screen = p->scrn; + d->count = 1; + } else +#endif // TQ_WS_X11 + d->ref(); +} + +/*! + Constructs a copy of \a fm. +*/ +TQFontMetrics::TQFontMetrics( const TQFontMetrics &fm ) + : d( fm.d ), painter( 0 ), fscript( fm.fscript ) +{ + d->ref(); +} + +/*! + Destroys the font metrics object and frees all allocated + resources. +*/ +TQFontMetrics::~TQFontMetrics() +{ + if ( d->deref() ) + delete d; +} + +/*! + Assigns the font metrics \a fm. +*/ +TQFontMetrics &TQFontMetrics::operator=( const TQFontMetrics &fm ) +{ + if ( d != fm.d ) { + if ( d->deref() ) + delete d; + d = fm.d; + d->ref(); + } + painter = fm.painter; + return *this; +} + +/*! + Returns the ascent of the font. + + The ascent of a font is the distance from the baseline to the + highest position characters extend to. In practice, some font + designers break this rule, e.g. when they put more than one accent + on top of a character, or to accommodate an unusual character in + an exotic language, so it is possible (though rare) that this + value will be too small. + + \sa descent() +*/ +int TQFontMetrics::ascent() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); + TQFontEngine *latin_engine = d->engineForScript( TQFont::Latin ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); + TQ_ASSERT( latin_engine != 0 ); +#endif // TQT_CHECK_STATE + + return TQMAX(engine->ascent(), latin_engine->ascent()); +} + + +/*! + Returns the descent of the font. + + The descent is the distance from the base line to the lowest point + characters extend to. (Note that this is different from X, which + adds 1 pixel.) In practice, some font designers break this rule, + e.g. to accommodate an unusual character in an exotic language, so + it is possible (though rare) that this value will be too small. + + \sa ascent() +*/ +int TQFontMetrics::descent() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); + TQFontEngine *latin_engine = d->engineForScript( TQFont::Latin ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); + TQ_ASSERT( latin_engine != 0 ); +#endif // TQT_CHECK_STATE + + return TQMAX(engine->descent(), latin_engine->descent()); +} + +/*! + Returns the height of the font. + + This is always equal to ascent()+descent()+1 (the 1 is for the + base line). + + \sa leading(), lineSpacing() +*/ +int TQFontMetrics::height() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); + TQFontEngine *latin_engine = d->engineForScript( TQFont::Latin ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); + TQ_ASSERT( latin_engine != 0 ); +#endif // TQT_CHECK_STATE + + return (TQMAX(engine->ascent(), latin_engine->ascent()) + + TQMAX(engine->descent(), latin_engine->descent()) + 1); +} + +/*! + Returns the leading of the font. + + This is the natural inter-line spacing. + + \sa height(), lineSpacing() +*/ +int TQFontMetrics::leading() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); + TQFontEngine *latin_engine = d->engineForScript( TQFont::Latin ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); + TQ_ASSERT( latin_engine != 0 ); +#endif // TQT_CHECK_STATE + + return TQMAX(engine->leading(), latin_engine->leading()); +} + +/*! + Returns the distance from one base line to the next. + + This value is always equal to leading()+height(). + + \sa height(), leading() +*/ +int TQFontMetrics::lineSpacing() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); + TQFontEngine *latin_engine = d->engineForScript( TQFont::Latin ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); + TQ_ASSERT( latin_engine != 0 ); +#endif // TQT_CHECK_STATE + + return (TQMAX(engine->leading(), latin_engine->leading()) + + TQMAX(engine->ascent(), latin_engine->ascent()) + + TQMAX(engine->descent(), latin_engine->descent()) + 1); +} + +/*! + Returns the minimum left bearing of the font. + + This is the smallest leftBearing(char) of all characters in the + font. + + Note that this function can be very slow if the font is large. + + \sa minRightBearing(), leftBearing() +*/ +int TQFontMetrics::minLeftBearing() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); + TQFontEngine *latin_engine = d->engineForScript( TQFont::Latin ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); + TQ_ASSERT( latin_engine != 0 ); +#endif // TQT_CHECK_STATE + + return TQMIN(engine->minLeftBearing(), latin_engine->minLeftBearing()); +} + +/*! + Returns the minimum right bearing of the font. + + This is the smallest rightBearing(char) of all characters in the + font. + + Note that this function can be very slow if the font is large. + + \sa minLeftBearing(), rightBearing() +*/ +int TQFontMetrics::minRightBearing() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); + TQFontEngine *latin_engine = d->engineForScript( TQFont::Latin ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); + TQ_ASSERT( latin_engine != 0 ); +#endif // TQT_CHECK_STATE + + return TQMIN(engine->minRightBearing(), latin_engine->minRightBearing()); +} + +/*! + Returns the width of the widest character in the font. +*/ +int TQFontMetrics::maxWidth() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); + TQFontEngine *lengine = d->engineForScript( TQFont::Latin ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); + TQ_ASSERT( lengine != 0 ); +#endif // TQT_CHECK_STATE + + return TQMAX(engine->maxCharWidth(), lengine->maxCharWidth()); +} + +/*! + Returns TRUE if character \a ch is a valid character in the font; + otherwise returns FALSE. +*/ +bool TQFontMetrics::inFont(TQChar ch) const +{ + TQFont::Script script; + SCRIPT_FOR_CHAR( script, ch ); + + TQFontEngine *engine = d->engineForScript( script ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE + + if ( engine->type() == TQFontEngine::Box ) return FALSE; + return engine->canRender( &ch, 1 ); +} + +/*! \fn int TQFontMetrics::leftBearing( TQChar ch ) const + Returns the left bearing of character \a ch in the font. + + The left bearing is the right-ward distance of the left-most pixel + of the character from the logical origin of the character. This + value is negative if the pixels of the character extend to the + left of the logical origin. + + See width(TQChar) for a graphical description of this metric. + + \sa rightBearing(), minLeftBearing(), width() +*/ +#if !defined(TQ_WS_WIN) && !defined(TQ_WS_TQWS) +int TQFontMetrics::leftBearing(TQChar ch) const +{ + TQFont::Script script; + SCRIPT_FOR_CHAR( script, ch ); + + TQFontEngine *engine = d->engineForScript( script ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE + + if ( engine->type() == TQFontEngine::Box ) return 0; + + glyph_t glyphs[10]; + int nglyphs = 9; + engine->stringToCMap( &ch, 1, glyphs, 0, &nglyphs, FALSE ); + // ### can nglyphs != 1 happen at all? Not currently I think + glyph_metrics_t gi = engine->boundingBox( glyphs[0] ); + return gi.x; +} +#endif // !TQ_WS_WIN + +/*! \fn int TQFontMetrics::rightBearing(TQChar ch) const + Returns the right bearing of character \a ch in the font. + + The right bearing is the left-ward distance of the right-most + pixel of the character from the logical origin of a subsequent + character. This value is negative if the pixels of the character + extend to the right of the width() of the character. + + See width() for a graphical description of this metric. + + \sa leftBearing(), minRightBearing(), width() +*/ +#if !defined(TQ_WS_WIN) && !defined(TQ_WS_TQWS) +int TQFontMetrics::rightBearing(TQChar ch) const +{ + TQFont::Script script; + SCRIPT_FOR_CHAR( script, ch ); + + TQFontEngine *engine = d->engineForScript( script ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE + + if ( engine->type() == TQFontEngine::Box ) return 0; + + glyph_t glyphs[10]; + int nglyphs = 9; + engine->stringToCMap( &ch, 1, glyphs, 0, &nglyphs, FALSE ); + // ### can nglyphs != 1 happen at all? Not currently I think + glyph_metrics_t gi = engine->boundingBox( glyphs[0] ); + return gi.xoff - gi.x - gi.width; +} +#endif // !TQ_WS_WIN + + +#ifndef TQ_WS_TQWS +/*! + Returns the width in pixels of the first \a len characters of \a + str. If \a len is negative (the default), the entire string is + used. + + Note that this value is \e not equal to boundingRect().width(); + boundingRect() returns a rectangle describing the pixels this + string will cover whereas width() returns the distance to where + the next string should be drawn. + + \sa boundingRect() +*/ +int TQFontMetrics::width( const TQString &str, int len ) const +{ + if (len < 0) + len = str.length(); + if (len == 0) + return 0; + + int pos = 0; + int width = 0; +#ifndef TQ_WS_MAC + const TQChar *ch = str.tqunicode(); + + while (pos < len) { + unsigned short uc = ch->tqunicode(); + if (uc < TQFontEngineData::widthCacheSize && d->engineData && d->engineData->widthCache[uc]) + width += d->engineData->widthCache[uc]; + else { + TQFont::Script script; + SCRIPT_FOR_CHAR( script, *ch ); + + if (script >= TQFont::Arabic && script <= TQFont::Khmer) + break; + if ( ::category( *ch ) != TQChar::Mark_NonSpacing && !qIsZeroWidthChar(ch->tqunicode())) { + TQFontEngine *engine = d->engineForScript( script ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE + + glyph_t glyphs[8]; + advance_t advances[8]; + int nglyphs = 7; + engine->stringToCMap( ch, 1, glyphs, advances, &nglyphs, FALSE ); + + // ### can nglyphs != 1 happen at all? Not currently I think + if ( uc < TQFontEngineData::widthCacheSize && advances[0] > 0 && advances[0] < 0x100 ) + d->engineData->widthCache[ uc ] = advances[0]; + width += advances[0]; + } + } + ++pos; + ++ch; + } + if ( pos < len ) { +#endif + TQTextEngine tqlayout( str, d ); + tqlayout.itemize( TQTextEngine::WidthOnly ); + width += tqlayout.width( pos, len-pos ); +#ifndef TQ_WS_MAC + } +#endif + return width; +} +#endif + +/*! \fn int TQFontMetrics::width( TQChar ch ) const + + <img src="bearings.png" align=right> + + Returns the logical width of character \a ch in pixels. This is a + distance appropriate for drawing a subsequent character after \a + ch. + + Some of the metrics are described in the image to the right. The + central dark rectangles cover the logical width() of each + character. The outer pale rectangles cover the leftBearing() and + rightBearing() of each character. Notice that the bearings of "f" + in this particular font are both negative, while the bearings of + "o" are both positive. + + \warning This function will produce incorrect results for Arabic + characters or non spacing marks in the middle of a string, as the + glyph shaping and positioning of marks that happens when + processing strings cannot be taken into account. Use charWidth() + instead if you aren't looking for the width of isolated + characters. + + \sa boundingRect(), charWidth() +*/ + +/*! \fn int TQFontMetrics::width( char c ) const + + \overload + \obsolete + + Provided to aid porting from TQt 1.x. +*/ + +/*! \fn int TQFontMetrics::charWidth( const TQString &str, int pos ) const + Returns the width of the character at position \a pos in the + string \a str. + + The whole string is needed, as the glyph drawn may change + depending on the context (the letter before and after the current + one) for some languages (e.g. Arabic). + + This function also takes non spacing marks and ligatures into + account. +*/ + +#ifndef TQ_WS_TQWS +/*! + Returns the bounding rectangle of the first \a len characters of + \a str, which is the set of pixels the text would cover if drawn + at (0, 0). + + If \a len is negative (the default), the entire string is used. + + Note that the bounding rectangle may extend to the left of (0, 0), + e.g. for italicized fonts, and that the text output may cover \e + all pixels in the bounding rectangle. + + Newline characters are processed as normal characters, \e not as + linebreaks. + + Due to the different actual character heights, the height of the + bounding rectangle of e.g. "Yes" and "yes" may be different. + + \sa width(), TQPainter::boundingRect() +*/ +TQRect TQFontMetrics::boundingRect( const TQString &str, int len ) const +{ + if (len < 0) + len = str.length(); + if (len == 0) + return TQRect(); + + TQTextEngine tqlayout( str, d ); + tqlayout.itemize( TQTextEngine::NoBidi|TQTextEngine::SingleLine ); + glyph_metrics_t gm = tqlayout.boundingBox( 0, len ); + return TQRect( gm.x, gm.y, gm.width, gm.height ); +} +#endif + +/*! + Returns the rectangle that is covered by ink if the character + specified by \a ch were to be drawn at the origin of the coordinate + system. + + Note that the bounding rectangle may extend to the left of (0, 0), + e.g. for italicized fonts, and that the text output may cover \e + all pixels in the bounding rectangle. For a space character the rectangle + will usually be empty. + + Note that the rectangle usually extends both above and below the + base line. + + \warning The width of the returned rectangle is not the advance width + of the character. Use boundingRect(const TQString &) or width() instead. + + \sa width() +*/ +TQRect TQFontMetrics::boundingRect( TQChar ch ) const +{ + TQFont::Script script; + SCRIPT_FOR_CHAR( script, ch ); + + TQFontEngine *engine = d->engineForScript( script ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE + + glyph_t glyphs[10]; + int nglyphs = 9; + engine->stringToCMap( &ch, 1, glyphs, 0, &nglyphs, FALSE ); + glyph_metrics_t gi = engine->boundingBox( glyphs[0] ); + return TQRect( gi.x, gi.y, gi.width, gi.height ); +} + +/*! + \overload + + Returns the bounding rectangle of the first \a len characters of + \a str, which is the set of pixels the text would cover if drawn + at (0, 0). The drawing, and hence the bounding rectangle, is + constrained to the rectangle (\a x, \a y, \a w, \a h). + + If \a len is negative (which is the default), the entire string is + used. + + The \a flgs argument is the bitwise OR of the following flags: + \list + \i \c AlignAuto aligns to the left border for all languages except + Arabic and Hebrew where it aligns to the right. + \i \c AlignLeft aligns to the left border. + \i \c AlignRight aligns to the right border. + \i \c AlignJustify produces justified text. + \i \c AlignHCenter aligns horizontally centered. + \i \c AlignTop aligns to the top border. + \i \c AlignBottom aligns to the bottom border. + \i \c AlignVCenter aligns vertically centered + \i \c AlignCenter (== \c{AlignHCenter | AlignVCenter}) + \i \c SingleLine ignores newline characters in the text. + \i \c ExpandTabs expands tabs (see below) + \i \c ShowPrefix interprets "&x" as "<u>x</u>", i.e. underlined. + \i \c WordBreak breaks the text to fit the rectangle. + \endlist + + Horizontal tqalignment defaults to \c AlignAuto and vertical + tqalignment defaults to \c AlignTop. + + If several of the horizontal or several of the vertical tqalignment + flags are set, the resulting tqalignment is undefined. + + These flags are defined in \c tqnamespace.h. + + If \c ExpandTabs is set in \a flgs, then: if \a tabarray is + non-null, it specifies a 0-terminated sequence of pixel-positions + for tabs; otherwise if \a tabstops is non-zero, it is used as the + tab spacing (in pixels). + + Note that the bounding rectangle may extend to the left of (0, 0), + e.g. for italicized fonts, and that the text output may cover \e + all pixels in the bounding rectangle. + + Newline characters are processed as linebreaks. + + Despite the different actual character heights, the heights of the + bounding rectangles of "Yes" and "yes" are the same. + + The bounding rectangle given by this function is somewhat larger + than that calculated by the simpler boundingRect() function. This + function uses the \link minLeftBearing() maximum left \endlink and + \link minRightBearing() right \endlink font bearings as is + necessary for multi-line text to align correctly. Also, + fontHeight() and lineSpacing() are used to calculate the height, + rather than individual character heights. + + The \a intern argument should not be used. + + \sa width(), TQPainter::boundingRect(), TQt::AlignmentFlags +*/ +TQRect TQFontMetrics::boundingRect( int x, int y, int w, int h, int flgs, + const TQString& str, int len, int tabstops, + int *tabarray, TQTextParag **intern ) const +{ + if ( len < 0 ) + len = str.length(); + + int tabarraylen=0; + if (tabarray) + while (tabarray[tabarraylen]) + tabarraylen++; + + TQRect rb; + TQRect r(x, y, w, h); + qt_format_text( TQFont( d, d->painttqdevice ), r, flgs|TQt::DontPrint, str, len, &rb, + tabstops, tabarray, tabarraylen, intern, 0 ); + + return rb; +} + +/*! + Returns the size in pixels of the first \a len characters of \a + str. + + If \a len is negative (the default), the entire string is used. + + The \a flgs argument is the bitwise OR of the following flags: + \list + \i \c SingleLine ignores newline characters. + \i \c ExpandTabs expands tabs (see below) + \i \c ShowPrefix interprets "&x" as "<u>x</u>", i.e. underlined. + \i \c WordBreak breaks the text to fit the rectangle. + \endlist + + These flags are defined in \c tqnamespace.h. + + If \c ExpandTabs is set in \a flgs, then: if \a tabarray is + non-null, it specifies a 0-terminated sequence of pixel-positions + for tabs; otherwise if \a tabstops is non-zero, it is used as the + tab spacing (in pixels). + + Newline characters are processed as linebreaks. + + Despite the different actual character heights, the heights of the + bounding rectangles of "Yes" and "yes" are the same. + + The \a intern argument should not be used. + + \sa boundingRect() +*/ +TQSize TQFontMetrics::size( int flgs, const TQString &str, int len, int tabstops, + int *tabarray, TQTextParag **intern ) const +{ + return boundingRect(0,0,0,0,flgs,str,len,tabstops,tabarray,intern).size(); +} + +/*! + Returns the distance from the base line to where an underscore + should be drawn. + + \sa overlinePos(), strikeOutPos(), lineWidth() +*/ +int TQFontMetrics::underlinePos() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE + + return engine->underlinePosition(); +} + +/*! + Returns the distance from the base line to where an overline + should be drawn. + + \sa underlinePos(), strikeOutPos(), lineWidth() +*/ +int TQFontMetrics::overlinePos() const +{ + int pos = ascent() + 1; + return pos > 0 ? pos : 1; +} + +/*! + Returns the distance from the base line to where the strikeout + line should be drawn. + + \sa underlinePos(), overlinePos(), lineWidth() +*/ +int TQFontMetrics::strikeOutPos() const +{ + int pos = ascent() / 3; + return pos > 0 ? pos : 1; +} + +/*! + Returns the width of the underline and strikeout lines, adjusted + for the point size of the font. + + \sa underlinePos(), overlinePos(), strikeOutPos() +*/ +int TQFontMetrics::lineWidth() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE + + return engine->lineThickness(); +} + + + + +/***************************************************************************** + TQFontInfo member functions + *****************************************************************************/ + +/*! + \class TQFontInfo tqfontinfo.h + + \brief The TQFontInfo class provides general information about fonts. + + \ingroup graphics + \ingroup shared + + The TQFontInfo class provides the same access functions as TQFont, + e.g. family(), pointSize(), italic(), weight(), fixedPitch(), + tqstyleHint() etc. But whilst the TQFont access functions return the + values that were set, a TQFontInfo object returns the values that + apply to the font that will actually be used to draw the text. + + For example, when the program asks for a 25pt Courier font on a + machine that has a non-scalable 24pt Courier font, TQFont will + (normally) use the 24pt Courier for rendering. In this case, + TQFont::pointSize() returns 25 and TQFontInfo::pointSize() returns + 24. + + There are three ways to create a TQFontInfo object. + \list 1 + \i Calling the TQFontInfo constructor with a TQFont creates a font + info object for a screen-compatible font, i.e. the font cannot be + a printer font<sup>*</sup>. If the font is changed later, the font + info object is \e not updated. + + \i TQWidget::fontInfo() returns the font info for a widget's font. + This is equivalent to calling TQFontInfo(widget->font()). If the + widget's font is changed later, the font info object is \e not + updated. + + \i TQPainter::fontInfo() returns the font info for a painter's + current font. If the painter's font is changed later, the font + info object is \e not updated. + \endlist + + <sup>*</sup> If you use a printer font the values returned may be + inaccurate. Printer fonts are not always accessible so the nearest + screen font is used if a printer font is supplied. + + \sa TQFont TQFontMetrics TQFontDatabase +*/ + +/*! + Constructs a font info object for \a font. + + The font must be screen-compatible, i.e. a font you use when + drawing text in \link TQWidget widgets\endlink or \link TQPixmap + pixmaps\endlink, not TQPicture or TQPrinter. + + The font info object holds the information for the font that is + passed in the constructor at the time it is created, and is not + updated if the font's attributes are changed later. + + Use TQPainter::fontInfo() to get the font info when painting. + This will give correct results also when painting on paint tqdevice + that is not screen-compatible. +*/ +TQFontInfo::TQFontInfo( const TQFont &font ) + : d( font.d ), painter( 0 ), fscript( TQFont::NoScript ) +{ + d->ref(); +} + +/*! + Constructs a font info object for \a font using the specified \a + script. +*/ +TQFontInfo::TQFontInfo( const TQFont &font, TQFont::Script script ) + : d( font.d ), painter( 0 ), fscript( script ) +{ + d->ref(); +} + +/*! \internal + + Constructs a font info object from the painter's font \a p. +*/ +TQFontInfo::TQFontInfo( const TQPainter *p ) + : painter( 0 ), fscript( TQFont::NoScript ) +{ + TQPainter *painter = (TQPainter *) p; + +#if defined(CHECK_STATE) + if ( !painter->isActive() ) + qWarning( "TQFontInfo: Get font info between TQPainter::begin() " + "and TQPainter::end()" ); +#endif + + painter->setf( TQPainter::FontInf ); + if ( painter->testf(TQPainter::DirtyFont) ) + painter->updateFont(); + if ( painter->pfont ) + d = painter->pfont->d; + else + d = painter->cfont.d; + d->ref(); +} + +/*! + Constructs a copy of \a fi. +*/ +TQFontInfo::TQFontInfo( const TQFontInfo &fi ) + : d(fi.d), painter(0), fscript( fi.fscript ) +{ + d->ref(); +} + +/*! + Destroys the font info object. +*/ +TQFontInfo::~TQFontInfo() +{ + if ( d->deref() ) + delete d; +} + +/*! + Assigns the font info in \a fi. +*/ +TQFontInfo &TQFontInfo::operator=( const TQFontInfo &fi ) +{ + if ( d != fi.d ) { + if ( d->deref() ) + delete d; + d = fi.d; + d->ref(); + } + painter = 0; + fscript = fi.fscript; + return *this; +} + +/*! + Returns the family name of the matched window system font. + + \sa TQFont::family() +*/ +TQString TQFontInfo::family() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE + return engine->fontDef.family; +} + +/*! + Returns the point size of the matched window system font. + + \sa TQFont::pointSize() +*/ +int TQFontInfo::pointSize() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE + return ( engine->fontDef.pointSize + 5 ) / 10; +} + +/*! + Returns the pixel size of the matched window system font. + + \sa TQFont::pointSize() +*/ +int TQFontInfo::pixelSize() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE + return engine->fontDef.pixelSize; +} + +/*! + Returns the italic value of the matched window system font. + + \sa TQFont::italic() +*/ +bool TQFontInfo::italic() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE + return engine->fontDef.italic; +} + +/*! + Returns the weight of the matched window system font. + + \sa TQFont::weight(), bold() +*/ +int TQFontInfo::weight() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE + return engine->fontDef.weight; + +} + +/*! + \fn bool TQFontInfo::bold() const + + Returns TRUE if weight() would return a value greater than \c + TQFont::Normal; otherwise returns FALSE. + + \sa weight(), TQFont::bold() +*/ + +/*! + Returns the underline value of the matched window system font. + + \sa TQFont::underline() + + \internal + + Here we read the underline flag directly from the TQFont. + This is OK for X11 and for Windows because we always get what we want. +*/ +bool TQFontInfo::underline() const +{ + return d->underline; +} + +/*! + Returns the overline value of the matched window system font. + + \sa TQFont::overline() + + \internal + + Here we read the overline flag directly from the TQFont. + This is OK for X11 and for Windows because we always get what we want. +*/ +bool TQFontInfo::overline() const +{ + return d->overline; +} + +/*! + Returns the strikeout value of the matched window system font. + + \sa TQFont::strikeOut() + + \internal Here we read the strikeOut flag directly from the TQFont. + This is OK for X11 and for Windows because we always get what we want. +*/ +bool TQFontInfo::strikeOut() const +{ + return d->strikeOut; +} + +/*! + Returns the fixed pitch value of the matched window system font. + + \sa TQFont::fixedPitch() +*/ +bool TQFontInfo::fixedPitch() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE +#ifdef TQ_OS_MAC + if (!engine->fontDef.fixedPitchComputed) { + TQChar ch[2] = { TQChar('i'), TQChar('m') }; + glyph_t g[2]; + int l = 2; + advance_t a[2]; + engine->stringToCMap(ch, 2, g, a, &l, FALSE); + engine->fontDef.fixedPitch = a[0] == a[1]; + engine->fontDef.fixedPitchComputed = TRUE; + } +#endif + return engine->fontDef.fixedPitch; +} + +/*! + Returns the style of the matched window system font. + + Currently only returns the style hint set in TQFont. + + \sa TQFont::tqstyleHint() TQFont::StyleHint +*/ +TQFont::StyleHint TQFontInfo::tqstyleHint() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE + return (TQFont::StyleHint) engine->fontDef.tqstyleHint; +} + +/*! + Returns TRUE if the font is a raw mode font; otherwise returns + FALSE. + + If it is a raw mode font, all other functions in TQFontInfo will + return the same values set in the TQFont, regardless of the font + actually used. + + \sa TQFont::rawMode() +*/ +bool TQFontInfo::rawMode() const +{ + return d->rawMode; +} + +/*! + Returns TRUE if the matched window system font is exactly the same + as the one specified by the font; otherwise returns FALSE. + + \sa TQFont::exactMatch() +*/ +bool TQFontInfo::exactMatch() const +{ + TQFontEngine *engine = d->engineForScript( (TQFont::Script) fscript ); +#ifdef TQT_CHECK_STATE + TQ_ASSERT( engine != 0 ); +#endif // TQT_CHECK_STATE + + return d->rawMode ? engine->type() != TQFontEngine::Box + : d->request == engine->fontDef; +} + + + + +// ********************************************************************** +// TQFontCache +// ********************************************************************** + +#ifdef TQFONTCACHE_DEBUG +// fast timeouts for debugging +static const int fast_timeout = 1000; // 1s +static const int slow_timeout = 5000; // 5s +#else +static const int fast_timeout = 10000; // 10s +static const int slow_timeout = 300000; // 5m +#endif // TQFONTCACHE_DEBUG + +TQFontCache *TQFontCache::instance = 0; +const uint TQFontCache::min_cost = 4*1024; // 4mb + +static TQSingleCleanupHandler<TQFontCache> cleanup_fontcache; + + +TQFontCache::TQFontCache() + : TQObject( tqApp, "global font cache" ), total_cost( 0 ), max_cost( min_cost ), + current_timestamp( 0 ), fast( FALSE ), timer_id( -1 ) +{ + TQ_ASSERT( instance == 0 ); + instance = this; + cleanup_fontcache.set( &instance ); +} + +TQFontCache::~TQFontCache() +{ + { + EngineDataCache::Iterator it = engineDataCache.begin(), + end = engineDataCache.end(); + while ( it != end ) { + if ( it.data()->count == 0 ) + delete it.data(); + else + FC_DEBUG("TQFontCache::~TQFontCache: engineData %p still has refcount %d", + it.data(), it.data()->count); + ++it; + } + } + EngineCache::Iterator it = engineCache.begin(), + end = engineCache.end(); + while ( it != end ) { + if ( it.data().data->count == 0 ) { + if ( --it.data().data->cache_count == 0 ) { + FC_DEBUG("TQFontCache::~TQFontCache: deleting engine %p key=(%d / %d %d %d %d %d)", + it.data().data, it.key().script, it.key().def.pointSize, + it.key().def.pixelSize, it.key().def.weight, it.key().def.italic, + it.key().def.fixedPitch); + + delete it.data().data; + } + } else { + FC_DEBUG("TQFontCache::~TQFontCache: engine = %p still has refcount %d", + it.data().data, it.data().data->count); + } + ++it; + } + instance = 0; +} + +#ifdef TQ_WS_TQWS +void TQFontCache::clear() +{ + { + EngineDataCache::Iterator it = engineDataCache.begin(), + end = engineDataCache.end(); + while ( it != end ) { + TQFontEngineData *data = it.data(); + if ( data->engine ) + data->engine->deref(); + data->engine = 0; + ++it; + } + } + + EngineCache::Iterator it = engineCache.begin(), + end = engineCache.end(); + while ( it != end ) { + if ( it.data().data->count == 0 ) { + if ( --it.data().data->cache_count == 0 ) { + FC_DEBUG("TQFontCache::~TQFontCache: deleting engine %p key=(%d / %d %d %d %d %d)", + it.data().data, it.key().script, it.key().def.pointSize, + it.key().def.pixelSize, it.key().def.weight, it.key().def.italic, + it.key().def.fixedPitch); + delete it.data().data; + } + } else { + FC_DEBUG("TQFontCache::~TQFontCache: engine = %p still has refcount %d", + it.data().data, it.data().data->count); + } + ++it; + } +} +#endif + +TQFontEngineData *TQFontCache::tqfindEngineData( const Key &key ) const +{ + EngineDataCache::ConstIterator it = engineDataCache.tqfind( key ), + end = engineDataCache.end(); + if ( it == end ) return 0; + + // found + return it.data(); +} + +void TQFontCache::insertEngineData( const Key &key, TQFontEngineData *engineData ) +{ + FC_DEBUG( "TQFontCache: inserting new engine data %p", engineData ); + + engineDataCache.insert( key, engineData ); + increaseCost( sizeof( TQFontEngineData ) ); +} + +TQFontEngine *TQFontCache::tqfindEngine( const Key &key ) +{ + EngineCache::Iterator it = engineCache.tqfind( key ), + end = engineCache.end(); + if ( it == end ) return 0; + + // found... update the hitcount and timestamp + it.data().hits++; + it.data().timestamp = ++current_timestamp; + + FC_DEBUG( "TQFontCache: found font engine\n" + " %p: timestamp %4u hits %3u ref %2d/%2d, type '%s'", + it.data().data, it.data().timestamp, it.data().hits, + it.data().data->count, it.data().data->cache_count, + it.data().data->name() ); + + return it.data().data; +} + +void TQFontCache::insertEngine( const Key &key, TQFontEngine *engine ) +{ + FC_DEBUG( "TQFontCache: inserting new engine %p", engine ); + + Engine data( engine ); + data.timestamp = ++current_timestamp; + + engineCache.insert( key, data ); + + // only increase the cost if this is the first time we insert the engine + if ( engine->cache_count == 0 ) + increaseCost( engine->cache_cost ); + + ++engine->cache_count; +} + +void TQFontCache::increaseCost( uint cost ) +{ + cost = ( cost + 512 ) / 1024; // store cost in kb + cost = cost > 0 ? cost : 1; + total_cost += cost; + + FC_DEBUG( " COST: increased %u kb, total_cost %u kb, max_cost %u kb", + cost, total_cost, max_cost ); + + if ( total_cost > max_cost) { + max_cost = total_cost; + + if ( timer_id == -1 || ! fast ) { + FC_DEBUG( " TIMER: starting fast timer (%d ms)", fast_timeout ); + + if (timer_id != -1) killTimer( timer_id ); + timer_id = startTimer( fast_timeout ); + fast = TRUE; + } + } +} + +void TQFontCache::decreaseCost( uint cost ) +{ + cost = ( cost + 512 ) / 1024; // cost is stored in kb + cost = cost > 0 ? cost : 1; + TQ_ASSERT( cost <= total_cost ); + total_cost -= cost; + + FC_DEBUG( " COST: decreased %u kb, total_cost %u kb, max_cost %u kb", + cost, total_cost, max_cost ); +} + +#if defined(TQ_WS_WIN ) || defined (TQ_WS_TQWS) +void TQFontCache::cleanupPrinterFonts() +{ + FC_DEBUG( "TQFontCache::cleanupPrinterFonts" ); + + { + FC_DEBUG( " CLEAN engine data:" ); + + // clean out all unused engine datas + EngineDataCache::Iterator it = engineDataCache.begin(), + end = engineDataCache.end(); + while ( it != end ) { + if ( it.key().screen == 0 ) { + ++it; + continue; + } + + if( it.data()->count > 0 ) { +#ifdef TQ_WS_WIN + for(int i = 0; i < TQFont::LastPrivateScript; ++i) { + if( it.data()->engines[i] ) { + it.data()->engines[i]->deref(); + it.data()->engines[i] = 0; + } + } +#else + if ( it.data()->engine ) { + it.data()->engine->deref(); + it.data()->engine = 0; + } +#endif + ++it; + } else { + + EngineDataCache::Iterator rem = it++; + + decreaseCost( sizeof( TQFontEngineData ) ); + + FC_DEBUG( " %p", rem.data() ); + + delete rem.data(); + engineDataCache.remove( rem ); + } + } + } + + EngineCache::Iterator it = engineCache.begin(), + end = engineCache.end(); + while( it != end ) { + if ( it.data().data->count > 0 || it.key().screen == 0) { + ++it; + continue; + } + + FC_DEBUG( " %p: timestamp %4u hits %2u ref %2d/%2d, type '%s'", + it.data().data, it.data().timestamp, it.data().hits, + it.data().data->count, it.data().data->cache_count, + it.data().data->name() ); + + if ( --it.data().data->cache_count == 0 ) { + FC_DEBUG( " DELETE: last occurence in cache" ); + + decreaseCost( it.data().data->cache_cost ); + delete it.data().data; + } + + engineCache.remove( it++ ); + } +} +#endif + +void TQFontCache::timerEvent( TQTimerEvent * ) +{ + FC_DEBUG( "TQFontCache::timerEvent: performing cache maintenance (timestamp %u)", + current_timestamp ); + + if ( total_cost <= max_cost && max_cost <= min_cost ) { + FC_DEBUG( " cache redused sufficiently, stopping timer" ); + + killTimer( timer_id ); + timer_id = -1; + fast = FALSE; + + return; + } + + // go through the cache and count up everything in use + uint in_use_cost = 0; + + { + FC_DEBUG( " SWEEP engine data:" ); + + // make sure the cost of each engine data is at least 1kb + const uint engine_data_cost = + sizeof( TQFontEngineData ) > 1024 ? sizeof( TQFontEngineData ) : 1024; + + EngineDataCache::ConstIterator it = engineDataCache.begin(), + end = engineDataCache.end(); + for ( ; it != end; ++it ) { +#ifdef TQFONTCACHE_DEBUG + FC_DEBUG( " %p: ref %2d", it.data(), it.data()->count ); + +# if defined(TQ_WS_X11) || defined(TQ_WS_WIN) + // print out all engines + for ( int i = 0; i < TQFont::LastPrivateScript; ++i ) { + if ( ! it.data()->engines[i] ) continue; + FC_DEBUG( " tqcontains %p", it.data()->engines[i] ); + } +# endif // TQ_WS_X11 || TQ_WS_WIN +#endif // TQFONTCACHE_DEBUG + + if ( it.data()->count > 0 ) + in_use_cost += engine_data_cost; + } + } + + { + FC_DEBUG( " SWEEP engine:" ); + + EngineCache::ConstIterator it = engineCache.begin(), + end = engineCache.end(); + for ( ; it != end; ++it ) { + FC_DEBUG( " %p: timestamp %4u hits %2u ref %2d/%2d, cost %u bytes", + it.data().data, it.data().timestamp, it.data().hits, + it.data().data->count, it.data().data->cache_count, + it.data().data->cache_cost ); + + if ( it.data().data->count > 0 ) + in_use_cost += it.data().data->cache_cost / it.data().data->cache_count; + } + + // attempt to make up for rounding errors + in_use_cost += (uint)engineCache.count(); + } + + in_use_cost = ( in_use_cost + 512 ) / 1024; // cost is stored in kb + + /* + calculate the new maximum cost for the cache + + NOTE: in_use_cost is *not* correct due to rounding errors in the + above algorithm. instead of worrying about getting the + calculation correct, we are more interested in speed, and use + in_use_cost as a floor for new_max_cost + */ + uint new_max_cost = TQMAX( TQMAX( max_cost / 2, in_use_cost ), min_cost ); + + FC_DEBUG( " after sweep, in use %u kb, total %u kb, max %u kb, new max %u kb", + in_use_cost, total_cost, max_cost, new_max_cost ); + + if ( new_max_cost == max_cost ) { + if ( fast ) { + FC_DEBUG( " cannot shrink cache, slowing timer" ); + + killTimer( timer_id ); + timer_id = startTimer( slow_timeout ); + fast = FALSE; + } + + return; + } else if ( ! fast ) { + FC_DEBUG( " dropping into passing gear" ); + + killTimer( timer_id ); + timer_id = startTimer( fast_timeout ); + fast = TRUE; + } + + max_cost = new_max_cost; + + { + FC_DEBUG( " CLEAN engine data:" ); + + // clean out all unused engine datas + EngineDataCache::Iterator it = engineDataCache.begin(), + end = engineDataCache.end(); + while ( it != end ) { + if ( it.data()->count > 0 ) { + ++it; + continue; + } + + EngineDataCache::Iterator rem = it++; + + decreaseCost( sizeof( TQFontEngineData ) ); + + FC_DEBUG( " %p", rem.data() ); + + delete rem.data(); + engineDataCache.remove( rem ); + } + } + + // clean out the engine cache just enough to get below our new max cost + uint current_cost; + do { + current_cost = total_cost; + + EngineCache::Iterator it = engineCache.begin(), + end = engineCache.end(); + // determine the oldest and least popular of the unused engines + uint oldest = ~0; + uint least_popular = ~0; + + for ( ; it != end; ++it ) { + if ( it.data().data->count > 0 ) continue; + + if ( it.data().timestamp < oldest && + it.data().hits <= least_popular ) { + oldest = it.data().timestamp; + least_popular = it.data().hits; + } + } + + FC_DEBUG( " oldest %u least popular %u", oldest, least_popular ); + + for ( it = engineCache.begin(); it != end; ++it ) { + if ( it.data().data->count == 0 && + it.data().timestamp == oldest && + it.data().hits == least_popular) + break; + } + + if ( it != end ) { + FC_DEBUG( " %p: timestamp %4u hits %2u ref %2d/%2d, type '%s'", + it.data().data, it.data().timestamp, it.data().hits, + it.data().data->count, it.data().data->cache_count, + it.data().data->name() ); + + if ( --it.data().data->cache_count == 0 ) { + FC_DEBUG( " DELETE: last occurence in cache" ); + + decreaseCost( it.data().data->cache_cost ); + delete it.data().data; + } else { + /* + this particular font engine is in the cache multiple + times... set current_cost to zero, so that we can + keep looping to get rid of all occurences + */ + current_cost = 0; + } + + engineCache.remove( it ); + } + } while ( current_cost != total_cost && total_cost > max_cost ); +} + +#endif // USE_QT4
\ No newline at end of file |