example5_1.res

protoolkit 程序设计电子书籍

!UI对话框示例程序资源文件:sample.res
(Dialog sample
     (Components  !对话框元件声明
         (PushButton                     OK)
         (PushButton                     Cancel)
         (RadioGroup                     SelectType)
         (InputPanel                     InputText)
         (Label                          SelectTypeLabel)
         (Label                          InputTextLable)
         (Label                          ShowMessage)
         (CheckButton                    CheckButton1)
         (CheckButton                    CheckButton2)
         (Separator                      Separator1)
        
     )
    (Resources    !对话框资源(属性定义)
         !OK按钮属性定义
         (OK.Label                       "OK")
         (OK.TopOffset                   4)
         (OK.BottomOffset                4)
         (OK.LeftOffset                  4)
         (OK.RightOffset                 4)

         !Cancel按钮属性定义
         (Cancel.Label                   "Cancel")
         (Cancel.TopOffset               4)
         (Cancel.BottomOffset            4)
         (Cancel.LeftOffset              4)
         (Cancel.RightOffset             4)

         !单选按钮组标签“SelectTypeLabel”属性定义
         (SelectTypeLabel.Label           "选择基准面:")
         (SelectTypeLabel.BitMap          "datum_pln_toggle.bif")
         (SelectTypeLabel.AttachLeft      True)
         (SelectTypeLabel.TopOffset       4)
         (SelectTypeLabel.BottomOffset    4)
         (SelectTypeLabel.LeftOffset      4)

         !单选按钮组“SelectType”属性定义
         (SelectType.Orientation         True)
         (SelectType.Names               "Front"
                                         "Top"
                                         "Right")
         (SelectType.Labels              "正面(Front)"
                                         "顶面(Top)"
                                         "右面(Right)")
         (SelectType.LeftOffset          4)
         (SelectType.BottomOffset        4)

         !输入框标签“InputText”属性定义
         (InputTextLable.Label            "请输入文字:")
         (InputTextLable.AttachLeft       True)
         (InputTextLable.LeftOffset       4)
         !输入框“InputText”属性定义
         (InputText.TopOffset        4)
         (InputText.BottomOffset     4)
         (InputText.LeftOffset       4)
         (InputText.RightOffset      4)
         (InputText.HelpText         "Enter the string here.")
         !复选框“CheckButton1”属性定义
         (CheckButton1.Label             "Check1")
         (CheckButton1.Set               True)
         (CheckButton1.TopOffset         4)
         (CheckButton1.BottomOffset      4)
         (CheckButton1.LeftOffset        4)
         (CheckButton1.RightOffset       4)
         (CheckButton2.Label             "Check2")
         (CheckButton2.Set               True)
         (CheckButton2.TopOffset         4)
         (CheckButton2.BottomOffset      4)
         (CheckButton2.LeftOffset        4)
         (CheckButton2.RightOffset       4)
        
         !信息显示标签“ShowMessage”属性定义
         (ShowMessage.Label            "选择基准面:Front     ")
         (ShowMessage.BottomOffset        4)

        
         (.Label                         "UI对话框示例") !对话框标题
         
         (.Layout  	!对话框元件的布局
             (Grid (Rows 1 1 1 1 1 1 1 1) (Cols 1)  !8(行) 1(列）
                 SelectTypeLabel    	  	! 第1行
                 SelectType               	! 第2行
                 InputTextLable            	! 第3行
                 InputText                 	! 第4行
                 (Grid (Rows 1) (Cols 1 1) 	! 第5行:折分为两列
	              CheckButton1   !第5行第1列
	              CheckButton2   !第5行第2列
                 )
             	   ShowMessage	         	! 第6行
		           Separator1                	! 第7行
                 (Grid (Rows 1) (Cols 1 1)  	! 第8行:折分为两列
                     OK             !第8行第1列
                     Cancel         !第8行第2列
                 )
             )
         )
     )
 )