diff --git a/comp/src/gb.report/.info b/comp/src/gb.report/.info
index 126f6588f..dede0623b 100644
--- a/comp/src/gb.report/.info
+++ b/comp/src/gb.report/.info
@@ -95,7 +95,7 @@ DashDotDot
 C
 i
 5
-#Paint
+#Paints
 
 C
 #Report
@@ -528,7 +528,7 @@ b
 _Properties
 C
 s
-Left{ReportCoord},Top{ReportCoord},Width{ReportCoord},Height{ReportCoord},Brush{ReportBrush},Visible=True,Fixed,Font,Padding,Expand,AutoResize,Tag
+Left{ReportCoord},Top{ReportCoord},Width{ReportCoord},Height{ReportCoord},Brush{ReportBrush},Visible=True,Fixed,Font,Padding,Ignore,Expand,AutoResize,Tag
 _Family
 C
 s
diff --git a/comp/src/gb.report/.list b/comp/src/gb.report/.list
index 75ee39d5a..99e4dbffc 100644
--- a/comp/src/gb.report/.list
+++ b/comp/src/gb.report/.list
@@ -1,7 +1,7 @@
 Align?
 Arrange?
 Line?
-Paint
+Paints
 Report
 ReportBorder
 ReportBrush
diff --git a/comp/src/gb.report/.src/ReportControl.class b/comp/src/gb.report/.src/ReportControl.class
index 82c6b5a70..34bfdc3d6 100644
--- a/comp/src/gb.report/.src/ReportControl.class
+++ b/comp/src/gb.report/.src/ReportControl.class
@@ -1,10 +1,10 @@
 ' Gambas class file
 
 Export
-Create Private 
+Create Private
 
 Public Const _IsControl As Boolean = True
-Public Const _Properties As String = "Left{ReportCoord},Top{ReportCoord},Width{ReportCoord},Height{ReportCoord},Brush{ReportBrush},Visible=True,Fixed,Font,Padding,Expand,AutoResize,Tag"
+Public Const _Properties As String = "Left{ReportCoord},Top{ReportCoord},Width{ReportCoord},Height{ReportCoord},Brush{ReportBrush},Visible=True,Fixed,Font,Padding,Ignore,Expand,AutoResize,Tag"
 Public Const _Family As String = "Report"
 Public _SizeInt As TSizeHint
 Public _Count As Integer = 1
@@ -92,7 +92,7 @@ Public Sub _New(Optional Parent As ReportContainer = Null)
   If IsNull(Parent) Then
     $iParentId = -1
     $iReportId = $iMyId
-    
+
   Else
     If Parent Is Report Then
       hRep = Parent
@@ -105,380 +105,380 @@ Public Sub _New(Optional Parent As ReportContainer = Null)
       $iReportId = Parent._ReportId
     Endif
   Endif
-  
+
 End
 
 Private Function Id_Read() As Integer
-  
+
   Return $iMyId
-  
+
 End
 
 Private Function Parent_Read() As ReportContainer
-  
+
   Return ReportControl._ObjectFromId[$iParentId]
-  
+
 End
 
 Private Function Left_Read() As String
-  
+
   Return $sLeft
-  
+
 End
 
 Private Sub Left_Write(Value As String)
-  
+
   $sLeft = Value
-  
+
 End
 
 Private Function Top_Read() As String
-  
+
   Return $sTop
-  
+
 End
 
 Private Sub Top_Write(Value As String)
-  
+
   $sTop = Value
-  
+
 End
 
 Private Function Width_Read() As String
-  
+
   Return $sWidth
-  
+
 End
 
 Private Sub Width_Write(Value As String)
-  
+
   $sWidth = Value
-  
+
 End
 
 Private Function Height_Read() As String
-  
+
   Return $sHeight
-  
+
 End
 
 Private Sub Height_Write(Value As String)
-  
+
   $sHeight = Value
-  
+
 End
 
 Private Function Expand_Read() As Boolean
-  
-  Return $bExpand 
-  
+
+  Return $bExpand
+
 End
 
 Private Sub Expand_Write(Value As Boolean)
-  
+
   $bExpand = Value
-  
+
 End
 
 Public Sub _GetSizeHints(AvailableW As Integer, AvailableH As Integer, TotalWidth As Integer, TotalHeight As Integer) As TSizeHint
-  
+
   Error.Raise("Something goes wrong the _GetSizeHints is not correctly implemented")
-  
+
 End
 
 Public Sub _PaintBefore(Page As Integer, X As Float, Y As Float, hControl As TControl, VirtualId As Integer)
-  
+
 End
 
 Public Sub _Paint(Page As Integer, X As Float, Y As Float, hControl As TControl, VirtualId As Integer)
