aaabalkDlg.vel

dialog aaabalkDlg {      ?  
       Title "Pelare / Balk (aaabalk)  (c) BTB AB versin 1.0"
       Help "aaabalk"
       Wform FMmenu { 
               Wradiobox RBshape { 
                       Button "Synlig kant" 
                       Button "Dold kant"
                       Horizontal 
               } 
               Woptionmenu OMshape { 
                       Button "IPE" 
                       Button "HEA"
                       Button "HEB"
               }
               Woptionmenu OMhea { 
                       Button "100"
                       Button "120"
                       Button "140" 
                       Button "160" 
                       Button "180" 
                       Button "200" 
                       Button "220" 
                       Button "240" 
                       Button "260" 
                       Button "280" 
                       Button "300" 
                       Button "320" 
                       Button "340" 
                       Button "360" 
                       Button "400" 
                       Button "450" 
                       Button "500" 
                       Button "550" 
                       Button "600" 
                       Button "700" 
                       Button "800" 
                       Button "900" 
                       Button "1000" 
                       Manage
               }
               Woptionmenu OMheb { 
                       Button "100"
                       Button "120"
                       Button "140" 
                       Button "160" 
                       Button "180" 
                       Button "200" 
                       Button "220" 
                       Button "240" 
                       Button "260" 
                       Button "280" 
                       Button "300" 
                       Button "320" 
                       Button "340" 
                       Button "360" 
                       Button "400" 
                       Button "450" 
                       Button "500" 
                       Button "550" 
                       Button "600" 
                       Button "700" 
                       Button "800" 
                       Button "900" 
                       Button "1000" 
                       Manage
               }
               Woptionmenu OMipe { 
                       Button "80"
                       Button "100"
                       Button "120" 
                       Button "140" 
                       Button "160" 
                       Button "180" 
                       Button "200" 
                       Button "220" 
                       Button "240" 
                       Button "270" 
                       Button "300" 
                       Button "330" 
                       Button "360" 
                       Button "400" 
                       Button "450" 
                       Button "500" 
                       Button "550" 
                       Button "600" 
                       Manage
               }
               Wlabel Llength {
                       Label "Längd"
               }
               Wltext Tlength {
                       Width 75
               }
               Wdbquery QYmaterial {
                       Label "Material"
                       History 1
                       Mask Mmaterial
               }
               Wlabel OMrotl {
                       Label "Lutning"
               }
               Wtext Trotl {
                   Width 50
               }
               Wlabel Lrotp {
                   Width 50
                   Label "Plan"
               }
               Wtext Trotp {
                   Width 50
               }
               Wlabel Lrote {
                   Width 50
                   Label "Egen axel"
               }
               Wtext Trote {
                   Width 50
               } 
               Wlabel Lkapning {
                       Label "Kapvinkel"
               }
               Woptionmenu OMkap1 {
                       Button "Ök X+"
                       Button "Ök X-"
                       Button "Ök Y+"
                       Button "Ök Y-"
               }
               Wtext Tkap1 {
                   Width 50
               }
               Woptionmenu OMkap2 {
                       Button "Uk X+"
                       Button "Uk X-"
                       Button "Uk Y+"
                       Button "Uk Y-"
               }
               Wtext Tkap2 {
                   Width 50
               }
       }

////////////////////

       RBshape {
           Attach UILeft 12
       }
       OMshape {
           Action ValueChanged "HEA" OMhea Manage
           Action ValueChanged "HEB" OMheb Manage
           Action ValueChanged "IPE" OMipe Manage
           Attach UITop RBshape 10
       }
       QYmaterial {
           Attach UILeft RBshape 50
       }
////////
       OMhea {
           Attach UITop RBshape 10
           Attach UILeft OMshape 5
       }
       OMheb {
           Attach UITop RBshape 10
           Attach UILeft OMshape 5
       }
       OMipe {
           Attach UITop RBshape 10
           Attach UILeft OMshape 5
       }
       Llength {
           Attach UITop RBshape 20
           Attach UILeft OMshape 120
       }
       Tlength {
           Attach UITop RBshape 15
           Attach UILeft Llength
       }
//////////////////////////////////

       OMrotl {
           Attach UITop OMshape 25
           Attach UILeft 15
       }
       Trotl {
           Attach UITop OMrotl 10
           Attach UILeft 15
       }
       Lrotp {
           Attach UITop OMshape 25
           Attach UILeft OMrotl 20
       }
       Trotp {
           Attach UITop OMrotl 10
           Attach UILeft OMrotl 20
       }
       Lrote {
           Attach UITop OMshape 25
           Attach UILeft OMrotl 80
       }
       Trote {
           Attach UITop OMrotl 10
           Attach UILeft OMrotl 85
       }
/////////////////////////////////////////

       Lkapning {
           Attach UITop Trotl 10           
           Attach UILeft 13
       }
       OMkap1 {
           Attach UITop Lkapning 5
           Attach UILeft 
       }
       Tkap1 {
           Attach UITop Lkapning 10
           Attach UILeft OMkap1 10
       }
       OMkap2 {
           Attach UITop Lkapning 5
           Attach UILeft Tkap1 10
       }
       Tkap2 {
           Attach UITop Lkapning 10
           Attach UILeft OMkap2 10
       }

}