Home › Forums › Problems and solutions in GDL › Graphical UI and parameters list › Problem whith my program in interface page › Reply To: Problem whith my program in interface page
my basic interface scrip work nice but is very long :
i=0
1:
IF GerMaterial_1 > 1 THEN
UI_OUTFIELD “Tissu Extérieur”,15, i ,200,20
UI_INFIELD “GerMaterial_1”, 140,i,240,20
else i=i
goto 2
2:
IF GerMaterial_2 > 1 THEN
UI_OUTFIELD “Tissu intérieur”,15,i+25 ,200,20
UI_INFIELD “GerMaterial_2”, 140,i+25,240,20
else i=i-25
goto 3
3:
IF GerMaterial_3 > 1 THEN
UI_OUTFIELD “Acoudoir”,15,i+50,200,20
UI_INFIELD “GerMaterial_3”, 140,i+50,240,20
else i=i-25
goto 4
4:
IF GerMaterial_4 > 1 THEN
UI_OUTFIELD “Passepoil”,15,i+75,200,20
UI_INFIELD “GerMaterial_4”, 140,i+75,240,20
else i=i-25
goto 5
5:
IF GerMaterial_5 > 1 THEN
UI_OUTFIELD “Tissu Cale reins”,15,i+100,200,20
UI_INFIELD “GerMaterial_5”, 140,i+100,240,20
else i=i-25
goto 6
6:
IF GerMaterial_6 > 1 THEN
UI_OUTFIELD “Tissu tétiere”,15,i+125,200,20
UI_INFIELD “GerMaterial_6”, 140,i+125,240,20
else i=i-25
goto 7
7:
IF GerMaterial_7 > 1 THEN
UI_OUTFIELD “Tissu assise”,15,i+150,200,20
UI_INFIELD “GerMaterial_7”, 140,i+150,240,20
else i=i-25
goto 8
8:
IF GerMaterial_8 > 1 THEN
UI_OUTFIELD “Bois horizontal”,15,i+175,200,20
UI_INFIELD “GerMaterial_8”, 140,i+175,240,20
else i=i-25
goto 9
9:
IF GerMaterial_9 > 1 THEN
UI_OUTFIELD “Bois vertical”,15,i+200,200,20
UI_INFIELD “GerMaterial_9”, 140,i+200,240,20
else i=i-25
goto 10
10:
IF GerMaterial_10 > 1 THEN
UI_OUTFIELD “Métal”,15,i+225,200,20
UI_INFIELD “GerMaterial_10”, 140,i+225,240,20
else i=i-25
goto 11
11:
IF GerMaterial_11 > 1 THEN
UI_OUTFIELD “Verre”,15,i+250,200,20
UI_INFIELD “GerMaterial_11”, 140,i+250,240,20
else i=i-25
goto 12
12:
IF GerMaterial_11 > 1 THEN
UI_OUTFIELD “Plateau”,15,i+275,200,20
UI_INFIELD “GerMaterial_12”, 140,i+275,240,20
else i=i-25
goto 13
13:
IF GerMaterial_13 > 1 THEN
UI_OUTFIELD “Pieds”,15,i+300,200,20
UI_INFIELD “GerMaterial_13”, 140,i+300,240,20
else i=i-25
goto 14
14:
IF GerMaterial_14 > 1 THEN
UI_OUTFIELD “Tissus rideaux”,15,i+325,200,20
UI_INFIELD “GerMaterial_14”, 140,i+325,240,20
else i=i-25
goto 15
15:
IF GerMaterial_15 > 1 THEN
UI_OUTFIELD “Boutons”,15,i+350,200,20
UI_INFIELD “GerMaterial_15”, 140,i+350,240,20
ENDIF
Tonio