example6_4.res

protoolkit 程序设计电子书籍

!UI对话框示例程序资源文件:Example6_4.res
(Dialog Example6_4
     (Components  !对话框元件声明
         (SubLayout                      Layout1)
         (PushButton                     Cancel)
         (Separator                      Separator1)
        
     )
    (Resources    !对话框资源(属性定义)

         !Cancel按钮属性定义
         (Cancel.Label                   "返回(&E)")
		 (Cancel.Bitmap                  "cl_cancel")
         (Cancel.TopOffset               4)
         (Cancel.BottomOffset            4)
         (Cancel.LeftOffset              4)
         (Cancel.RightOffset             4)
         (Separator1.TopOffset           4)

         (.Label                         "Example6_4") !对话框标题
		 (.StartLocation                  3) !右侧的中部
         (.Layout  	!对话框元件的布局
             (Grid (Rows 1 1 1) (Cols 1) 
               Layout1  
		       Separator1                	
               Cancel        
             )
         )
     )
 )

(Layout Layout1
    (Components
         (List						List1)
         (Label						ListLabel)
		 (OptionMenu                VisitType)
         (Label						VisitTypeLabel)

    )
    (Resources
         (List1.AttachLeft			True)
         (List1.TopOffset			0)
         (List1.BottomOffset		4)
         (List1.LeftOffset			4)
         (List1.RightOffset			4)
         (List1.VisibleRows			8)
		 (List1.Columns				15)
		 (List1.ListType			1)
		 (List1.ColumnLabel			"序号	类型名	类型	标识号")
         (List1.TabStops			2 8 12	16)

         (ListLabel.AttachLeft		True)
         (ListLabel.LeftOffset		4)
         (ListLabel.TopOffset		4)
         (ListLabel.BottomOffset	2)
         (ListLabel.Label		    "特征信息:")

         (VisitTypeLabel.AttachLeft		True)
         (VisitTypeLabel.LeftOffset		4)
         (VisitTypeLabel.TopOffset		4)
         (VisitTypeLabel.BottomOffset	4)
         (VisitTypeLabel.Label		    "类型选择")

         (VisitType.AttachLeft			True)
         (VisitType.LeftOffset			0)
         (VisitType.TopOffset			4)
         (VisitType.BottomOffset		4)
         (VisitType.Names              "1"
									   "2"
									   "3"
									   "4"
									   "5")

         (VisitType.Labels             "全部特征"
									   "曲面"
									   "基准面"
									   "基准轴"
									   "坐标系")
		 (VisitType.Columns				10)


         
         (.Layout
            (Grid (Rows 1 1 1) (Cols 1)
				 ListLabel
                 List1
				 (Grid (Rows 1) (Cols 1 1)
                   VisitTypeLabel
				   VisitType
				 )
            )
        )
    )
)