B4J Question ABMaterial - backgroundimage in header of modalsheet

C

codie01

Active Member
Licensed User
Longtime User
Hi All, I am trying to place a backgroundimage in a modalsheet header and it does not appear to work. The following is sample of my code in the modalsheet

B4X: 
Sub BuildAccountModalSheet() As ABMModalSheet
    Dim myModalAccount As ABMModalSheet
    myModalAccount.Initialize(page, "myModalAccount", True, ABM.MODALSHEET_SIZE_FULL, "")
    myModalAccount.Header.UseTheme("modalheader")
    myModalAccount.Header.SetBackgroundImage(ABM.COLOR_BLUE,ABM.INTENSITY_DARKEN4,"../images/pagebackground.png",ABM.CONTAINERIMAGE_REPEAT_REPEAT,ABM.CONTAINERIMAGE_POSITION_CENTERCENTER)
    myModalAccount.Content.UseTheme("sectionContainerTheme0")
    myModalAccount.Footer.UseTheme("modalfooter")
    myModalAccount.Size = ABM.MODALSHEET_SIZE_FULL
    myModalAccount.IsDismissible = False

....
 
Sort by date Sort by votes
C

codie01

Active Member
Licensed User
Longtime User
Hi Alian,

Thanks for your response. The image works fine in a normal page as a background image. The name convention is correct. It does not work however in the modalsheet. Any tips please, IE: turn of the header theme, etc.

Thanks Phil
 
Upvote 0
C

codie01

Active Member
Licensed User
Longtime User
Also I can offer you a free server to host your support pages. I can even set it up for you!, All fre, you have given the b4x community great commitment. I would like to help you for once
 
Upvote 0

alwaysbusy

Expert
Licensed User
Longtime User
codie01 said:
It does not work however in the modalsheet
Click to expand...
The image above from me is a modalsheet, full size so it fills the whole page (like your setting myModalAccount.Size = ABM.MODALSHEET_SIZE_FULL).
I did indeed not use a theme, but I would be surprised if this would be it.

1. Does it work if you comment out the UseTheme lines?
2. Do you see errors in the Chrome browser (network or console tab)? If so, they may give me a clue.

codie01 said:
can offer you a free server to host your support pages
Click to expand...
Thank you for your kind offer! I may take you up on it later ? I first will see if I can still fix it here.

Alwaysbusy
 
Upvote 0

alwaysbusy

Expert
Licensed User
Longtime User
The code is a snippet from a much bigger project I'm making. all I added was the .header.SetBackgroundImage() to it.

B4X: 
public Sub ConnectPage()
   ...
   page.AddModalSheetTemplate(ABMShared.BuildForModalPrint(page, "", Config.JG(authLang & "/close", "")))
   ...
   page.Refresh ' IMPORTANT
   page.FinishedLoading 'IMPORTANT
   page.RestoreNavigationBarPosition
End sub

B4X: 
public Sub BuildForModalPrint(page As ABMPage, title As String, CloseButton As String) As ABMModalSheet    
    Dim Modal As ABMModalSheet
    Modal.Initialize(page, "ModalPrintLayout", False, ABM.MODALSHEET_TYPE_NORMAL, "onetwobc")
    Modal.IsDismissible = True
    Modal.Header.SetBackgroundImage(ABM.COLOR_BLUE,ABM.INTENSITY_DARKEN4,"../images/OneTwoLogo.png",ABM.CONTAINERIMAGE_REPEAT_REPEAT,ABM.CONTAINERIMAGE_POSITION_CENTERCENTER)
    Modal.Size = ABM.MODALSHEET_SIZE_FULL
    
    
    ' Build the content grid
    Modal.Content.AddRowsM(1, True,0,0, "").AddCells12(1, "")
    Modal.Content.BuildGrid  'IMPORTANT once you loaded the complete grid AND before you start adding components
    
    ' Build the header grid
    Modal.header.AddRowsM(1,True,0,0, "").AddCellsOS(1,6,9,9,6,3,3,"right")
    Modal.header.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components

    Modal.Header.Row(1).PaddingTop = "10px"
    Modal.Header.Row(1).PaddingBottom = "10px"

    ' create the buttons for the header
    Dim Cancel As ABMButton
    Cancel.InitializeFlat(page, "BarcodesCancel", "fa fa-times", ABM.ICONALIGN_CENTER, "", "transparent")
    Modal.header.Cell(1,1).AddComponent(Cancel)
    
    Dim Print As ABMButton
    Print.InitializeFlat(page, "BarcodesPrint", "fa fa-print", ABM.ICONALIGN_CENTER, "", "transparent")
    Modal.header.Cell(1,1).AddComponent( Print)
    
    Return Modal
End Sub

And somewhere in my code in a button I have:
B4X: 
page.ShowModalSheet("ModalPrintLayout")

When de modalsheet is loaded:
B4X: 
Sub Page_ModalSheetReady(ModalSheetName As String)
    If ModalSheetName.ToLowerCase = "modalprintlayout" Then
        BuildPrint
    End If    
End Sub

Sub buildPrint()   
    Dim Modal As ABMModalSheet = page.ModalSheet("ModalPrintLayout")
    
    Dim outerCont As ABMContainer
    outerCont.Initialize(page, "bcout", "")
    
    Dim SQL As SQL = DBM.GetSQL
    Dim founds As List = DBMApp.SELECTGroups(Table1.WHEREClause,"LIMIT 500","ORDER BY grpDescription", Table1.WHEREVars)
    DBM.CloseSQL(SQL)
    
    If founds.Size = 0 Then Return
    
    outerCont.AddRowsM(1,False,0,0,"").AddCellsOSMP(1,0,0,0,0,2,2,0,0,0,0,"left").AddCellsOSMP(1,0,0,0,0,4,6,0,0,0,0,"left").AddCellsOSMP(1,0,0,0,12,6,4,0,0,0,0,"center")
    outerCont.AddRowsM(1,False,0,0,"").AddCellsOSMP(1,0,0,0,12,6,4,0,0,0,0,"center")
    outerCont.addrowsM(1,False,0,0,"").AddCellsOSMP(founds.Size,0,0,0,12,6,4,0,0,0,0,"centerclick")
    outerCont.BuildGrid
    
    outerCont.Row(1).SetExtraStyle("border-bottom: 1px dotted gray;margin-bottom: 10px")

    ...
   
    Modal.Content.Cell(1,1).AddComponent(outerCont)
    Modal.Refresh
    ...
   ' adding stuff to the outer container
    ...

   outerCont.Refresh
End Sub

Alwaysbusy
 
Upvote 0
You must log in or register to reply here.

Similar Threads

  • Question
B4J Question [ABMaterial] Modal and combo bug
Replies
0
Views
388
yiankos1
  • Question
B4J Question [ABMaterial] Combo is empty in modalsheet / Combo vacio en modalsheet
Replies
4
Views
985
alwaysbusy
  • Question
B4J Question [ABMaterial] (Solved) How to remove margin in modal sheet
Replies
1
Views
2K
Cableguy
  • Article
B4J Tutorial [ABMaterial] Theming the Framework - ModalSheets
Replies
14
Views
6K
Cableguy
G
  • Question
B4J Question [ABMaterial] ModalSheet Scrollbar issue
Replies
3
Views
4K
Gustavo Retana
G
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…