Debenu Quick PDF Library - PDF SDK Community Forum : TQuickPDF0813.DrawText

Debenu Quick PDF Library - PDF SDK Community Forum : TQuickPDF0813.DrawText http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 26 May 2026 16:41:35 +0000 Tue, 20 Dec 2011 14:31:59 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=2074 <![CDATA[Debenu Quick PDF Library - PDF SDK Community Forum]]> http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ <![CDATA[TQuickPDF0813.DrawText : Hi Micha,Here an overview on the...]]> http://www.quickpdf.org/forum/tquickpdf0813drawtext_topic2074_post8841.html#8841 Author: edvoigt
Subject: 2074
Posted: 20 Dec 11 at 2:31PM

Hi Micha,

Here an overview on the properties around Textheight:

To have text of different size readable in a line, all is drawn on the baseline. It's so in Word, in PDF and it makes sense. But inside a technical drawing, you may want a spezial alignment and so you need some calculations around size. You may get all information by GetTextAscent, GetTextDescent, GetTextBound(...), GetTextHeight, GetTextWidth. But keep in mind, that SetTextSize works ever with points.

Here a codesnippet for the above painting in D7:

var
QP: TQuickPDF;
s: string;
x, y,
tf, ta, td, tt, th, ts, tw: double;
begin
QP := TQuickPDF.Create;
QP.UnlockKey(...
QP.SetMeasurementUnits(1);      // millimeters
QP.SetPageDimensions(210, 297); // DIN A4
QP.SetOrigin(0);                // bottomleft
x := 20; y := 20;
s := 'Ä happy ÉgÊ¦Ç';           // to have real things on all lines

QP.AddStandardFont(11);         // as you like
tf := 24*72/25.4;               // 24 mm as points
QP.SetTextSize(tf);
ta := QP.GetTextAscent;         // get all we can need
td := QP.GetTextDescent;
tt := QP.GetTextBound(2);
th := QP.GetTextHeight;
ts := QP.GetTextSize*25.4/72;   // points to mm
tw := QP.GetTextWidth(s);
QP.DrawText(x, y, s);

tf := 4*72/25.4;                // 4 mm as points
QP.SetTextSize(tf);

QP.SetLineWidth(0.1);
QP.SetLineColor(1, 0, 0); // Baseline
QP.DrawLine(x-10, y, x+tw+5, y); QP.DrawText(x+tw+6, y, 'Baseline');
QP.SetLineColor(0, 1, 0);      // Ascent
QP.DrawLine(x-10, y+ta, x+tw+5, y+ta); QP.DrawText(x+tw+6, y+ta, 'Ascent');
QP.SetLineColor(0, 0, 1);      // Descent = abs(Bottom)
QP.DrawLine(x-10, y+td, x+tw+5, y+td); QP.DrawText(x+tw+6, y+td, 'Descent');
QP.SetLineColor(0, 0.5, 0.5); // Top
QP.DrawLine(x-10, y+tt, x+tw+5, y+tt); QP.DrawText(x+tw+6, y+tt, 'Top');

QP.AddStandardFont(4);
QP.SetTextSize(tf);
QP.DrawText(x, y-10, Format('Ascent=%.2f Descent=%.2f Top=%.2f Textsize=%.2f Delta=%.2f',[ta, td, tt, ts, tt-ta]));

Cheers,

Werner

Edited by edvoigt - 05 Nov 13 at 11:35AM]]> Tue, 20 Dec 2011 14:31:59 +0000 http://www.quickpdf.org/forum/tquickpdf0813drawtext_topic2074_post8841.html#8841 <![CDATA[TQuickPDF0813.DrawText : Text is a PDF file is drawn on...]]> http://www.quickpdf.org/forum/tquickpdf0813drawtext_topic2074_post8834.html#8834 Author: AndrewC
Subject: 2074
Posted: 19 Dec 11 at 10:04PM

Text is a PDF file is drawn on the baseline. If you want to draw text from the top of the font cell or the top of the characters then you would use either GetTextHeight or GetTextAscent

QP.SetOrigin(1);

QP.DrawLine(30, 30, 400, 30);

QP.DrawText(30, 30 - QP.GetTextHeight(), "Hello World using text height");

QP.DrawLine(30, 60, 400, 60);

QP.DrawText(30, 60 - QP.GetTextAscent(), "Hello World using ascent");

]]> Mon, 19 Dec 2011 22:04:14 +0000 http://www.quickpdf.org/forum/tquickpdf0813drawtext_topic2074_post8834.html#8834 <![CDATA[TQuickPDF0813.DrawText : Hi Micha!Perhaps it's better...]]> http://www.quickpdf.org/forum/tquickpdf0813drawtext_topic2074_post8831.html#8831 Author: Ingo
Subject: 2074
Posted: 18 Dec 11 at 8:15PM

Hi Micha!

Perhaps it's better to post the used code-snippet.
If you're asking about orientation you should use SetOrigin.
Please read here:
http://www.quickpdflibrary.com/help/quickpdf/SetOrigin.php

Cheers and welcome here,
Ingo

]]> Sun, 18 Dec 2011 20:15:41 +0000 http://www.quickpdf.org/forum/tquickpdf0813drawtext_topic2074_post8831.html#8831 <![CDATA[TQuickPDF0813.DrawText : hello,im using delphi 7whenusing...]]> http://www.quickpdf.org/forum/tquickpdf0813drawtext_topic2074_post8830.html#8830 Author: micha
Subject: 2074
Posted: 18 Dec 11 at 3:48PM

hello,

im using delphi 7

when using the DrawText function the text is drawn over the y position

does anyone know how to draw the text under the y position ?

thanks micha

]]> Sun, 18 Dec 2011 15:48:46 +0000 http://www.quickpdf.org/forum/tquickpdf0813drawtext_topic2074_post8830.html#8830