getnewdir.res

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

!----------------------------------------------------------------------
!
!  Dialog for creating new directory
!
!  25-Feb-99  I-03-04  dvs  $$1 created
!  08-Dec-06  L-01-22  HMR  $$2 Set maximum name length to 255.
!  09-Mar-07  L-01-28  HMR  $$3 Changed label to "New Folder".
!  30-May-07  L-01-32  jas  $$4 Fixed titlebar buttons and resizing
!
!----------------------------------------------------------------------

(Dialog getnewdir
    (Components
        (PushButton                     Cancel_button)
        (PushButton                     OK_button)
        (Label                          current_dir_label)
        (Label                          cur_dir_value)
        (Label                          new_dir_label)
        (InputPanel                     new_dir_input)
    )

    (Resources
        (Cancel_button.Label            "Cancel")
        (Cancel_button.UseStandardWidth 1)
        (OK_button.Label                "OK")
        (OK_button.BottomOffset         0)
        (OK_button.UseStandardWidth     1)
        (current_dir_label.Label        "Current Directory:")
        (current_dir_label.AttachLeft   True)
        (current_dir_label.Alignment    0)
        (current_dir_label.BottomOffset 0)
        (cur_dir_value.Label            "/...")
        (cur_dir_value.AttachLeft       True)
        (cur_dir_value.AttachRight      True)
        (cur_dir_value.Alignment        0)
        (cur_dir_value.BottomOffset     0)
        (new_dir_label.Label            "New Directory:")
        (new_dir_label.Alignment        0)
        (new_dir_input.MaxLen           255)
        (new_dir_input.AlwaysHasFocus   True)
        (.Label                         "New Folder")
        (.Focus                         "new_dir_input")
        (.TopOffset                     5)
        (.BottomOffset                  5)
        (.LeftOffset                    5)
        (.RightOffset                   5)
        (.DefaultButton                 "OK_button")
        (.SystemMenuButton              False)
        (.AcceleratorCode               65536)
        (.RememberSize                  False)
        (.CloseButton                   False)
        (.LowerButton                   False)
        (.Layout
            (Grid (Rows 1) (Cols 1 0)
                (Grid (Rows 1 1 1) (Cols 1)
                    current_dir_label
                    cur_dir_value
                    (Grid (Rows 1) (Cols 0 1)
                        new_dir_label
                        new_dir_input
                    )
                )
                (Grid (Rows 0 0 1) (Cols 0)
                    OK_button
                    Cancel_button
                )
            )
        )
    )
)