luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[GB.REPORT]

Browse source 
* BUG: Use the current Painting Resolution to calculate the size of a text


git-svn-id: svn://localhost/gambas/trunk@4378 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Fabien Bodard 2011-12-31 00:21:24 +00:00
parent a84527352f
commit 28b37c39eb
2 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
comp/src/gb.report/.src/ReportLabel.class
View file

@ -76,7 +76,7 @@ Public Sub _GetSizeHints(AvailableW As Float, AvailableH As Float, TotalWidth As
Endif
If $fAngle = 0.0 Then
hExt = Paint.TextExtents(sText)
fTextWidth = Me.Padding._Left + Me.Border._Left + MTools.PixelsToUnits(hExt.Width) + Me.Padding._Right + Me.Border._Right
fTextWidth = Me.Padding._Left + Me.Border._Left + MTools.PixelsToUnitspaint(hExt.Width) + Me.Padding._Right + Me.Border._Right
fTextHeight = MTools.PixelsToUnitsPaint(Paint.Font.Height) + Me.Padding._Top + Me.Padding._Bottom + Me.Border._Top + Me.Border._Bottom
'Debug Paint.Font.Height * Paint.ResolutionX / Desktop.Resolution

1
comp/src/gb.report/.src/Tests/Report8.report
View file

@ -55,7 +55,6 @@
#MoveScaled(5,5,47,17)
Font = Font["+1"]
Padding = ReportPadding["Top:1mm;Bottom:1mm;Left:1mm;Right:1mm"]
Expand = True
AutoResize = True
Background = ReportBrush["#DFDF6F"]
}