XProfan

SetTrueColor 1
WindowStyle 538
window 0,0 - 400,400
Declare Label_m&, text$,x%
Label_m&=create(Dialog,%hwnd,,100,50, 630,610)
usefont MS Sans Serif,16,0,0,0,0
setdialogfont 1
Declare LB_Box1&,LB_DR1&,LB_DR2&,LB_DR11&,LB_DR12&,b1&
LB_Box1& = Create(GroupBox,Label_m&,Druckvorgaben,250,380,160,158)
Create(Text,LB_Box1&,Zeile,20,24,60,26)
Create(Text,LB_Box1&,Reihe,90,24,60,26)
LB_DR11&=Create(RadioButton,LB_Box1&,Einzeldruck,30,80,100,26)
LB_DR12&=Create(RadioButton,LB_Box1&,Seriendruck,30,130,100,26)
SetCheck LB_DR12&,1
b1&=Create(Button,Label_m&,SpinEdit neu,500,400,100,25)
x%=4
text$=1;1;+str$(x%)
SpinEdit zeichnen
DestroyWindow(LB_DR1&)
LB_DR1&=Create(SpinEdit,LB_Box1&,text$,20,50,48,24)

while 1

    waitinput
    Case %key= 2 : BREAK

    If GetFocus(b1&)

        x%=x%+4
        text$=1;1;+str$(x%)
        SpinEdit neu zeichnen
        DestroyWindow(LB_DR1&)
        LB_DR1&=Create(SpinEdit,LB_Box1&,text$,20,50,48,24)

    EndIf

endWhile

end