A table with two columns, how to fit the colums in the table?

[ghale]

Hello,
I have a table that has two columns.
When I fill the table, I want that the second column will be resized to stay in the table width.

There are two cases:

1. The rows are a lot so the table shows a vertical scrollbar
2. The rows are few so I don't need the scrollbar

How can I manage this?
I've tried to do this:

<div align="left"><font face="Verdana"><font size="2"><font color="#010101"><font color="#010101"><font face="Times New Roman">Table1.ColWidth("Col1")  = 100
</font></font></font></font></font><font face="Verdana"><font size="2"><font color="#010101"><font color="#010101"><font face="Times New Roman">Table1.ColWidth("Col2")  = Table1.Width - </font></font></font></font></font><font face="Verdana"><font size="2"><font color="#010101"><font color="#010101"><font face="Times New Roman">Table1.ColWidth("Col1")</font></font></font></font></font></div>

but of course this is not the correct way to accomplish this.

I've read this in the forum, but I'm not sure if this will be a solution for me.

Someone can help me, please?

[Erel]

You can use the Door library to find the vertical scroll bar and horizontal scroll bar status.
obj1 and obj2 are Objects from the Door library:

Sub GetScrollBarsProperties (tableName)
    obj1.FromControl(tableName)
    obj1.Value = obj1.GetProperty("Controls")
    obj2.Value = obj1.GetProperty2("Item", 0)
    HScrollVisible = obj2.GetProperty("Visible") 'Horizontal scroll bar visible (true or false)
    HScrollHeight = obj2.GetProperty("Height") 'Horizontal scroll height
    obj2.Value = obj1.GetProperty2("Item", 1)
    VScrollVisible = obj2.GetProperty("Visible") 'Vertical scroll bar visible
    VScrollHeight = obj2.GetProperty("Width") 'Vertical scroll bar width
End Sub

[ghale]

I've put on Sub Globals of a module

obj1.New1(False)
obj2.New1(False)

Then,
I've put

Sub GetScrollBarsProperties (tableName)
    obj1.FromControl(tableName)
    obj1.Value = obj1.GetProperty("Controls")
    obj2.Value = obj1.GetProperty2("Item", 0)
    HScrollVisible = obj2.GetProperty("Visible") 'Horizontal scroll bar visible (true or false)
    HScrollHeight = obj2.GetProperty("Height") 'Horizontal scroll height
    obj2.Value = obj1.GetProperty2("Item", 1)
    VScrollVisible = obj2.GetProperty("Visible") 'Vertical scroll bar visible
    VScrollHeight = obj2.GetProperty("Width") 'Vertical scroll bar width
    Msgbox(HScrollVisible & "." & HScrollHeight & "." & VScrollVisible & "." & VScrollHeight)
End Sub

So, when I call

GetScrollBarsProperties(tbEditor)

I receive this error:

An error occurred on sub editor.frmeditor_show

Line number: XXX

GetScrollBarsProperties(tbEditor)
Error description:
Variable: editor.tbeditor was not assigned any value.
Continue?

editor is the module name
tbEditor is the table name

What I can do???

[ghale]

All right, all right, I have to pass the table name in double quotes!

GetScrollBarsProperties("tbEditor")

So all works!

Thank you very much, Erel!

[ghale]

Mmmhh,
I always receive False in Horizontal and Vertical scroll bar visible (True or False)

It's correct???
I have scrollbars!

[ghale]

I have to pass True in the constructor for Door object, according to documentation:

New1

InitializeDataGrid should be set to true if you are using the object with a Table control.

[ghale]

Ok, there a strange "issue"

The table width is 240
The first column width is 192
The second colum width is 48

So: 192 + 48 = 240, but...

I have to subtract 4 to to first or second colums to avoid horizontal scrollbar!

Why 4?

Maybe I have to consider:

• 1 pixel border from left side of first column
• 1 pixel border from rigth side of first column
• 1 pixel border from left side of second column
• 1 pixel border from rigth side of second column

??

[ghale]

I've edited this post to make it clear the problem:

I have a 240 width table,
I want two colums.

I have only the second column width fixed,
the first colums must adapt his width dinamically if vertical scrollbar is visible or not.

I use this code:

Public Sub FixScrollBars
obj1.FromControl("tbEditor")
    obj1.Value = obj1.GetProperty("Controls")
    
    obj2.Value = obj1.GetProperty2("Item", 0)
    'HScrollVisible = obj2.GetProperty("Visible") 'Horizontal scroll bar visible (True o False)
    'HScrollHeight = obj2.GetProperty("Height") 'Horizontal scroll height
    
    obj2.Value = obj1.GetProperty2("Item", 1)
    VScrollVisible = obj2.GetProperty("Visible") 'Vertical scroll bar visible
    VScrollWidth = obj2.GetProperty("Width") 'Vertical scroll bar width

    If VScrollVisible = True Then
        tbEditor.ColWidth("Word") = tbEditor.Width - priorityColumnWidth - VScrollWidth
    Else
        tbEditor.ColWidth("Word") = tbEditor.Width - priorityColumnWidth
    End If
End SUb

To calculate first column width, I do:

table.width - second_column.widht - Vscrollwidth if scrollbar is visible
table.width - second_column.widht if scrollbar is NOT visible

In both cases, I've seen that the first column has ALWAYS 192 as width dimension.
It seems that tbEditor.ColWidth("Word") assignment is not considered!

Info: I call FixScrollBars function from another module (the Main module), after calling the .Show method for the form that contains the table.
I do this because If I call FixScrollBars in the Show method of the form that has the table, I've noticed that the scrollbars are not detected, infact VScrollVisible is always False!

Someone has a solution?

[ghale]

No idea about this issue?

[agraham]

If you take a screen shot and blow it up you can see that the Width of a table includes the two pixel wide vertical borders at each side so the display area of a Table is four pixels less than Width property. The same is true for the Height.