paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 21:29:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: dbgs(TRect) using l t r b

Browse Source 
git-svn-id: trunk@26749 -
This commit is contained in:
mattias 2010-07-20 11:29:16 +00:00
parent f151a8c563
commit 1eca5fd45a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lclproc.pas
View File

@ -2352,8 +2352,8 @@ end;
function DbgS(const r: TRect): string;
begin
Result:='x1='+IntToStr(r.Left)+',y1='+IntToStr(r.Top)
+',x2='+IntToStr(r.Right)+',y2='+IntToStr(r.Bottom);
Result:='l='+IntToStr(r.Left)+',t='+IntToStr(r.Top)
+',r='+IntToStr(r.Right)+',b='+IntToStr(r.Bottom);
end;
function DbgS(const p: TPoint): string;