-  
+
 End
 
 Public Sub _PaintFrame(Page As Integer, X As Float, Y As Float, hControl As TControl, VirtualId As Integer)
-  
+
   Me._Paint(Page, X, Y, hControl, VirtualId)
-  
+
 End
 
 Public Sub _PaintAfter(Page As Integer, X As Float, Y As Float, hControl As TControl, VirtualId As Integer)
-  
+
 End
 
 Private Function Visible_Read() As Boolean
-  
-  Return $iVisible  
-  
+
+  Return $iVisible
+
 End
 
 Private Sub Visible_Write(Value As Boolean)
-  
+
   $iVisible = Value
-  
+
 End
 
 Public Sub Move(X As Float, Y As Float, W As Float, H As Float)
-  
+
   $fLeft = X
   $fTop = Y
   $fWidth = W
   $fHeight = H
-  
+
 End
 
 Private Function Tag_Read() As Variant
-  
-  Return $vTag  
-  
+
+  Return $vTag
+
 End
 
 Private Sub Tag_Write(Value As Variant)
-  
+
   $vTag = Value
-  
+
 End
 
 Private Function Font_Read() As Font
-  
+
   Return $hFont
-  
+
 End
 
 Private Sub Font_Write(Value As Font)
-  
+
   $hFont = Value
-  
+
 End
 
 Private Function Padding_Read() As ReportPadding
-  
+
   Return $hPadding
-  
+
 End
 
 Private Sub Padding_Write(Value As ReportPadding)
-  
+
   $hPadding = Value
-  
+
 End
 
 Private Function _Top_Read() As Float
-  
+
   Return $fTop
-  
+
 End
 
 Private Function _Height_Read() As Float
-  
+
   Return $fHeight
-  
+
 End
 
 Private Function _Width_Read() As Float
-  
+
   Return $fWidth
-  
+
 End
 
 Private Function _Left_Read() As Float
-  
+
   Return $fLeft
-  
+
 End
 
 Private Function _Padding_Read() As Float
-  
+
   Return $fPadding
-  
+
 End
 
-Public Function _SetChildGeometry(X As Float, Y As Float, W As Float, H As Float, ContPage As Integer) 
-  
+Public Function _SetChildGeometry(X As Float, Y As Float, W As Float, H As Float, ContPage As Integer)
+
 End
 
 Private Function Autoresize_Read() As Boolean
-  
-  Return $bAutoresize  
-  
+
+  Return $bAutoresize
+
 End
 
 Private Sub Autoresize_Write(Value As Boolean)
-  
+
   $bAutoresize = Value
-  
+
 End
 
 Private Function _RelativeWidth_Read() As Boolean
-  
+
   Return $bRelativeWidth
-  
+
 End
 
 Private Function _RelativeHeight_Read() As Boolean
-  
+
   Return $bRelativeHeight
-  
+
 End
 
 Private Function _RelativePadding_Read() As Boolean
-  
+
   Return $bRelativePadding
-  
+
 End
 
 ''Convert recursively string values to unified values in cm
 Public Sub _SetUnifiedValues()
-  
+
   Dim hSizeParse As TSizeParse
-  
+
   'Left
   hSizeParse = New TSizeParse($sLeft)
   $fLeft = hSizeParse.GetValue()
-  
+
   'Right
   hSizeParse = New TSizeParse($sTop)
   $fTop = hSizeParse.GetValue()
-  
+
   'Width
   hSizeParse = New TSizeParse($sWidth, True)
   $fWidth = hSizeParse.GetValue()
   $bRelativeWidth = hSizeParse.IsRelative()
-  
+
   'Height
   hSizeParse = New TSizeParse($sHeight, True)
   $fHeight = hSizeParse.GetValue()
   $bRelativeHeight = hSizeParse.IsRelative()
-  
+
   'Padding
   ' hSizeParse = New TSizeParse($sPadding, True)
   ' $fPadding = hSizeParse.GetValue()
   ' $bRelativePadding = hSizeParse.IsRelative()
-  
+
   hSizeParse = New TSizeParse($hPadding.Left, True)
   $hPadding._Left = hSizeParse.GetValue()
-  
+
   hSizeParse = New TSizeParse($hPadding.Right, True)
   $hPadding._Right = hSizeParse.GetValue()
-  
+
   hSizeParse = New TSizeParse($hPadding.Top, True)
   $hPadding._Top = hSizeParse.GetValue()
-  
+
   hSizeParse = New TSizeParse($hPadding.Bottom, True)
   $hPadding._Bottom = hSizeParse.GetValue()
-  
+
   '
-  
+
 End
 
 Private Function Ignore_Read() As Boolean
-  
+
   Return $bIgnore
