example6_1.res

protoolkit 程序设计电子书籍

!UI对话框示例程序资源文件:Example6_1.res
(Dialog Example6_1
     (Components  !对话框元件声明
         (SubLayout                      Layout1)
		 (InputPanel                     InputText)
         (Label                          InputTextLable)
		 (PushButton                     OK)
         (PushButton                     Cancel)
         (Separator                      Separator1)
        
     )
    (Resources    !对话框资源(属性定义)
         !OK按钮属性定义
         (OK.Label                       "OK")
		 (OK.Bitmap                      "cl_ok")
         (OK.TopOffset                   4)
         (OK.BottomOffset                4)
         (OK.LeftOffset                  4)
         (OK.RightOffset                 4)

         !Cancel按钮属性定义
         (Cancel.Label                   "Cancel")
		 (Cancel.Bitmap                  "cl_cancel")
         (Cancel.TopOffset               4)
         (Cancel.BottomOffset            4)
         (Cancel.LeftOffset              4)
         (Cancel.RightOffset             4)
		 !输入框标签“InputText”属性定义
         (InputTextLable.Label            "请输入零件名：")
         (InputTextLable.AttachLeft       True)
         (InputTextLable.LeftOffset       4)
         !输入框“InputText”属性定义
         (InputText.TopOffset        4)
         (InputText.BottomOffset     4)
         (InputText.LeftOffset       4)
         (InputText.RightOffset      4)
         (InputText.Value            "Part001")
 
  
        
         (.Label                         "Example6_1") !对话框标题
         
         (.Layout  	!对话框元件的布局
             (Grid (Rows 1 1 1 1 1) (Cols 1) 
               Layout1
			   InputTextLable            	
               InputText                 	
		       Separator1                	
                 (Grid (Rows 1) (Cols 1 1) 
                     OK             
                     Cancel         
                 )
             )
         )
     )
 )


(Layout Layout1
    (Components
         (RadioGroup                     SelectType)
    )
    (Resources
         !单选按钮组标签“SelectTypeLabel”属性定义
         (SelectTypeLabel.AttachLeft      True)
         (SelectTypeLabel.TopOffset       4)
         (SelectTypeLabel.BottomOffset    4)
         (SelectTypeLabel.LeftOffset      4)

         !单选按钮组“SelectType”属性定义
         (SelectType.Orientation         True)
         (SelectType.Names               "1"
                                         "2"
                                         "3")
         (SelectType.Labels              "创建新零件"
                                         "创建绘图"
                                         "测试通知函数")

        (.Label                         "类型选择")
        (.Decorated                     True)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.TopOffset                     4)
        (.BottomOffset                  4)
        (.LeftOffset                    4)
        (.RightOffset                   4)
        (.Layout
            (Grid (Rows 1) (Cols 1)
                 SelectType               
            )
        )
    )
)