paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 16:20:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: use TSize instead of tagSize, bug #29012

Browse Source 
git-svn-id: trunk@50374 -
This commit is contained in:
mattias 2015-11-17 21:45:55 +00:00
parent 9c140c4deb
commit f0fa6bf014
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/canvas.inc
View File

@ -460,7 +460,7 @@ end;
procedure TCanvas.DoGetTextSize(Text: string; var w, h: integer); procedure TCanvas.DoGetTextSize(Text: string; var w, h: integer);
var var
TxtSize: tagSIZE; TxtSize: TSize;
begin begin
TxtSize:=TextExtent(Text); TxtSize:=TextExtent(Text);
w:=TxtSize.cx; w:=TxtSize.cx;