diff options
Diffstat (limited to 'tqtinterface/qt4/src/kernel/tqfont.cpp')
| -rw-r--r-- | tqtinterface/qt4/src/kernel/tqfont.cpp | 3376 |
1 files changed, 0 insertions, 3376 deletions
diff --git a/tqtinterface/qt4/src/kernel/tqfont.cpp b/tqtinterface/qt4/src/kernel/tqfont.cpp deleted file mode 100644 index e054114..0000000 --- a/tqtinterface/qt4/src/kernel/tqfont.cpp +++ /dev/null @@ -1,3376 +0,0 @@ -/**************************************************************************** -** -** 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 ), - mask( 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 ), mask( other.mask ) -{ -} - -TQFontPrivate::~TQFontPrivate() -{ - if ( engineData ) - engineData->deref(); - engineData = 0; -} - -void TQFontPrivate::resolve( const TQFontPrivate *other ) -{ -#ifdef TQT_CHECK_STATE - TQ_ASSERT( other != 0 ); -#endif - - if ( ( mask & Complete ) == Complete ) return; - - // assign the unset-bits with the set-bits of the other font def - if ( ! ( mask & Family ) ) - request.family = other->request.family; - - if ( ! ( mask & Size ) ) { - request.pointSize = other->request.pointSize; - request.pixelSize = other->request.pixelSize; - } - - if ( ! ( mask & StyleHint ) ) - request.tqstyleHint = other->request.tqstyleHint; - - if ( ! ( mask & StyleStrategy ) ) - request.styleStrategy = other->request.styleStrategy; - - if ( ! ( mask & Weight ) ) - request.weight = other->request.weight; - - if ( ! ( mask & Italic ) ) - request.italic = other->request.italic; - - if ( ! ( mask & FixedPitch ) ) - request.fixedPitch = other->request.fixedPitch; - - if ( ! ( mask & Stretch ) ) - request.stretch = other->request.stretch; - - if ( ! ( mask & Underline ) ) - underline = other->underline; - - if ( ! ( mask & Overline ) ) - overline = other->overline; - - if ( ! ( mask & 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 find 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 contains - 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 replacement - family. - \i Each replacement 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 find 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 contains 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 contains 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 contains 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 mask to zero to indicate that *nothing* has been - explicitly set by the programmer. - */ - const TQFont appfont = TQApplication::font(); - if ( old_d == appfont.d ) - d->mask = 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->mask = TQFontPrivate::Family; - - if (pointSize <= 0) { - pointSize = 12; - } else { - d->mask |= TQFontPrivate::Size; - } - - if (weight < 0) { - weight = Normal; - } else { - d->mask |= 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->mask |= 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->mask |= 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->mask |= 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->mask |= 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->mask |= 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 contains 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->mask |= 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->mask |= 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->mask |= 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->mask |= 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->mask |= 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 find 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 - find 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->mask & ( TQFontPrivate::StyleHint | TQFontPrivate::StyleStrategy ) ) && - (StyleHint) d->request.tqstyleHint == hint && - (StyleStrategy) d->request.styleStrategy == strategy ) - return; - - d->request.tqstyleHint = hint; - d->request.styleStrategy = strategy; - d->mask |= TQFontPrivate::StyleHint; - d->mask |= 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->mask & TQFontPrivate::StyleStrategy ) && - s == (StyleStrategy)d->request.styleStrategy ) - return; - - d->request.styleStrategy = s; - d->mask |= 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->mask & TQFontPrivate::Stretch ) && - d->request.stretch == (uint)factor ) - return; - - d->request.stretch = (uint)factor; - d->mask |= 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->mask == other.d->mask ) - return *this; - - TQFont font( *this ); - font.detach(); - - /* - if this font is a copy of the application default font, set the - fontdef mask to zero to indicate that *nothing* has been - explicitly set by the programmer. - */ - const TQFont appfont = TQApplication::font(); - if ( d == appfont.d ) - font.d->mask = 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->find(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->find(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->find(familyName); - if (! list) { - list = new TQStringList; - fontSubst->insert(familyName, list); - } - - if (! list->contains(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->find(familyName); - if (! list) { - list = new TQStringList; - fontSubst->insert(familyName, list); - } - - TQStringList::ConstIterator it = substituteNames.begin(); - while (it != substituteNames.end()) { - if (! list->contains(*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.find( ',' ); - while ( to > 0 && count < 11 ) { - l[count] = descrip.mid( from, to-from ); - count++; - from = to+1; - to = descrip.find( ',', 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->mask = 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 find 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::findEngineData( const Key &key ) const -{ - EngineDataCache::ConstIterator it = engineDataCache.find( 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::findEngine( const Key &key ) -{ - EngineCache::Iterator it = engineCache.find( 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( " contains %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 |