Hi there
I have an issue with my ABMModal Sheet, I need to completely disable the scrollbars as these show up.
This is my builder code...
And this renders like this on the page...
I need to remove the scrollbars on the right, or perhaps just the inner scrollbar.
Please advise.
I have an issue with my ABMModal Sheet, I need to completely disable the scrollbars as these show up.
This is my builder code...
B4X:
Private Sub BuildModalSheetmsTimeSheets() As ABMModalSheet
Dim msTimeSheets As ABMModalSheet
msTimeSheets.Initialize(page, "msTimeSheets", True, ABM.MODALSHEET_TYPE_NORMAL, "")
msTimeSheets.Size = ABM.MODALSHEET_SIZE_NORMAL
msTimeSheets.IsDismissible = False
msTimeSheets.IsTextSelectable = True
msTimeSheets.Footer.AddRows(1, False, "").AddCellsOS(1, 0, 0, 0, 12, 12, 12, "")
msTimeSheets.Header.AddRows(1, False, "").AddCellsOS(1, 0, 0, 0, 12, 12, 12, "")
msTimeSheets.Content.AddRows(5, False, "").AddCellsOS(1, 0, 0, 0, 12, 12, 12, "")
msTimeSheets.Header.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
msTimeSheets.Content.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
msTimeSheets.Footer.BuildGrid 'IMPORTANT once you loaded the complete grid AND before you start adding components
'Add components to ModalSheet
Dim txtTimeSheetsDeliverable As ABMInput
txtTimeSheetsDeliverable.Initialize(page, "txtTimeSheetsDeliverable", ABM.INPUT_TEXT, "Deliverable", False, "")
msTimeSheets.Content.Cell(2,1).AddComponent(txtTimeSheetsDeliverable)
Dim dpTimeSheetsDateWorked As ABMDateTimePicker
Dim dpTimeSheetsDateWorkedDate As Long = DateTime.Now
dpTimeSheetsDateWorked.Initialize(page, "dpTimeSheetsDateWorked", ABM.DATETIMEPICKER_TYPE_DATE, dpTimeSheetsDateWorkedDate, "Date", "")
dpTimeSheetsDateWorked.WeekText = "Week"
dpTimeSheetsDateWorked.TodayText = "Today"
dpTimeSheetsDateWorked.ReturnDateFormat = "YYYY-MM-DD"
dpTimeSheetsDateWorked.ReturnTimeFormat = ""
dpTimeSheetsDateWorked.Language = "en"
dpTimeSheetsDateWorked.FirstDayOfWeek = ABM.FIRSTDAYOFWEEK_SUNDAY
dpTimeSheetsDateWorked.PickText = "OK"
dpTimeSheetsDateWorked.CancelText = "Back"
msTimeSheets.Content.Cell(2,1).AddComponent(dpTimeSheetsDateWorked)
Dim dpTimeSheetsStartTime As ABMDateTimePicker
Dim dpTimeSheetsStartTimeDate As Long = DateTime.Now
dpTimeSheetsStartTime.Initialize(page, "dpTimeSheetsStartTime", ABM.DATETIMEPICKER_TYPE_TIME, dpTimeSheetsStartTimeDate, "Start Time", "")
dpTimeSheetsStartTime.WeekText = "Week"
dpTimeSheetsStartTime.TodayText = "Today"
dpTimeSheetsStartTime.ReturnDateFormat = ""
dpTimeSheetsStartTime.ReturnTimeFormat = "HH:mm"
dpTimeSheetsStartTime.Language = "en"
dpTimeSheetsStartTime.FirstDayOfWeek = ABM.FIRSTDAYOFWEEK_SUNDAY
dpTimeSheetsStartTime.PickText = "OK"
dpTimeSheetsStartTime.CancelText = "Back"
msTimeSheets.Content.Cell(2,1).AddComponent(dpTimeSheetsStartTime)
Dim dpTimeSheetsEndTime As ABMDateTimePicker
Dim dpTimeSheetsEndTimeDate As Long = DateTime.Now
dpTimeSheetsEndTime.Initialize(page, "dpTimeSheetsEndTime", ABM.DATETIMEPICKER_TYPE_TIME, dpTimeSheetsEndTimeDate, "End Time", "")
dpTimeSheetsEndTime.WeekText = "Week"
dpTimeSheetsEndTime.TodayText = "Today"
dpTimeSheetsEndTime.ReturnDateFormat = ""
dpTimeSheetsEndTime.ReturnTimeFormat = "HH:mm"
dpTimeSheetsEndTime.Language = "en"
dpTimeSheetsEndTime.FirstDayOfWeek = ABM.FIRSTDAYOFWEEK_SUNDAY
dpTimeSheetsEndTime.PickText = "OK"
dpTimeSheetsEndTime.CancelText = "Back"
msTimeSheets.Content.Cell(2,1).AddComponent(dpTimeSheetsEndTime)
Dim dpTimeSheetsHoursWorked As ABMDateTimePicker
Dim dpTimeSheetsHoursWorkedDate As Long = DateTime.Now
dpTimeSheetsHoursWorked.Initialize(page, "dpTimeSheetsHoursWorked", ABM.DATETIMEPICKER_TYPE_TIME, dpTimeSheetsHoursWorkedDate, "Hours Worked", "")
dpTimeSheetsHoursWorked.WeekText = "Week"
dpTimeSheetsHoursWorked.TodayText = "Today"
dpTimeSheetsHoursWorked.ReturnDateFormat = ""
dpTimeSheetsHoursWorked.ReturnTimeFormat = "HH:mm"
dpTimeSheetsHoursWorked.Language = "en"
dpTimeSheetsHoursWorked.FirstDayOfWeek = ABM.FIRSTDAYOFWEEK_SUNDAY
dpTimeSheetsHoursWorked.PickText = "OK"
dpTimeSheetsHoursWorked.CancelText = "Back"
msTimeSheets.Content.Cell(2,1).AddComponent(dpTimeSheetsHoursWorked)
Dim txtTimeSheetsComments As ABMInput
txtTimeSheetsComments.Initialize(page, "txtTimeSheetsComments", ABM.INPUT_TEXT, "Comments", True, "")
msTimeSheets.Content.Cell(2,1).AddComponent(txtTimeSheetsComments)
Dim lblTimeSheets As ABMLabel
lblTimeSheets.Initialize(page, "lblTimeSheets", "{NBSP}Add / Edit TimeSheets", ABM.SIZE_H5, False, "whitefc")
msTimeSheets.Header.Cell(1,1).AddComponent(lblTimeSheets)
Dim btnApplyTimeSheets As ABMButton
btnApplyTimeSheets.InitializeFlat(page, "btnApplyTimeSheets", "", "", "Apply", "transparent")
btnApplyTimeSheets.Size = ABM.BUTTONSIZE_NORMAL
msTimeSheets.Footer.Cell(1,1).AddComponent(btnApplyTimeSheets)
Dim btnCancelTimeSheets As ABMButton
btnCancelTimeSheets.InitializeFlat(page, "btnCancelTimeSheets", "", "", "Cancel", "transparent")
btnCancelTimeSheets.Size = ABM.BUTTONSIZE_NORMAL
msTimeSheets.Footer.Cell(1,1).AddComponent(btnCancelTimeSheets)
Return msTimeSheets
End Sub
And this renders like this on the page...
I need to remove the scrollbars on the right, or perhaps just the inner scrollbar.
Please advise.