-  
+
 End
 
 Private Sub Ignore_Write(Value As Boolean)
-  
+
   $bIgnore = Value
-  
+
 End
 
 Private Function Report_Read() As Report
-  
+
   Return ReportControl._ObjectFromId[$iReportId]
-  
+
 End
 
 Private Function _ReportId_Read() As Integer
-  
+
   Return $iReportId
-  
+
 End
 
 Private Function Fixed_Read() As Boolean
-  
+
   Return $bFixed
-  
+
 End
 
 Private Sub Fixed_Write(Value As Boolean)
-  
+
   $bFixed = Value
-  
+
 End
 
 Public Sub _Reset()
-  
+
   Me._DataIndex = 0
-  
+
 End
 
 Private Function X_Read() As String
-  
+
   Return $sLeft
-  
+
 End
 
 Private Sub X_Write(Value As String)
-  
+
   $sLeft = Value
-  
+
 End
 
 Private Function Y_Read() As String
-  
+
   Return $sTop
-  
+
 End
 
 Private Sub Y_Write(Value As String)
-  
+
   $sTop = Value
-  
+
 End
 
 Private Function Brush_Read() As ReportBrush
-  
+
   Return $hBrush
-  
+
 End
 
 Private Sub Brush_Write(Value As ReportBrush)
-  
+
   $hBrush = Value
-  
+
 End
 
 Private Function Color_Read() As Integer
-  
+
   Return $iColor
-  
+
 End
 
 Private Sub Color_Write(Value As Integer)
-  
+
   $iColor = Value
-  
+
 End
 
 Public Function _GetActualBrush(X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer) As PaintBrush
-  
+
   Dim hBrush As PaintBrush
-  
+
   If $hBrush Then
     hBrush = $hBrush._PaintBrush(X1, Y1, X2, Y2)
   Else If $iColor Then
     hBrush = Paint.Color($iColor)
-  Else 
+  Else
     Try hBrush = Me.Parent._GetActualBrush(X1, Y1, X2, Y2)
-    If Not hBrush Then 
+    If Not hBrush Then
       hBrush = Paint.Color(0)
     Endif
   Endif
   Return hBrush
-  
+
 End
 
 Private Sub _ReportId_Write(Value As Integer)
-  
+
   $iReportId = Value
-  
+
 End
diff --git a/comp/src/gb.report/.src/ReportLabel.class b/comp/src/gb.report/.src/ReportLabel.class
index 23c1860f7..22a065de0 100644
--- a/comp/src/gb.report/.src/ReportLabel.class
+++ b/comp/src/gb.report/.src/ReportLabel.class
@@ -20,15 +20,14 @@ Property Key As String
 Property {Format} As String
 Property UseField As Boolean
 
-
 Private Function Text_Read() As String
-  
+
   Return $sText
 
 End
 
 Private Sub Text_Write(Value As String)
-  
+
   $sText = Value
   'Me._Count = 2
 
