checkbox

[Rolf Ramacher]

Ich möchte eine checkbox auf .,t. setzen d.h. geklickt - aSatz[4] beinhaltet die Information ob .t. oder .f.
es kommt kein Fehler, aber die checkbox wird nicht gesetzt,

Code: Alles auswählen

For x = 1 to Len(aSatz)
		oChk := XbpCheckBox():new( drawingArea,, aPos, {200,20} )
		oChk:caption :=aSatz[x][2]+space(2)+var2lchar(aSatz[x][3])
		oChk:tabStop := .T.
		If aSatz[x][4] = .t.
			oChk:setdata(.t.)
		Endif
		oChk:create()
		AAdd(aOChk,oChk)
		
		aPos[01]+=220
		If x = 3
			aPos[01]:=20
			aPos[02]-=30
		Endif
	Next x

[Martin Altmann]

Hallo Rolf,
ein :SetData() funzt erst nach denm :Create()
Abgesehen davon kannst Du Dein if-Konstrukt knicken:

Code: Alles auswählen

oChk:setdata( aSatz[x][4] )

Viele Grüße,
Martin

[Rolf Ramacher]

danke martin

[brandelh]

Wenn du diesen Wert einmalig bei der Erstellung belegen willst, geht das mit der iVar :selection vor dem :create(), das ist schneller als ein setData() danach (wenn auch nicht spürbar)

In der Instanzvariable :selection ist ein logischer Wert gespeichert, mit dem der Zustand einer Checkbox bei der ersten Anzeige definiert wird.