entweder stehe ich jetzt fürchterlich auf dem Schlauch, oder...
Ich habe ein DCSTATIC als Groupbox. Auf diesem sind mehrere DCGET plaziert. Ich bin davon ausgegangen, dass die DCGETs disabled werden, wenn ich die Groupbox über die WHEN-Klausel disable... Das ist aber nicht so. Auch ein dc_getrefresh hilft nicht...
Mache ich da einen Denkfehler, stehe ich auf dem Schlauch, oder...
Code: Alles auswählen
#include "dcdialog.ch"
#include "appevent.ch"
function Appsys()
return NIL
procedure main()
local getlist := {}, getoptions := {}, lRet, oStatic, cVar1 := space(10), cVar2 := space(10), cVar3 := space(10), lAktiv := .t.
@ 3,3 DCSTATIC TYPE XBPSTATIC_TYPE_GROUPBOX SIZE 20, 4 OBJECT oStatic WHEN {|| lAktiv}
@ 1, 1 DCGET cVar1 PARENT oStatic // dieses get ist immer enabled
@ 2, 1 DCGET cVar2 PARENT oStatic WHEN {|| lAktiv} // so geht es
@ 9, 3 DCGET cVar3
@ 10, 3 DCPUSHBUTTON SIZE 10, 2 CAPTION "um" ACTION {|| if(lAktiv, lAktiv := .f., lAktiv := .t.), dc_getrefresh() }
DCGETOPTIONS TITLE "Test"
DCREAD GUI TO lRet OPTIONS getoptions FIT
RETURN