Code: Alles auswählen
METHOD mk_dialog:erzeugeAbZuButton(getlist,wennZuBedingung,wennAbBedingung,Action1,Action2)
::nOben := 200
@ ::nOben,2 DCPUSHBUTTON;
ACTION Action1;
CAPTION "<";
CARGO "AN";
OBJECT ::oPbZu;
PARENT ::oRahmenAbZu;
SIZE 30,::nPbHoehe;
WHEN wennZuBedingung
::nOben += ::nPbHoehe + 5
@ ::nOben,2 DCPUSHBUTTON;
ACTION action2;
CAPTION ">";
CARGO "AN";
OBJECT ::oPbAb;
PARENT ::oRahmenAbZu;
SIZE 30,::nPbHoehe;
WHEN wennAbBedingung
RETURN self
Aufgerufen werden soll die Methode so:
Code: Alles auswählen
oDialogZusatz:erzeugeAbZuButton(getlist,Len(oDialogZusatz:aZertifikateAuswahl) > 0,! (oDialogZusatz:oZertifikate2Monteur:nArea)->(Eof()),keineAhnung,keineahnung)
Eigentlich müßte das ja unter DataDriven fallen!?