Created a B4J Version of the atHome B4A App.
Items in the xCLV are created using sub below (example for weather tabpage).
All labels manually changed to a B4XView.
Issue
The property TextSize of a Label (B4XView) is increased.
If NOT assigning the Color property, the TextSize does not change.
Question
Is this a bug or is there another way of setting the TextSize for a B4XView.
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
NO Change
		
		
	
	
		 
	
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
Change OK
		 
	
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
			
			Items in the xCLV are created using sub below (example for weather tabpage).
All labels manually changed to a B4XView.
Issue
The property TextSize of a Label (B4XView) is increased.
If NOT assigning the Color property, the TextSize does not change.
Question
Is this a bug or is there another way of setting the TextSize for a B4XView.
			
				B4X:
			
		
		
		LabelWeatherItemName.TextSize = 24
			
				B4X:
			
		
		
		LabelWeatherItemName.TextSize = 24
LabelWeatherItemName.Color = xui.Color_White
			
				B4X:
			
		
		
		' Create a WeatherItem for the xCustomListView
' [Label Name][Label Data]
' The item is created from the list containing the weather idx
' The labels are manually changed to a B4XView Object
Private Sub CreateWeatherItem(iv As WeatherItemValue) As B4XView
   ' Create a panel holding the labels
   Dim p As B4XView = xui.createpanel("")
   p.SetLayoutAnimated(0,0,0,-1,Constants.CLVITEMHEIGHTWEATHER)
   ' Load the layout with the two labels
   p.LoadLayout("weatheritem")
   p.Color = xui.Color_White
   'Set properties of the labels
   LabelWeatherItemName.Height = Constants.CLVITEMHEIGHTWEATHER
   LabelWeatherItemData.Height = Constants.CLVITEMHEIGHTWEATHER
   LabelWeatherItemName.TextSize = 24
   LabelWeatherItemName.Color = xui.Color_White
   LabelWeatherItemData.TextSize = 24
   LabelWeatherItemData.Color = xui.Color_White
   ' Assign the labels to the type
   iv.Idx = ""
   iv.Name = LabelWeatherItemName
   iv.Data = LabelWeatherItemData
   ' Return the panel
   Return p
End Sub 
				 
 
		 
 
		 
 
		 
 
		