Passing variable to Class

noclass1980 said:

Hi,

I'm using the Table Class to draw simple tables and it has Turquoise and White rows as default. How can I pass 3 variables to set the RGB of the row based upon a user's preference? I'm using the AHPreferenceActivity to allow the user to select a colour and then use the HandleSettings to set the RGB values of the colour. If I dim ColR, ColG, ColB as Int in Process Globals in the Main module, how to I pass them to the Table Class for that the code below works?

B4X:

Tablecd2.Initialize(Colors.RGB(ColR,ColG,ColB), 0)
'where Tablecd2 is the row colour used in the Table Class

if I dim the three variables in Class_Globals in the Table Class then I just get a black row as the variable values are effectively 0 as the actual value from the main module is not passed.
Any suggestions? Thanks

Click to expand...

yttrium said:

So why exactly doesn't this work when you dim them in Process_Globals with a default value? What error do you get?

Click to expand...

noclass1980 said:

It's not that an error is caused as I don't set them to a default value in the Table Class. In the main module, I set
ColR=98
ColG=155
ColB=105

to create a Green colour but these values are not passed to the Table Class and so effectively I get
ColR=0
ColG=0
ColB=0

and so a black row is created. I would like to be able to passed the actual values to the TAble Class in order to create the green rows. Thanks.

Click to expand...

yttrium said:

Do you begin rendering the table with a line in your Main module?

Click to expand...

Sub DataTable_add
DataTable.Initialize(Me, "DataTable", 6)
allpanels(1).LoadLayout("Data_Layout")
DataTable.AddToActivity(allpanels(1), 0dip, 50dip, 100%x, 60%y)
Dim FirstLabelWidth,NextLabelWidth,NextLabelPos,LabelWidth As Int
Dim DataTableHeaders As List
Dim DataTablelab0, DataTablelab1, DataTablelab2,DataTablelab3,DataTablelab4 As Label
DataTable.Setheader(Array As String("Number","Type","Item", "P", "I","R" ))
For i = 1 To DataTableRows
DataTable.AddRow(Array As String("","", "", "", "", ""))
Next
DataTableItemWidth=(100%x-(2*DataTableTypeWidth)-(3*ScoreWidth))
DataTable.SetColumnsWidths(Array As Int(DataTableTypeWidth,DataTableTypeWidth, DataTableItemWidth,  ScoreWidth, ScoreWidth, ScoreWidth))
DataTable.RowHeight=75%y/20

noclass1980 said:

If I understand you correctly, yes. the table_add sub begins as

B4X:

Sub DataTable_add
DataTable.Initialize(Me, "DataTable", 6)
allpanels(1).LoadLayout("Data_Layout")
DataTable.AddToActivity(allpanels(1), 0dip, 50dip, 100%x, 60%y)
Dim FirstLabelWidth,NextLabelWidth,NextLabelPos,LabelWidth As Int
Dim DataTableHeaders As List
Dim DataTablelab0, DataTablelab1, DataTablelab2,DataTablelab3,DataTablelab4 As Label
DataTable.Setheader(Array As String("Number","Type","Item", "P", "I","R" ))
For i = 1 To DataTableRows
DataTable.AddRow(Array As String("","", "", "", "", ""))
Next
DataTableItemWidth=(100%x-(2*DataTableTypeWidth)-(3*ScoreWidth))
DataTable.SetColumnsWidths(Array As Int(DataTableTypeWidth,DataTableTypeWidth, DataTableItemWidth,  ScoreWidth, ScoreWidth, ScoreWidth))
DataTable.RowHeight=75%y/20

at the moment the row colour is set in the Table Class but I would like to pass the varaible colour RGB values over to the Table Class. Thanks

Click to expand...

...
    DataTable_add(ColR, ColG, ColB)
End Sub

Sub DataTable_add (R As Int, G As Int, B As Int)
    DataTable.Initialize(Me, "DataTable", 6)
...

yttrium said:

Why not pass an argument, calling it like so?

B4X:

...
    DataTable_add(ColR, ColG, ColB)
End Sub

Sub DataTable_add (R As Int, G As Int, B As Int)
    DataTable.Initialize(Me, "DataTable", 6)
...

Click to expand...

Class_Variables.TabRowColourR=153
Class_Variables.TabRowColourG=204
Class_Variables.TabRowColourB=255

Dim Tablecd2 As ColorDrawable
Tablecd2.Initialize(Colors.RGB(Class_Variables.TabRowColourR,Class_Variables.TabRowColourG,Class_Variables.TabRowColourB), 0)

Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
Dim TabRowColourR As Int
Dim TabRowColourB As Int
Dim TabRowColourG As Int
End Sub