Die Listboxen waren in der V2004 neu und alle Optionen haben mich schier erschlagen. Jedes Element der Listbox und die Listbox selber konnten eine Methode aufrufen. Die vielen Optionen machen überhaupt keinen Sinn. Das führt zu einem Durcheinander und ist nicht wartbar. Inzwischen wird die gesamte Listbox in einer Projektmethode verarbeitet und sonst nirgends.
Die Listbox vom Typ Array hat nur einen Objektnamen, ihr wird keine Variable zugewiesen. Das ist der Code, den mein Makro zur Verwaltung der Listbox in die Projektmethode einsetzt:
: ($what=“lb_ObjBücher__@“)
Case of
: ($what=“@_Init“)
$N:=0
// Array definieren
: ($what=“@_Fill“)
BUCH_Mngr („lb_ObjBücher_Init“)
// Arrays füllen
: ($what=“@_Action“)
$countRow_L:=LISTBOX Get number of rows(*;$lb_ObjBücher)
LISTBOX GET CELL POSITION(*;$lb_ObjBücher;$column_L;$row_L;$P_column)
Case of
: (Form event=On Selection Change)
: (Form event=On Double Clicked)
: (Form event=On Data Change)
Else
End case
Else
$keinDollarWhat_b:=True
End case
Vor der Anzeige der Listbox rufe ich
BUCH_Mngr („lb_ObjBücher_Fill“)
und in On Unload räume ich die Listbox so auf
BUCH_Mngr („lb_ObjBücher_Init“)
Nur der Listbox selber ist eine Methode zugewiesen
BUCH_Mngr („lb_ObjBücher_Action“)
So sieht der Code aus, nachdem er mit Leben gefüllt ist
$keinDollarWhat_b schickt mir eine Meldung, wenn ich weitere Aktionen verwende wie BUCH_Mngr („lb_ObjBücher_Update“) und noch keinen Code dazu eingefügt habe.
Listboxes were new with V2004 and the options looked overwhelming. Every element of the listbox and the listbox itself could have a method attached. Distributing logic all over the place makes no sense at all. It creates a mess and is not maintainable. After a couple of experiments I’m down to run all code in a single projectmethod.
A listbox of type array does have no variable attached, only the objectname is important. This is the code-fragment, a macro inserts into the project method to handle all aspects of using listboxes:
: ($what=“lb_ObjBücher__@“)
Case of
: ($what=“@_Init“)
$N:=0
// define arrays
: ($what=“@_Fill“)
BUCH_Mngr („lb_ObjBücher_Init“)
// fill arrays
: ($what=“@_Action“)
$countRow_L:=LISTBOX Get number of rows(*;$lb_ObjBücher)
LISTBOX GET CELL POSITION(*;$lb_ObjBücher;$column_L;$row_L;$P_column)
Case of
: (Form event=On Selection Change)
: (Form event=On Double Clicked)
: (Form event=On Data Change)
Else
End case
Else
$keinDollarWhat_b:=True
End case
Before displaying the listbox I call
BUCH_Mngr („lb_ObjBücher_Fill“)
in On Unload I clear up like this
BUCH_Mngr („lb_ObjBücher_Init“)
The listbox itself calls the projectmethode. No code anywhere else
BUCH_Mngr („lb_ObjBücher_Action“)
Here a picture of some code to handle a listbox
$keinDollarWhat_b sends me a message, if I implemented actions like BUCH_Mngr („lb_ObjBücher_Update“) without writing the code necessary.