paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:20:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

CairoCanvas, implements text rotation, from Julio Jiménez Borreguero

Browse Source 
git-svn-id: trunk@40620 -
This commit is contained in:
jesus 2013-03-22 18:28:53 +00:00
parent 728912bdcb
commit 6ce55a8aea
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/cairocanvas/cairocanvas.pas
View File

@ -7,7 +7,7 @@ unit CairoCanvas;
interface
uses
Types, Graphics, GraphMath, LCLType, Classes, SysUtils, Printers, Cairo
Types, Graphics, GraphMath, LCLType, Classes, SysUtils, Printers, Cairo, math
{$ifdef pangocairo}
,Pango, PangoCairo, GLib2
{$endif}
@ -537,14 +537,8 @@ end;
//Toy interface
procedure TCairoPrinterCanvas.SelectFont;
var
h: Integer;
begin
if Font.Size > 0 then
h := Font.Size
else
h := Font.Height;
SelectFontEx(Font.Style, Font.Name, h);
SelectFontEx(Font.Style, Font.Name, abs(Font.Size));
SetSourceColor(Font.Color);
end;
@ -570,11 +564,23 @@ var
e: cairo_font_extents_t;
begin
Changing;
RequiredState([csHandleValid, csFontValid, csBrushValid]);
SelectFont;
cairo_font_extents(cr, @e);
cairo_move_to(cr, SX(X), SY(Y)+e.ascent);
cairo_show_text(cr, PChar(Text)); //Reference point is on the base line
if Font.Orientation = 0 then
begin
cairo_move_to(cr, SX(X), SY(Y)+e.ascent);
cairo_show_text(cr, PChar(Text)); //Reference point is on the base line
end
else
begin
cairo_save(cr);
cairo_move_to(cr, SX(X)+e.ascent, SY(Y));
cairo_rotate(cr, -gradtorad(Font.Orientation));
cairo_show_text(cr, PChar(Text));
cairo_restore(cr);
end;
Changed;
end;