paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 18:01:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpcanvas: Adds TextExtent

Browse Source 
git-svn-id: trunk@19767 -
This commit is contained in:
sekelsenmat 2011-12-07 07:50:59 +00:00
parent cca5ff0807
commit 6e481b3a73
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-image/src/fpcanvas.inc
View File

@ -331,6 +331,11 @@ begin
Result := TextWidth(Text); Result := TextWidth(Text);
end; end;
function TFPCustomCanvas.TextExtent(const Text: string): TSize;
begin
GetTextSize(Text, Result.cx, Result.cy);
end;
function TFPCustomCanvas.TextHeight(const Text: string): Integer; function TFPCustomCanvas.TextHeight(const Text: string): Integer;
begin begin
if Font is TFPCustomDrawFont then if Font is TFPCustomDrawFont then

3
packages/fcl-image/src/fpcanvas.pp
View File

@ -17,7 +17,7 @@ unit FPCanvas;
interface interface
uses Math, sysutils, classes, FPImage; uses Math, sysutils, classes, FPImage, Types;
const const
PatternBitCount = sizeof(longword) * 8; PatternBitCount = sizeof(longword) * 8;
@ -296,6 +296,7 @@ type
procedure GetTextSize (text:string; var w,h:integer); procedure GetTextSize (text:string; var w,h:integer);
function GetTextHeight (text:string) : integer; function GetTextHeight (text:string) : integer;
function GetTextWidth (text:string) : integer; function GetTextWidth (text:string) : integer;
function TextExtent(const Text: string): TSize; virtual;
function TextHeight(const Text: string): Integer; virtual; function TextHeight(const Text: string): Integer; virtual;
function TextWidth(const Text: string): Integer; virtual; function TextWidth(const Text: string): Integer; virtual;
// using pen and brush // using pen and brush