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

WebScrollView: Draw the control with a 'ScrollView' whose 'Border' is initially unset.

Browse source 
[GB.WEB.GUI]
* BUG: WebScrollView: Draw the control with a 'ScrollView' whose 'Border' is initially unset.
This commit is contained in:
gambas 2022-03-20 23:10:50 +01:00
parent 135e08483d
commit 0f0bb17a6d
2 changed files with 19 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
comp/src/gb.web.gui/.src/Test/Webform4.webform
View file

@ -1,12 +1,12 @@
# Gambas Form File 3.0 # Gambas Form File 3.0
{ WebForm WebForm { WebForm WebForm
#MoveScaled(0,0,89,56) #MoveScaled(0,0,102,92)
Width = "40em" Width = "40em"
Arrangement = Arrange.Vertical Arrangement = Arrange.Vertical
Border = True Spacing = True
{ WebContainer1 WebContainer { WebContainer1 WebContainer
#MoveScaled(1,1,87,25) #MoveScaled(1,1,100,25)
Arrangement = Arrange.Row Arrangement = Arrange.Row
Margin = True Margin = True
Spacing = True Spacing = True
@ -30,27 +30,38 @@
Image = "icon:/huge/cancel" Image = "icon:/huge/cancel"
} }
{ WebButton4 WebButton { WebButton4 WebButton
#MoveScaled(1,8,23,6) #MoveScaled(71,1,23,6)
Width = "12em" Width = "12em"
Height = "1em" Height = "1em"
Text = ("test") Text = ("test")
Image = "icon:/32/cancel" Image = "icon:/32/cancel"
} }
{ WebButton5 WebButton { WebButton5 WebButton
#MoveScaled(25,8,21,6) #MoveScaled(1,8,21,6)
Width = "12em" Width = "12em"
Height = "2em" Height = "2em"
Image = "icon:/32/cancel" Image = "icon:/32/cancel"
} }
{ WebButton6 WebButton { WebButton6 WebButton
#MoveScaled(47,8,23,6) #MoveScaled(23,8,23,6)
Width = "12em" Width = "12em"
Height = "4em" Height = "4em"
Text = ("Agence") Text = ("Agence")
Image = "icon:/huge/emote-laugh" Image = "icon:/huge/emote-laugh"
} }
{ WebTextBox1 WebTextBox { WebTextBox1 WebTextBox
#MoveScaled(1,15,24,4) #MoveScaled(47,8,24,4)
}
}
{ WebScrollView1 WebScrollView
#MoveScaled(1,27,100,23)
Arrangement = Arrange.Horizontal
Margin = True
{ WebButton7 WebButton
#MoveScaled(1,1,54,21)
}
{ WebComboBox1 WebComboBox
#MoveScaled(55,1,23,21)
} }
} }
} }

2
comp/src/gb.web.gui/.src/WebScrollView.class
View file

@ -5,7 +5,7 @@ Inherits WebContainer
Public Const _Similar As String = "WebContainer" Public Const _Similar As String = "WebContainer"
Public Const _Properties As String = "*,ScrollBar{Scroll.*}=Both" Public Const _Properties As String = "*,ScrollBar{Scroll.*}=Both"
Public Const _DrawWith As String = "ScrollView" Public Const _DrawWith As String = "ScrollView:Border=False"
Event Scroll Event Scroll