confirm.res

protoolkit 程序设计电子书籍

! 17-Apr-00  J-01-06  SJB  $$1 Created.
! 17-May-00  J-01-08  SJB  $$2 Modified.
! 16-Jun-00  J-01-10  SJB  $$3 Modified.

(Dialog confirm
    (Components
        (PushButton                     yes_btn)
        (PushButton                     no_btn)
        (Label                          msg)
        (Separator                      Separator1)
    )

    (Resources
        (yes_btn.Label                  "Yes")
        (yes_btn.AttachTop              True)
        (yes_btn.AttachBottom           True)
        (yes_btn.TopOffset              10)
        (yes_btn.BottomOffset           10)
        (no_btn.Label                   "No")
        (no_btn.AttachTop               True)
        (no_btn.AttachBottom            True)
        (no_btn.TopOffset               10)
        (no_btn.BottomOffset            10)
        (msg.Bitmap                     "UI question image")
        (msg.Label                      "This is a UI confirmation box. ")
        (msg.Columns                    10)
        (msg.AttachTop                  True)
        (msg.AttachBottom               True)
        (msg.TopOffset                  10)
        (msg.BottomOffset               10)
        (Separator1.AttachBottom        True)
        (Separator1.TopOffset           0)
        (Separator1.BottomOffset        0)
        (Separator1.LeftOffset          0)
        (Separator1.RightOffset         0)
        (.Label                         "CONFIRMATION")
        (.StartLocation                 5)
        (.DefaultButton                 "yes_btn")
        (.RememberSize                  False)
        (.Layout
            (Grid (Rows 1 1 0) (Cols 1)
                msg
                Separator1
                (Grid (Rows 0) (Cols 1 1 1)
                    yes_btn
                    (Pos 1 3)
                    no_btn
                )
            )
        )
    )
)