spur.res

来自「pro/toolkit开发的齿轮自动生成的程序」· RES 代码 · 共 112 行

(Dialog spur
     (Components
         (PushButton                               Ok)
         (PushButton                               Cancel)
         (SubLayout                                GearLayout)
         
     )
    
    (Resources
         (Ok.Label                                 "确定")
         (Ok.TopOffset                             4)
         (Ok.BottomOffset                          4)
         (Ok.LeftOffset                            4)
         (Ok.RightOffset                           4)

         (Cancel.Label                             "取消")
         (Cancel.TopOffset                         4)
         (Cancel.BottomOffset                      4)
         (Cancel.LeftOffset                        4)
         (Cancel.RightOffset                       4)
         (.Label                                   "直齿圆柱齿轮参数化设计")
         (.StartLocation                           5)
         (.Layout
             (Grid (Rows 1 1 ) (Cols 1)
                GearLayout
                (Grid (Rows 1 ) (Cols 1 1)
                Ok 
		  Cancel
                )		
              )   
         )
     )
 )
(Layout  GearLayout
     (Components
          (Label                                    teethnumlabel)
          (InputPanel                               teethnum)
          (Label                                    pitchlabel)
          (InputPanel                               pitch)
          (Label                                    anglelabel)
          (InputPanel                               angle)
          (Label                                    widthlabel)
          (InputPanel                               width)
          
      )
    (Resources
         (teethnumlabel.Label                       "齿数")
         (teethnumlabel.TopOffset                   4)
         (teethnumlabel.BottomOffset                4)
         (teethnumlabel.LeftOffset                  4)
         (teethnumlabel.RightOffset                 4)
         (teethnum.InputType                        2)
         (teethnum.TopOffset                        4)
         (teethnum.BottomOffset                     4)
         (teethnum.LeftOffset                       4)
         (teethnum.RightOffset                      4)
         (teethnum.Columns                          6)

         (pitchlabel.Label                          "模数")
         (pitchlabel.TopOffset                      4)
         (pitchlabel.BottomOffset                   4)
         (pitchlabel.LeftOffset                     4)
         (pitchlabel.RightOffset                    4)
         (pitch.InputType                           3)
         (pitch.TopOffset                           4)
         (pitch.BottomOffset                        4)
         (pitch.LeftOffset                          4)
         (pitch.RightOffset                         4)
         (pitch.Columns                             6)
         
         (anglelabel.Label                         "压力角")
         (anglelabel.TopOffset                      4)
         (anglelabel.BottomOffset                   4)
         (anglelabel.LeftOffset                     4)
         (anglelabel.RightOffset                    4)
         (angle.InputType                           3)
         (angle.TopOffset                           4)
         (angle.BottomOffset                        4)
         (angle.LeftOffset                          4)
         (angle.RightOffset                         4) 
         (angle.Columns                             6)

         (widthlabel.Label                         "宽度")
         (widthlabel.TopOffset                      4)
         (widthlabel.BottomOffset                   4)
         (widthlabel.LeftOffset                     4)
         (widthlabel.RightOffset                    4)
         (width.InputType                           3)
         (width.TopOffset                           4)
         (width.BottomOffset                        4)
         (width.LeftOffset                          4)
         (width.RightOffset                         4)
         (width.Columns                             6)

         (.Label                                   "输入参数")
         (.Decorated                               True)

          (.Layout
             (Grid (Rows 1 1 1 1) (Cols 1 1)
                 teethnumlabel
                 teethnum
                 pitchlabel
                 pitch
                 anglelabel
                 angle
                 widthlabel
                 width
		) 
	   )
      )
  )