TScrollBar's fly away, when an other TWindow becomes the focus.

[paule32]

this is the normal view (when the blue window have the focus):

this is the view, when the green window have the focus.
you can see, that the TScrollBar's are missing ?

And this is the view on focus the blue window.
See the TScrollBar at right side of the TListBox - it will be change when I resize the window:

The TMyListBox, which I suib class (inherited from TListBox) will be stay on the place (it moves with resize of the blue window) but it does not change the size itself. So, when the blue window becomes a minimum, the TMyListBox will be override the bottom Frame. But it is okay - it work fine.

Thanks for reading, and watching
paule32

[magiblot]

Hi Jens,

The disappearing scrollbars are a design feature of Turbo Vision. In your case, the logic that is being applied is in TEditor::setState and TListViewer::setState. These methods hide or show the scrollbars on purpose.

In order to change this behaviour, you should override these methods in your own subclass. I believe the simplest solution may be to always call the show() method on the scrollbars, like this:

void TMyEditor::setState(ushort aState, bool enable)
{
    TEditor::setState(aState, enable);
    if (hScrollBar)
        hScrollBar->show();
    if (vScrollBar)
        vScrollBar->show();
}

void TMyListBox::setState(ushort aState, bool enable)
{
    TListBox::setState(aState, enable);
    if (hScrollBar)
        hScrollBar->show();
    if (vScrollBar)
        vScrollBar->show();
}

When it comes to the size of the list box, the issue is again the property growMode. In this case you should set it to gfGrowHiX | gfGrowHiY.

[paule32]

This is my ListBox code:

class TMyListBox : public TListBox {
public:
    TMyListBox(
        const TRect& listBounds,
        int   cols ,
        TScrollBar * listScrollBar):
        TListBox( listBounds,  cols, listScrollBar) {

        growMode = gfGrowHiX | gfGrowHiY;
    }
};

when I use this, the Listbox will overwrite the rest of the window:

[paule32]

okay, I have done it with this Code:

class TMyListBox : public TListBox {
public:
    TMyListBox(
        const TRect& listBounds,
        int   cols ,
        TScrollBar * listScrollBar):
        TListBox( listBounds,  cols, listScrollBar) {

        growMode = gfGrowHiX | gfGrowHiY | gfGrowLoX;
    }
};