pgl_slideshow.res

来自「proe5.0野火版下载(中文版免费下载)」· RES 代码 · 共 287 行

!* 
!* 05-Feb-98 i-03-02  SNR   %%1  Created
!* 23-Nov-99 i-03-22  SNR   %%2  Added help text.
!* 24-Jan-03 J-03-41  mgs   $$1  Move to pgl sub dir, fix trail support, cleanup
!* 30-May-03 K-01-08  mgs   $$2  Fix slideshow button names to pgl vers
!* 

(Dialog pgl_slideshow
    (Components
        (SubLayout                      ControlLayout)
        (SubLayout                      PlayControlLayout)
        (MenuBar                        MenuBar1
                                        File)
        (PushButton                     Close)
    )

    (Resources
        (Close.Label                    "Close")
        (.Label                         "Slide Show")
        (.Layout
            (Grid (Rows 1 0 1) (Cols 1)
                ControlLayout
                PlayControlLayout
                Close
            )
        )
    )
)

(Layout ControlLayout
    (Components
        (SubLayout                      ImageListLayout)
        (SubLayout                      ImageControlLayout)
    )

    (Resources
        (.Decorated                     True)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.AttachTop                     True)
        (.AttachBottom                  True)
        (.TopOffset                     3)
        (.BottomOffset                  3)
        (.LeftOffset                    3)
        (.RightOffset                   3)
        (.Layout
            (Grid (Rows 1) (Cols 1 0)
                ImageListLayout
                ImageControlLayout
            )
        )
    )
)

(Layout ImageListLayout
    (Components
        (List                           ImageList)
    )

    (Resources
        (ImageList.VisibleRows          15)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.AttachTop                     True)
        (.AttachBottom                  True)
        (.LeftOffset                    4)
        (.RightOffset                   2)
        (.Layout
            (Grid (Rows 1) (Cols 1)
                ImageList
            )
        )
    )
)

(Layout ImageControlLayout
    (Components
        (PushButton                     MoveUp)
        (PushButton                     MoveDown)
        (PushButton                     Insert)
        (PushButton                     AppendDir)
        (PushButton                     Delete)
        (PushButton                     ClearAll)
    )

    (Resources
        (MoveUp.Label                   "Move Up")
        (MoveUp.HelpText                "Move the selected entry up one position.")
        (MoveUp.TopOffset               2)
        (MoveUp.BottomOffset            2)
        (MoveDown.Label                 "Move Down")
        (MoveDown.HelpText              "Move the selected entry down one position.")
        (MoveDown.BottomOffset          2)
        (Insert.Label                   "Insert...")
        (Insert.HelpText                "Insert one or more images.")
        (Insert.BottomOffset            2)
        (AppendDir.Label                "Append Dir...")
        (AppendDir.HelpText             "Append all images from selected directory.")
        (AppendDir.BottomOffset         2)
        (Delete.Label                   "Delete")
        (Delete.HelpText                "Delete selected entry.")
        (Delete.BottomOffset            2)
        (ClearAll.Label                 "Clear All")
        (ClearAll.HelpText              "Delete all entries.")
        (ClearAll.BottomOffset          2)
        (.AttachTop                     True)
        (.LeftOffset                    2)
        (.RightOffset                   4)
        (.Layout
            (Grid (Rows 1 1 1 1 1 1) (Cols 1)
                MoveUp
                MoveDown
                Insert
                AppendDir
                Delete
                ClearAll
            )
        )
    )
)

(Layout PlayControlLayout
    (Components
        (SubLayout                      PlayConfigLayout)
        (SubLayout                      PlayLayout)
        (SubLayout                      MoveLayout)
    )

    (Resources
        (.Decorated                     True)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.TopOffset                     3)
        (.BottomOffset                  3)
        (.LeftOffset                    3)
        (.RightOffset                   3)
        (.Layout
            (Grid (Rows 1 1 1) (Cols 1)
                PlayLayout
                MoveLayout
                PlayConfigLayout
            )
        )
    )
)

