uit_adb_get_input.res

proe5.0野火版下载(中文版免费下载)

!  History:  
!
!  Date      Release  Name   Ver.  Comments
!  --------- -------  -----  ----- --------------------------------------------
!  25-Feb-09 L-03-27  AlexM  $$1   Created.
!
!  INSERT COMMENT ABOVE THIS LINE
!  Do not forget to put "!" at the begining of each line in this comment block.

(Dialog uit_adb_get_input
    (Components
        (SubLayout                      inp_panel_lay)
        (Separator                      controlSep)
        (PushButton                     btnOK)
        (PushButton                     btnCancel)
    )

    (Resources
        (controlSep.AttachBottom        True)
        (controlSep.TopOffset           4)
        (controlSep.BottomOffset        0)
        (controlSep.LeftOffset          0)
        (controlSep.RightOffset         0)
        (btnOK.Label                    "OK")
        (btnOK.TopOffset                4)
        (btnOK.BottomOffset             4)
        (btnOK.LeftOffset               4)
        (btnOK.RightOffset              0)
        (btnCancel.Label                "Cancel")
        (btnCancel.TopOffset            4)
        (btnCancel.BottomOffset         4)
        (btnCancel.LeftOffset           2)
        (btnCancel.RightOffset          4)
        (.Label                         "Get Input")
        (.DialogStyle                   3)
        (.Focus                         "inp_panel")
        (.StartLocation                 5)
        (.Resizeable                    False)
        (.TopOffset                     5)
        (.BottomOffset                  5)
        (.LeftOffset                    5)
        (.RightOffset                   5)
        (.DefaultButton                 "btnOK")
        (.Layout
            (Grid (Rows 1 1 0) (Cols 1)
                inp_panel_lay
                controlSep
                (Grid (Rows 0) (Cols 1 1)
                    btnOK
                    btnCancel
                )
            )
        )
    )
)

(Layout inp_panel_lay
    (Components
        (InputPanel                     inp_panel)
    )

    (Resources
        (inp_panel.MaxLen               35)
        (inp_panel.Value                "new_name")
        (inp_panel.HelpText             "Rename the Menu or Cascade menu")
        (inp_panel.TopOffset            5)
        (inp_panel.BottomOffset         0)
        (inp_panel.LeftOffset           0)
        (inp_panel.RightOffset          0)
        (inp_panel.AutoHighlight        True)
        (.Label                         "Please input new label:")
        (.Decorated                     Mixed)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.AttachTop                     True)
        (.AttachBottom                  True)
        (.TopOffset                     10)
        (.BottomOffset                  10)
        (.LeftOffset                    7)
        (.RightOffset                   7)
        (.Layout
            (Grid (Rows 1) (Cols 1)
                inp_panel
            )
        )
    )
)