example5_4.res

protoolkit 程序设计电子书籍

!UI对话框示例程序资源文件:Example5_4.res
(Dialog Example5_4
    (Components
        (SubLayout                      Layout1)
        (SubLayout                      Layout2)
        (Separator                      sep1)
        (PushButton                     OK)
        (PushButton                     Cancel)

    )
    (Resources
        (sep1.AttachTop                  True)
        (sep1.TopOffset                  0)
        (sep1.BottomOffset               0)
        (sep1.LeftOffset                 0)
        (sep1.RightOffset                0)
		
		(OK.Bitmap                      "cl_ok")
		(OK.Label                       "OK")
		(Cancel.Bitmap                  "cl_cancel")
		(Cancel.Label                   "Cancel")

        (.Label                         "Example5_4")
        (.Focus                         "OK")
        (.StartLocation                 6)
        (.TopOffset                     4)
        (.BottomOffset                  4)
        (.LeftOffset                    4)
        (.RightOffset                   4)
        (.DefaultButton                 "OK")
        (.Layout
            (Grid (Rows 1 1 1 1) (Cols 1)
                Layout1
                Layout2
				sep1
                (Grid (Rows 1) (Cols 1 1)
                    OK
					Cancel
			    )
            )
        )
    )
)
(Layout Layout1
    (Components
        (Label                          dim1)
        (InputPanel                     input1)
        (ThumbWheel                     wheel1)
    )
    (Resources
        (dim1.Label                      "尺寸")
        (dim1.Columns                    2)
        (dim1.AttachLeft                 True)
        (dim1.AttachRight                True)
        (dim1.RightOffset                0)
        (dim1.LeftOffset                 4)

        (input1.Columns                   5)
        (InputPanel_D1.InputType          3)
        (input1.Digits                    3)

        (wheel1.AttachLeft               True)
        (wheel1.AttachRight              True)
        (wheel1.Length                   6)
        (wheel1.LeftOffset               2)
        (wheel1.RightOffset              4)
		!(wheel1.Integer                 50)

        (.Layout
            (Grid (Rows 1) (Cols 1 1 1)
                dim1
                input1
                wheel1
            )
        )
    )
)
(Layout Layout2
    (Components
        (Slider                         SensSlid)
        (Label                          Label_sens)
        (Label                          Label_image)
    )

    (Resources
        (SensSlid.HelpText              "调整指轮的灵敏度")
        (SensSlid.AttachLeft            True)
        (SensSlid.AttachRight           True)
        (SensSlid.MinInteger            1)
        (SensSlid.MaxInteger            100)
        (SensSlid.Length                8)
		(SensSlid.Integer               50)
        (SensSlid.Tracking              True)
        (SensSlid.TopOffset             2)
        (SensSlid.BottomOffset          2)
        (Label_sens.Label                   "灵敏度: 50")
        (Label_sens.AttachLeft              True)
        (Label_sens.AttachRight             True)
        (Label_sens.RightOffset             2)
        (Label_image.Bitmap                  "slider_tr1")
        (Label_image.AttachRight             True)
        (Label_image.RightOffset             4)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.AttachTop                     True)
        (.Layout
            (Grid (Rows 1 1) (Cols 1)
                Label_image
                (Grid (Rows 1) (Cols 1 1)
                  Label_sens
                  SensSlid
				)
            )
        )
    )
)