@@ -55,102 +54,102 @@ Public Sub _GetSizeHints(AvailableW As Float, AvailableH As Float, TotalWidth As
   Dim bRaiseRes As Boolean
   Dim $sTempText As String
   Dim sText As String
-  
-  hMyHints.Height = Me._Height + Me.Padding._Top + Me.Padding._Bottom
-  
+
+  hMyHints.Height = Me._Height + Me.Padding._Top + Me.Padding._Bottom + Me.Border._Top + Me.Border._Bottom
+
   If Not IsNull(Me.Font) Then Paint.Font = Me.Font
-  
+
   'if the size choosed by the user is less than the font height, set the object to the font height
-  
-  If $sKey Then 
+
+  If $sKey Then
     sText = Me.Parent._GetData($sKey)
   Else
     sText = $sText
   Endif
-  
+
   hExt = Paint.TextExtents(sText)
 
   ' Paint.DrawText aligns according to the font height, not the text extents
   fTextWidth = MTools.PixelsToUnits(hExt.Width)
   fTextHeight = MTools.PixelsToUnits(Paint.Font.Height)
   'Debug "'" & sText & "'";; Paint.Font.Height;; hExt.Width
-  
-  If hMyHints.Height < fTextHeight Then hMyHints.Height = fTextHeight + Me.Padding._Top + Me.Padding._Bottom + Me.Border._Top + Me.Border._Bottom
-  
+
+  If hMyHints.Height < (fTextHeight + Me.Padding._Top + Me.Padding._Bottom + Me.Border._Top + Me.Border._Bottom) Then hMyHints.Height = fTextHeight + Me.Padding._Top + Me.Padding._Bottom + Me.Border._Top + Me.Border._Bottom
+
   If Me._RelativeHeight Then hMyHints.Height = TotalHeight * Me._Height / 100
   If hMyHints.Height <= 0 Then hMyHints.Height = Me.Font.Height
-  
-  If Me._Width > 0 And Not Me.Autoresize Then 
+
+  If Me._Width > 0 And Not Me.Autoresize Then
     hMyHints.Width = Me._Width
-  Else 
-    
+  Else
+
     hMyHints.Width = fTextWidth + Me.Padding._Left + Me.Padding._Right + Me.Border._Left + Me.Border._Right
-  
+
     'IF hMyHints.Width < ME._Width THEN hMyHints.Width = ME._Width
   Endif
-    If Me._RelativeWidth Then hMyHints.Width = TotalWidth * Me._Width / 100
-    If hMyHints.Width > AvailableW Then hMyHints.Width = AvailableW
-  
+  If Me._RelativeWidth Then hMyHints.Width = TotalWidth * Me._Width / 100
+  If hMyHints.Width > AvailableW Then hMyHints.Width = AvailableW
+
   Return hMyHints
-  
+
 End
 
 Public Sub _Paint(Page As Integer, X As Float, Y As Float, hControl As TControl, VirtualId As Integer)
-  
+
   Dim sTempText As Variant
   'Dim iPadding As Integer
   Dim iX, iY, iW, iH As Integer
   'iPadding = MTools.UnitsToPixels(Me._Padding)
-  
+
   If $sKey Then
-  sTempText = Me.Parent._GetData($sKey)
+    sTempText = Me.Parent._GetData($sKey)
   Else
-  sTempText = $sText
+    sTempText = $sText
   Endif
-  If $sFormat Then 
+  If $sFormat Then
     Try sTempText = Format(sTempText, $sFormat)
   Endif
-  If $bUseField Then 
+  If $bUseField Then
     sTempText = DecodeText(sTempText, Page)
   Endif
   'Draw.Foreground = Me.Foreground
-  
 
-  
   iX = (x + hControl.RealLeft + MTools.UnitsToPixels(Me.Padding._Left + Me.Border._Left))
   iY = (y + hControl.RealTop + MTools.UnitsToPixels(Me.Padding._Top + Me.Border._Top))
   iW = (hControl.RealWidth - MTools.UnitsToPixels(Me.Padding._Left + Me.Padding._Right + Me.Border._Left + Me.Border._Right))
-  
+
   iH = (hControl.RealHeight - MTools.UnitsToPixels(Me.Padding._Top + Me.Padding._Bottom + Me.Border._Top + Me.Border._Bottom))
-  
+
   Paint.Brush = Me._GetActualBrush(iX, iY, iX + hControl.RealWidth, iY + hControl.RealHeight)
-  
-    If Report.Debug Then
-      
-    
+
+  If Report.Debug Then
+
     Paint.Brush = Paint.Color(Color.Red)
     Paint.Rectangle(ix, iy, iw, ih)
     Paint.Stroke
-    
-    
+
   Endif
-  
+
   'Set the Font if it is initialized
-  If Not IsNull(Me.Font) Then 
+  If Not IsNull(Me.Font) Then
     Paint.Font = Me.Font
     'If Paint.ResolutionY <> Desktop.Resolution Then Stop
     'Paint.Font.size = Paint.Font.size * Paint.ResolutionY / Desktop.Resolution 'mTools.ReportResolution
   Endif
-  
+
   'Draw.Clip((x + hControl.RealLeft + MRTools.UnitsToPixels(Me.Padding)) * MRTools.ReportZoom, (y + hControl.RealTop + MRTools.UnitsToPixels(Me.Padding)) * MRTools.ReportZoom, hControl.RealWidth * MRTools.ReportZoom, hControl.RealHeight * MRTools.ReportZoom)
-    'Draw.Text($sText, (x + hControl.RealLeft + MRTools.UnitsToPixels(Me.Padding)) * MRTools.ReportZoom, (y + hControl.RealTop + MRTools.UnitsToPixels(Me.Padding)) * MRTools.ReportZoom, hControl.RealWidth * MRTools.ReportZoom, hControl.RealHeight * MRTools.ReportZoom, $iAlignment)
+  'Draw.Text($sText, (x + hControl.RealLeft + MRTools.UnitsToPixels(Me.Padding)) * MRTools.ReportZoom, (y + hControl.RealTop + MRTools.UnitsToPixels(Me.Padding)) * MRTools.ReportZoom, hControl.RealWidth * MRTools.ReportZoom, hControl.RealHeight * MRTools.ReportZoom, $iAlignment)
 
-    Paint.Text(sTempText, iX, iY, iW, iH, $iAlignment)
-    Paint.Fill
-    'If $sKey Then $sText = Null
+  Paint.Rectangle(iX, iY, iW, iH)
+  Paint.Clip
+
+  Paint.Text(sTempText, iX, iY, iW, iH, $iAlignment)
+  Paint.Fill
+  Paint.ResetClip
+  'If $sKey Then $sText = Null
   'Draw.Clip.Enabled = False
-End
 
+End
 
 Private Function IsSpecial_Read() As Boolean
 
@@ -158,14 +157,12 @@ Private Function IsSpecial_Read() As Boolean
 
 End
 
-
 Private Sub IsSpecial_Write(Value As Boolean)
 
   $bIsSpecial = Value
 
 End
 
-
 Private Function Key_Read() As String
 
   Return $sKey
@@ -191,17 +188,17 @@ Private Sub Format_Write(Value As String)
 End
 
 Private Function DecodeText(sText As String, Optional Page As Integer, Optional ForSize As Boolean = False) As String
-  
-  If ForSize Then 
+
+  If ForSize Then
     If InStr(sText, "$PAGE") Then sText = Replace(sText, "$PAGE", "999")
     If InStr(sText, "$NPAGE") Then sText = Replace(sText, "$NPAGE", "999")
   Else
     If InStr(sText, "$PAGE") Then sText = Replace(sText, "$PAGE", Str(Page + 1))
     If InStr(sText, "$NPAGE") Then sText = Replace(sText, "$NPAGE", Str(Me.Report.PageCount))
   Endif
-  
+
   Return sText
-  
+
 End
 
 Private Function UseField_Read() As Boolean
diff --git a/comp/src/gb.report/.src/ReportVBox.class b/comp/src/gb.report/.src/ReportVBox.class
index af5dd7af1..bebcfdbf7 100644
--- a/comp/src/gb.report/.src/ReportVBox.class
+++ b/comp/src/gb.report/.src/ReportVBox.class
@@ -1,37 +1,36 @@
 ' Gambas class file
 
-Export 
+Export
 Inherits ReportContainer
 Public Const _Properties As String = "*"
 Public Const _Similar As String = "ReportVBox"
+
 Public Sub _new()
-  
+
   Super._Arrangement = Arrange.Vertical
-  
+
 End
 
 Public Sub _Free()
-  
+
   Super._Free
-  
+
 End
 
-Public Function _SetChildGeometry(X As Float, Y As Float, W As Float, H As Float, ContPage As Integer) 
-  
+Public Function _SetChildGeometry(X As Float, Y As Float, W As Float, H As Float, ContPage As Integer)
+
   Dim hChildHints As TSizeHint
   Dim hChild As ReportControl
-  
-  
+
   'Dim aPageItems As New CPageInfo
   Dim iNExp As Integer      ' Nombre d'objet a taille étendue
   Dim fSExp As Float        'Place consommée par les objet a taille fixe
   Dim fSpc As Float
   'Dim fPdg As Float
-  Dim bFirst As Boolean 
+  Dim bFirst As Boolean
   Dim bExitLoop As Boolean
   Dim i As Integer
 
-  
   Dim aPageItems As New TControl[]
   Dim hTItem As TControl
   Dim fFixedSpc As Float
@@ -39,142 +38,163 @@ Public Function _SetChildGeometry(X As Float, Y As Float, W As Float, H As Float
   Dim fHeight As Float
   Dim oChild As Object
   Dim j As Integer
-  'Dim aIgnored As New TControl[]  
-'   If ContPage = 1 Then Stop
+  'Dim aIgnored As New TControl[]
+  '   If ContPage = 1 Then Stop
   'If Me.Tag = "*" Then Stop
-  If H = 0 Then 
+  If H = 0 Then
     Me._CurItem = Me.Children.Max
     Return
   Endif
-  
-  
+
   fSpc = IIf(Me._RelativeSpacing, H * Me._Spacing / 100, Me._Spacing) 'ME._Spacing
   'fPdg = Me._Padding
   X = Me.Padding._Left
   Y = Me.Padding._Top
-  
+
   W = W - Me.Padding._Left - Me.Padding._Right
   H = H - Me.Padding._Top - Me.Padding._Bottom
   Y -= fspc
-  
+  'Premier scan de tout les enfants pour définir les enfants
+  'qui seront présent a chaque aparition du conteneur
+  'c'est a dire ceux avec la propriété fixed !
+  'Bien sur sur ce tour on ne ajoute a la page que ceux qui arrive avant la position du dernier élément parcouru
+  '_curitem. On profite de ce tour pour calculer la taille fixe nécéssaire a tout les élément fixes
   For i = 0 To Me.Children.Max
-    
+
     hChild = Super.Children[i]
     'For j = 0 To hChild._Count - 1
-    If hChild.Fixed Then
-      
+    'On ne retient bien sur pas la taille d'un élément ignoré
+    If hChild.Fixed And If Not hChild.Ignore Then
+
       hChildHints = hChild._GetSizeHints(W, H - fSExp, W, H)
       fFixedSpc += hChildHints.Height + fspc
-      
+
       If i < Me._CurItem Then
         hTItem = New TControl
         hTItem.Ctrl = hChild
         hTItem.SizeHint = hChildHints
         'hTItem._SetGeometry(X, Y, W, hChildHints.Height)
-        
+
         'hChild._SetChildGeometry(X, Y, W, hChildHints.Height, ContPage)
-        
-        aPageItems.Add(hTItem) 
+
+        aPageItems.Add(hTItem)
         Y += hChildHints.Height + fSpc
         fFixedSpc -= hChildHints.Height + fspc
         If hChild.Expand Then Inc iNExp
       Endif
-      
+
     Endif
     'Next
   Next
-  
+
+  'deuxième scan des enfant mais la on commence a l'index courant
+  'ici on parcour les enfants et les objet virtuellement créé par les tables ou requête fournie au conteneur.
+  'on va ajouter pour chacun d'eux
   For i = Me._CurItem To Me.Children.Max
     hChild = Super.Children[i]
     For j = hChild._DataIndex To hChild._Count - 1
-    'Obtenir la taille verticale de l'enfant en déduisant l'espace consommé
-    hChildHints = hChild._GetSizeHints(W, H - fFixedSpc - Y, W, H)
-'     If hChild.Tag = "*" Then Stop
-    
-    If Y + hChildHints.Height > H - fFixedSpc Then 
-      
-      hChild._DataIndex = j
-      bExitLoop = True
-      Break
-    Endif
-    
-    
-    hTItem = New TControl
-    hTItem.Ctrl = hChild
-    hTItem.SizeHint = hChildHints
-    hTItem.Index = j
-    'hTItem._SetGeometry(X, Y, W, hChildHints.Height)
-    'hChild._SetChildGeometry(X, Y, W, hChildHints.Height, ContPage)
-    aPageItems.Add(hTItem) 
-    Y += hChildHints.Height + fSpc
-    If hChild.Fixed Then fFixedSpc -= hChildHints.Height + fspc
-    If hChild.Expand Then Inc iNExp
-    
+
+      If Not hChild.Ignore Then
+        'Obtenir la taille verticale de l'enfant en déduisant l'espace consommé
+        hChildHints = hChild._GetSizeHints(W, H - fFixedSpc - Y, W, H)
+        If Y + hChildHints.Height > H - fFixedSpc Then
+
+          hChild._DataIndex = j
+          bExitLoop = True
+          Break
+        Endif
+      Else
+        'Bon bien  comme c'est un objet flottant il a toute la taille qu'il veut au final
+
+        hChildHints = hChild._GetSizeHints(21, 30, 21, 30)
+
+      Endif
+
+      hTItem = New TControl
+      hTItem.Ctrl = hChild
+      hTItem.SizeHint = hChildHints
+      hTItem.Index = j
+      'hTItem._SetGeometry(X, Y, W, hChildHints.Height)
+      'hChild._SetChildGeometry(X, Y, W, hChildHints.Height, ContPage)
+      aPageItems.Add(hTItem)
+      Y += hChildHints.Height + fSpc
+      If hChild.Fixed Then fFixedSpc -= hChildHints.Height + fspc
+      If hChild.Expand Then Inc iNExp
+
     Next
-    If bExitLoop Then 
+    If bExitLoop Then
       'Me.Report._LayoutLoop = True
       Break
     Endif
     Inc Me._CurItem
-    
+
   Next
-  
+
+  'Troisième passage pour ajouté les éléments fixes de la fin.
+
   For i = Me._CurItem To Me.Children.Max
     hChild = Super.Children[i]
-    If hChild.Fixed Then
-      
+    If hChild.Fixed And If Not hChild.Ignore Then
+
       hChildHints = hChild._GetSizeHints(W, H - fFixedSpc, W, H)
       hTItem = New TControl
       hTItem.Ctrl = hChild
       hTItem.SizeHint = hChildHints
       'hTItem._SetGeometry(X, Y, W, hChildHints.Height)
       'hChild._SetChildGeometry(X, Y, W, hChildHints.Height, ContPage)
-      aPageItems.Add(hTItem) 
+      aPageItems.Add(hTItem)
       Y += hChildHints.Height + fSpc
       If hChild.Expand Then Inc iNExp
     Endif
-    
+
   Next
-  
-If iNExp > 0 Then fSExp = (H - Y) / iNExp
-  
+
+  'Calcul de l'espace llibre pur les élément expended
+  If iNExp > 0 Then fSExp = (H - Y) / iNExp
+  'Position Reel du point haut
   Y = Me.Padding._Top
+
   'If Me.Tag = "*" Then Stop
+  '
+  'Bon allez on parcour la page virtuelle cr éée pour mettre en forme les éléments(expand) et le spacing,
+  'Padding lui est règlé par setchlidgeometry
+  'Puis on parcour aussi les enfant de l'élément si c'est un conteneur
   For Each hTItem In aPageItems
     oChild = hTItem.Ctrl
-    If hTItem.Ctrl.Expand Then 
-      fHeight = hTItem.SizeHint.Height + fSExp
+    If Not oChild.Ignore Then
+      If hTItem.Ctrl.Expand Then
+        fHeight = hTItem.SizeHint.Height + fSExp
+      Else
+        fHeight = hTItem.SizeHint.Height
+      Endif
+      hTItem._SetGeometry(X, Y, W, fHeight)
+      oChild._SetChildGeometry(X, Y, W, fHeight, ContPage)
     Else
-      fHeight = hTItem.SizeHint.Height
+      hTItem._SetGeometry(Me.Padding._Left + oChild._Left, Me.Padding._Top + oChild._Top, hTItem.SizeHint.Width, hTItem.SizeHint.Height)
+      oChild._SetChildGeometry(Me.Padding._Left + oChild._Left, Me.Padding._Top + oChild._Top, hTItem.SizeHint.Width, hTItem.SizeHint.Height, ContPage)
     Endif
-    
-    hTItem._SetGeometry(X, Y, W, fHeight)
-    oChild._SetChildGeometry(X, Y, W, fHeight, ContPage)
-    
+
     If oChild Is ReportContainer Then
-      
+
       If oChild._CurItem < oChild.Children.count Then
         j = Me.Children.Find(oChild)
         Me._CurItem = Min(j, Me._CurItem)
       Endif
-      
+
     Endif
-    
-    
+
     Y += fHeight + fspc
   Next
-  
+  'Oui si l'élément est fixe il n'est pas parcourable !
   If Me.Fixed Then Me._CurItem = 0
-  
-  
-  
+  'On ajoute le tableau d'élément contenu dans la page au tableau de Pages du controle et a l'index de la dite page
   Me._PageChildren[ContPage] = aPageItems
   'If bExitLoop Then Return True
-  
+
 End
 
 Public Sub _GetSizeHints(AvailableW As Float, AvailableH As Float, TotalWidth As Float, TotalHeight As Float) As TSizeHint
-  
+
   Dim hChild As ReportControl
   Dim fHeight As Float
   Dim hChildHints As TSizeHint
@@ -184,51 +204,50 @@ Public Sub _GetSizeHints(AvailableW As Float, AvailableH As Float, TotalWidth As
   Dim i, j As Integer
   'If Me._SizeInt Then Return Me._SizeInt
   fSpacing = IIf(Me._RelativeSpacing, TotalHeight * Me._Spacing / 100, Me._Spacing)
-  
+
   For i = Me._CurItem To Me.Children.max
     hChild = Me.Children[i]
     For j = hChild._DataIndex To hChild._Count - 1
-  
-    
-    hChildHints = hChild._GetSizeHints(AvailableW, AvailableH - hMyHints.Height, AvailableW, AvailableH)
-    
-    hMyHints.Height += hChildHints.Height + fSpacing 'ME._Spacing
-    If fHeight = 0 Then fHeight = hChildHints.Height
-    If hMyHints.Width < hChildHints.Width Then hMyHints.Width = hChildHints.Width
-    If hMyHints.Height > AvailableH Then 
-      i = Me.Children.Max
-      Break
-    Endif
+
+      hChildHints = hChild._GetSizeHints(AvailableW, AvailableH - hMyHints.Height, AvailableW, AvailableH)
+
+      hMyHints.Height += hChildHints.Height + fSpacing 'ME._Spacing
+      If fHeight = 0 Then fHeight = hChildHints.Height
+      If hMyHints.Width < hChildHints.Width Then hMyHints.Width = hChildHints.Width
+      If hMyHints.Height > AvailableH Then
+        i = Me.Children.Max
+        Break
+      Endif
     Next
-  Next 
-  
-  hMyHints.Height -= fSpacing 
-  
+  Next
+
+  hMyHints.Height -= fSpacing
+
   hMyHints.Height += Me.Padding._Top + Me.Padding._Bottom '+ 2 * Me._BorderWidth
-  
+
   fHeight += Me.Padding._Top + Me.Padding._Bottom + Me.Border._Top + Me.Border._Bottom
-  
-   If Me._Height > fHeight Then fHeight += Me._Height
-  
+
+  If Me._Height > fHeight Then fHeight += Me._Height
+
   If hMyHints.Height < fHeight And Not Me.Autoresize Then hMyHints.Height = fHeight
-  
+
   If Me._RelativeHeight Then hMyHints.Height = AvailableH * Me._Height / 100
-  
-  If hMyHints.Height > AvailableH Then 
+
+  If hMyHints.Height > AvailableH Then
     If Me.Expand Then
       hMyHints.Height = AvailableH
-    Else 
+    Else
       hMyHints.Height = fHeight
     Endif
   Endif
-  
-  If Not Me.Autoresize Then 
+
+  If Not Me.Autoresize Then
     If Me._RelativeWidth Then hMyHints.Width = AvailableW * Me._Width / 100
-    hMyHints.Width = Me._Width 
+    hMyHints.Width = Me._Width
   Endif
-  
+
   Me._SizeInt = hMyHints
-  
+
   Return hMyHints
-  
+
 End
diff --git a/comp/src/gb.report/.src/Tests/Paint.class b/comp/src/gb.report/.src/Tests/Paints.class
similarity index 100%
rename from comp/src/gb.report/.src/Tests/Paint.class
rename to comp/src/gb.report/.src/Tests/Paints.class
diff --git a/comp/src/gb.report/.src/Tests/myReport5.class b/comp/src/gb.report/.src/Tests/myReport5.class
index a9203e73a..53a471b43 100644
--- a/comp/src/gb.report/.src/Tests/myReport5.class
+++ b/comp/src/gb.report/.src/Tests/myReport5.class
@@ -1,18 +1,19 @@
 ' Gambas class file
 
 Public Sub _new()
-  
+
   Dim Rlbl As ReportLabel
   Dim i As Integer
-  
+  'Report.Debug = True
   For i = 0 To 1000
-    
+
     Rlbl = New ReportLabel(RVBCont)
     Rlbl.Text = "Ligne " & i
     Rlbl.Border.bottom.Width = "1px"
-    
-  Next
-  
-  
-End
+    Rlbl.Padding.Top = "3 mm"
+    Rlbl.Padding.Bottom = "1mm"
+    Rlbl.Padding.Left = "2 mm"
 
+  Next
+
+End
diff --git a/comp/src/gb.report/.src/Tests/myReport5.report b/comp/src/gb.report/.src/Tests/myReport5.report
index 68f917925..16c2269b2 100644
--- a/comp/src/gb.report/.src/Tests/myReport5.report
+++ b/comp/src/gb.report/.src/Tests/myReport5.report
@@ -18,12 +18,15 @@
     }
     { ReportLabel3 ReportLabel
       #MoveScaled(20,2,48,10)
+      Left = "1mm"
+      Top = "1mm"
+      Width = "3cm"
       Brush = ReportBrush["LinearGradient(0.98,0.04,0.04,0.04,[#FFFF00,#FFFFFF],[0,1])"]
       Fixed = True
       Font = Font["DejaVu Sans,Bold,+14"]
       Padding = ReportPadding["Top:6mm;Bottom:6mm;Left:6mm;Right:6mm"]
+      Ignore = True
       Expand = True
-      AutoResize = True
       Text = ("Gambas")
       Alignment = Align.Left
     }
@@ -48,7 +51,23 @@
         Tag = "*"
         { ReportLabel1 ReportLabel
           #MoveScaled(4,3,44,9)
+          Font = Font["+3"]
+          Padding = ReportPadding["Top:4mm;Bottom:4mm;Left:2mm"]
           Text = ("Gambas Report Demo")
+          Alignment = Align.Center
+        }
+        { ReportLabel4 ReportLabel
+          #MoveScaled(4,10,48,10)
+          Left = "1mm"
+          Top = "5cm"
+          Brush = ReportBrush["LinearGradient(0.98,0.04,0.04,0.04,[#FFFF00,#FFFFFF],[0,1])"]
+          Fixed = True
+          Font = Font["DejaVu Sans,Bold,+14"]
+          Padding = ReportPadding["Top:6mm;Bottom:6mm;Left:6mm;Right:6mm"]
+          Ignore = True
+          AutoResize = True
+          Text = ("Gambas")
+          Alignment = Align.Left
         }
       }
       { ReportLabel2 ReportLabel
@@ -57,6 +76,7 @@
         Fixed = True
         Font = Font["Bold,+1"]
         Padding = ReportPadding["Top:4mm;Bottom:4mm;Left:2mm;Right:2mm"]
+        AutoResize = True
         Border = ReportBorder["Top:1mm #000000"]
         Background = ReportBrush["#3398C3"]
         Text = ("Page $PAGE on $NPAGE")