testdialog.res

vc环境下对pro/engineer 进行二次开发的小例子。示例演示了对话框的开发方法。

(Dialog testdialog
     (Components
         (PushButton                          DefaultButton)
         (PushButton                     OK)
         (PushButton                     Cancel)
     )
    (Resources
         (DefaultButton.Label                 "DefaultButton")
         (DefaultButton.TopOffset             4)
         (DefaultButton.BottomOffset          4)
         (DefaultButton.LeftOffset            4)
         (DefaultButton.RightOffset           4)
         (OK.Label                       "OK")
         (OK.TopOffset                   4)
         (OK.BottomOffset                4)
         (OK.LeftOffset                  4)
         (OK.RightOffset                 4)
         (Cancel.Label                   "Cancel")
         (Cancel.TopOffset               4)
         (Cancel.BottomOffset            4)
         (Cancel.LeftOffset              4)
         (Cancel.RightOffset             4)
         (.Label                         "test dialog function")
         (.StartLocation                      5)
         (.Layout
             (Grid (Rows 1 1) (Cols 1)
                 DefaultButton
                 (Grid (Rows 1) (Cols 1 1)
                     OK                     Cancel
                 )
             )
         )
     )
)