11 Form design: Fields - dropdown

VERSIONS: All

SUBJECT: Make a dropdown field dropup

BY: BERTIL ISBERG and BILL HANNAN

ISSUE:
The dropdown list will not be visible from where the form stops!

Add code.

List object

const window
Const
    ctupMoveAmount = 1000
endConst

var window

Var
	lix, liyOpen, liw, lih longInt
endVar

open event

method open(var eventInfo Event)
container.getposition(liX,liYOpen,liW,liH)
endmethod

depart event

method depart(var eventInfo MoveEvent)
var
   pt point
endvar
doDefault
pt.setX(liX)
pt.setY(liYopen)
container'position=pt
endmethod

action event

method action(var eventInfo ActionEvent)
var
pt point
endvar
pt.setX(liX)
pt.setY(liYopen-ctUpMoveAmount)
switch
    case eventInfo.id() = EditDropDownList:
	container'position=pt
endSwitch
endmethod

Notes:

You have to have one more object with TabStop = True.

Also watch out for containers above the dropup field. The list may be moved inside a container which could prevent it from being restored.

To index