Hier nochmal ein wenig die Werbetrommel gerührt. Kann ja nicht angehen,
dass eine so tolle Lib sang- und klanglos im Board-Rauschen.
Mit IupGetParam() ist man in der Lage, relativ unkompliziert und schnell einen
Settings-Dialog (vergleichbar mit einem Propertygrid) zu zaubern:
Code: Alles auswählen
XIncludeFile "iup\iup.pb"
EnableExplicit
IupOpen()
IupControlsOpen()
Define Params.s
Define p01 = 1
Define p02 = 3456
Define p03.f = 3.543
Define p04 = 192
Define p05.f = 0.5
Define p06.f = 90
Define p07.s{100} = "string text"
Define p08 = 1
Define p09 = 2
Define p10.s{100} = "123"
Define p11.s{100} = "255 0 128"
Define p12.s{100} = "Courier, 24"
Define p13.s{500} = "Zeile1" +#LF$ + "Zeile2"
Params = "Bt %u[OK, Abbrechen]" + #LF$ +
"Separator 1 %t" + #LF$ +
"Boolean (p01): %b[Nein,Ja]" + #LF$ +
"Integer (p02): %i" + #LF$ +
"Real 1 (p03): %r" + #LF$ +
"Separator 2 %t" + #LF$ +
"Integer (p04): %i[0,255]" + #LF$ +
"Real 2 (p05): %r[-1.5,1.5,0.05]" + #LF$ +
"Separator 3 %t" + #LF$ +
"Angle (p06): %a[0,360]" + #LF$ +
"String (p07): %s" + #LF$ +
"Options (p08): %o|item0|item1|item2|" + #LF$ +
"List (p09): %l|item0|item1|item2|item3|item4|item5|item6|" + #LF$ +
"File (p10): %f[OPEN|*.bmp;*.jpg|CURRENT|NO|NO]" + #LF$ +
"Color (p11): %c{Color Tip}" + #LF$ +
"Font (p12): %n" + #LF$ +
"Separator 4 %t" + #LF$ +
"Multiline (p13): %m" + #LF$
If IupGetParam(@"Einstellungen", 0, 0,
@Params,
@p01, @p02, @p03, @p04, @p05, @p06, @p07, @p08, @p09, @p10, @p11, @p12, @p13)
Debug "p01: " + p01
Debug "p02: " + p02
Debug "p03: " + p03
Debug "p04: " + p04
Debug "p05: " + p05
Debug "p06: " + p06
Debug "p07: " + p07
Debug "p08: " + p08
Debug "p09: " + p09
Debug "p10: " + p10
Debug "p11: " + p11
Debug "p12: " + p12
Debug "p13: " + p13
EndIf
und so sieht das ganze aus:
(Man beachte die Slider hinter 'Integer (04)' und 'Real 2' und den Jogdial hinter 'Angle')
Grüße ... Kiffi