Welcome to Open Discussion

2007-09-21
2012-08-14
  • Help please,

    I have an OODIALOG question.

    I am trying to get horizontal scrolling to work with a LISTBOX. Below is the relevant bit of code.

    It is curious that the GetListWidth returns zero which would suggest that SetListWidth does not work.

    Could anyone offer an explanation?

    Dave Mullard

    d = .MyDialog~new()

    rc=d~Execute("SHOWTOP")

    Say "Finished"

    exit

    ::requires oodialog.cls
    ::requires oodwin32.cls

    ::class MyDialog subclass UserDialog INHERIT AdvancedControls

    ::method Init
    self~Init:super
    rc=self~CreateCenter(300, 200,'Title')
    return

    ::method DefineDialog

    self~AddListBox(55 ,'LIST1',Self~SizeX-295,Self~Sizey-175,100,100,"HSCROLL")
    self~SetListWidth(55 ,300)
    say self~GetListWidth(55)
    return