(Layout PlayConfigLayout
    (Components
        (CheckButton                    Repeat)
        (CheckButton                    Reverse)
        (CheckButton                    Resize)
        (CheckButton                    CacheImages)
        (Label                          DelayLabel)
        (SpinBox                        Delay)
    )

    (Resources
        (Repeat.Bitmap                  "pgl_repeat")
        (Repeat.HelpText                "Repeat the slide show forever.")
        (Repeat.ButtonStyle             1)
        (Repeat.AttachLeft              True)
        (Repeat.AttachRight             True)
        (Reverse.Bitmap                 "pgl_reverse")
        (Reverse.HelpText               "Reverse directions of the slideshow when at the start or end.")
        (Reverse.ButtonStyle            1)
        (Reverse.AttachLeft             True)
        (Reverse.AttachRight            True)
        (Resize.Bitmap                  "pgl_resize")
        (Resize.HelpText                "Resize image retaining the aspect ratio to match display window size.")
        (Resize.ButtonStyle             1)
        (Resize.AttachLeft              True)
        (Resize.AttachRight             True)
        (CacheImages.Bitmap             "pgl_cache")
        (CacheImages.HelpText           "Retain images in memory.")
        (CacheImages.ButtonStyle        1)
        (CacheImages.AttachLeft         True)
        (CacheImages.AttachRight        True)
        (DelayLabel.Label               "Pause")
        (DelayLabel.AttachLeft          True)
        (DelayLabel.AttachRight         True)
        (DelayLabel.LeftOffset          4)
        (DelayLabel.RightOffset         4)
        (Delay.MinInteger               0)
        (Delay.MaxInteger               20)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.Layout
            (Grid (Rows 1) (Cols 1 1 1 1 1 1)
                Repeat
                Reverse
                Resize
                CacheImages
                DelayLabel
                Delay
            )
        )
    )
)

(Layout PlayLayout
    (Components
        (PushButton                     PlayRev)
        (PushButton                     Stop)
        (PushButton                     Play)
    )

    (Resources
        (PlayRev.Bitmap                 "pgl_playrev")
        (PlayRev.HelpText               "Play slideshow in reverse direction.")
        (PlayRev.AttachLeft             True)
        (PlayRev.AttachRight            True)
        (Stop.Bitmap                    "pgl_stop")
        (Stop.HelpText                  "Stop the slideshow.")
        (Stop.AttachLeft                True)
        (Stop.AttachRight               True)
        (Play.Bitmap                    "pgl_play")
        (Play.HelpText                  "Play the slideshow.")
        (Play.AttachLeft                True)
        (Play.AttachRight               True)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.Layout
            (Grid (Rows 1) (Cols 1 1 1)
                PlayRev
                Stop
                Play
            )
        )
    )
)

(Layout MoveLayout
    (Components
        (PushButton                     Rewind)
        (PushButton                     SkipBack)
        (PushButton                     SkipForward)
        (PushButton                     ForwardWind)
    )

    (Resources
        (Rewind.Bitmap                  "pgl_rew")
        (Rewind.HelpText                "Position slideshow at start.")
        (Rewind.AttachLeft              True)
        (Rewind.AttachRight             True)
        (SkipBack.Bitmap                "pgl_skiprev")
        (SkipBack.HelpText              "Position slideshow at previous entry.")
        (SkipBack.AttachLeft            True)
        (SkipBack.AttachRight           True)
        (SkipForward.Bitmap             "pgl_skipf")
        (SkipForward.HelpText           "Position slideshow at next entry.")
        (SkipForward.AttachLeft         True)
        (SkipForward.AttachRight        True)
        (ForwardWind.Bitmap             "pgl_ff")
        (ForwardWind.HelpText           "Position slideshow at end.")
        (ForwardWind.AttachLeft         True)
        (ForwardWind.AttachRight        True)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.Layout
            (Grid (Rows 1) (Cols 1 1 1 1)
                Rewind
                SkipBack
                SkipForward
                ForwardWind
            )
        )
    )
)

(MenuPane File
    (Components
        (PushButton                     FileOpen)
        (PushButton                     FileAppend)
        (PushButton                     FileSave)
    )

    (Resources
        (FileOpen.Label                 "&Open...")
        (FileOpen.HelpText              "Load a slideshow definition.")
        (FileAppend.Label               "&Append...")
        (FileAppend.HelpText            "Append a slideshow definition to the existing slideshow.")
        (FileSave.Label                 "&Save...")
        (FileSave.HelpText              "Save the slideshow definition to file.")
        (.Label                         "&File")
    )
)