' Gambas class file

EXPORT 

INHERITS ReportContainer

PUBLIC SUB _GetSizeHints(AvailableW AS Float, AvailableH AS Float, TotalWidth AS Float, TotalHeight AS Float) AS TSizeHint

  DIM hChild AS Object
  DIM hMyHints AS NEW TSizeHint
  DIM hChildHints AS TSizeHint
  DIM fSpacing AS Float
  
  fSpacing = IIf(ME._RelativeSpacing, TotalWidth * ME._Spacing / 100, ME._Spacing)
  
  FOR EACH hChild IN ME.Children
    'PRINT "GetSizeHint  : " & Object.Type(hchild.Ctrl)
    'Obtention des volontées des enfants
    hChildHints = hChild.ctrl._GetSizeHints(AvailableW - hMyHints.Width, AvailableH, AvailableW, AvailableH)
    hMyHints.Width += hChildHints.Width + fSpacing 'ME._Spacing
    IF hMyHints.Height < hChildHints.Height THEN hMyHints.Height = hChildHints.Height
  NEXT 
    hMyHints.Width -= fSpacing 'ME._Spacing
    hMyHints.Width += 2 * ME._Padding
    IF ME._RelativeWidth THEN hMyHints.Width = AvailableW * ME._Width / 100
  'je veut ma hauteur !
  IF NOT ME.Autoresize THEN 
    hMyHints.Height = ME._Height
    IF ME._RelativeHeight THEN hMyHints.Height = AvailableH * ME._Height / 100
  ENDIF
    
  
  RETURN hMyHints
END


PUBLIC FUNCTION _SetChildGeometry(X AS Float, Y AS Float, W AS Float, H AS Float, ContPage AS Integer) AS Float
  
  DIM hChildHints AS TSizeHint
  DIM hChild AS Object
  DIM fChildrenH AS Float
  DIM PagePos AS NEW Integer[]
  DIM iPage AS Integer
  DIM aPage AS NEW Object[]
  DIM aChild AS NEW Object[]
  DIM iNExp AS Integer
  DIM fSExp AS Float
  DIM fSpc AS Float
  DIM fPdg AS Float
  DIM bFirst AS Boolean
  DIM fH AS Float
  DIM fW AS Float
  DIM nbPage AS Integer
  'PRINT "Set HBox Geometry = ", x, y, w, h
    'PRINT Subst("_SetGeometry(&1,&2,&3,&4)", X, Y, W, H)
  
  'If there is no change then do nothing
  'IF X = ME.RealLeft AND IF Y = ME.RealTop AND IF W = ME.RealWidth AND IF H = ME.RealHeight THEN RETURN
  
  
  fSpc = IIf(ME._RelativeSpacing, W * ME._Spacing / 100, ME._Spacing) 'ME._Spacing
  fPdg = ME._Padding
  
  'SUPER._SetGeometry(X, Y, W, H)
    
  X = fPdg
  Y = fPdg
  W -= fPdg * 2
  H -= fPdg * 2
  
  FOR EACH hChild IN ME.Children
    
    hChildHints = hChild.ctrl._GetSizeHints(W - fSExp, H, W, H)
    
    IF hChild.ctrl.Expand THEN 
      INC iNExp
    ELSE 
      fSExp += hChildHints.Width
    ENDIF
    
    fSExp += fSpc
    
  NEXT
  
  fSExp -= fSpc
  fSExp = W - fSExp
  
  bFirst = TRUE
  
  
  FOR EACH hChild IN ME.Children
  
    hChildHints = hChild.ctrl._GetSizeHints(W - X, H, W, H)
    
    IF NOT bFirst THEN 
      X += fSpc
    ENDIF
    
    bFirst = FALSE
    
    IF hChild.ctrl.Expand THEN 
      fW = fSExp / iNExp 
    ELSE 
      fW = hChildHints.Width
    ENDIF 
    
    nbPage = hChild._SetGeometry(X, Y, fW, h)

    IF nbPage > iPage THEN iPage = nbPage
    X += fW
    
  NEXT
  
  RETURN iPage
END 

PUBLIC SUB _Free()
  
  SUPER._Free
  
END