button_edit.res

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

! 14-Jul-98 I-01-14 SCL   $$1 Created.
! 10-Aug-98 I-01-16 XKA   $$2 Changed BackgroundColor from White (15)
!			      to SunkenBackground (22)
! 15-Sep-98 I-01-20 SCL   $$3 Set .KeyboardInput for tool-style buttons
! 25-Oct-06 L-01-19 Hanoch $$4 Application blocking

(Dialog button_edit
    (Components
        (SubLayout                      lay_term)
        (SubLayout                      lay_pic)
        (SubLayout                      lay_colors)
        (SubLayout                      lay_move)
        (SubLayout                      lay_preview)
    )

    (Resources
        (.Label                         "Button Editor")
        (.DialogStyle                   3)
        (.Resizeable                    False)
        (.TopOffset                     4)
        (.BottomOffset                  4)
        (.LeftOffset                    4)
        (.RightOffset                   4)
        (.Layout
            (Grid (Rows 1 1) (Cols 1)
                (Grid (Rows 0 1) (Cols 1 1)
                    lay_pic
                    lay_colors
                    lay_move
                    lay_preview
                )
                lay_term
            )
        )
    )
)

(Layout lay_term
    (Components
        (PushButton                     OK)
        (PushButton                     Cancel)
        (PushButton                     Clear)
    )

    (Resources
        (OK.Label                       "OK")
        (Cancel.Label                   "Cancel")
        (Clear.Label                    "Clear")
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.AttachTop                     True)
        (.AttachBottom                  True)
        (.TopOffset                     4)
        (.BottomOffset                  3)
        (.Layout
            (Grid (Rows 1) (Cols 1 1 1)
                OK
                Cancel
                Clear
            )
        )
    )
)

(Layout lay_pic
    (Components
        (DrawingArea                    Image)
    )

    (Resources
        (Image.DrawingWidth             181)
        (Image.DrawingHeight            181)
        (.Label                         "Picture")
        (.Decorated                     True)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.AttachTop                     True)
        (.AttachBottom                  True)
        (.BottomOffset                  2)
        (.RightOffset                   2)
        (.Layout
            (Grid (Rows 1) (Cols 1)
                Image
            )
        )
    )
)


(Layout lay_colors
    (Components
        (DrawingArea                    basic_colors)
        (DrawingArea                    Erase)
        (Label                          lbl_erase)
        (Label                          Label6)
    )

    (Resources
        (basic_colors.Decorated         False)
        (basic_colors.AttachTop         True)
        (basic_colors.DrawingWidth      84)
        (basic_colors.DrawingHeight     84)
        (basic_colors.TopOffset         2)
        (basic_colors.BottomOffset      2)
        (basic_colors.LeftOffset        2)
        (basic_colors.RightOffset       2)
        (Erase.Decorated                False)
        (Erase.AttachRight              True)
        (Erase.DrawingWidth             20)
        (Erase.DrawingHeight            20)
        (Erase.ForegroundColor          10)
        (Erase.TopOffset                5)
        (Erase.BottomOffset             1)
        (Erase.LeftOffset               1)
        (Erase.RightOffset              2)
        (lbl_erase.Label                "Erase:")
        (Label6.Label                   "  ")
        (.Label                         "Colors")
        (.Decorated                     True)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.AttachTop                     True)
        (.AttachBottom                  True)
        (.BottomOffset                  2)
        (.LeftOffset                    2)
        (.Layout
            (Grid (Rows 0 1 1) (Cols 1)
                basic_colors
                (Grid (Rows 1) (Cols 1 1)
                    lbl_erase
                    Erase
                )
                Label6
            )
        )
    )
)



(Layout lay_move
    (Components
        (PushButton                     MoveRight)
        (PushButton                     MoveLeft)
        (PushButton                     MoveUp)
        (PushButton                     MoveDown)
    )

    (Resources
        (MoveRight.Bitmap               "right_arrow_11x11")
        (MoveRight.ButtonStyle          2)
        (MoveRight.AttachLeft           True)
        (MoveRight.KeyboardInput        True)
        (MoveLeft.Bitmap                "left_arrow_11x11")
        (MoveLeft.ButtonStyle           2)
        (MoveLeft.AttachRight           True)
        (MoveLeft.KeyboardInput         True)
        (MoveUp.Bitmap                  "up_arrow_11x11")
        (MoveUp.ButtonStyle             2)
        (MoveUp.KeyboardInput           True)
        (MoveDown.Bitmap                "down_arrow_11x11")
        (MoveDown.ButtonStyle           2)
        (MoveDown.KeyboardInput         True)
        (.Label                         "Move")
        (.Decorated                     True)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.AttachTop                     True)
        (.AttachBottom                  True)
        (.TopOffset                     2)
        (.RightOffset                   2)
        (.Layout
            (Grid (Rows 1) (Cols 1 0 1)
                MoveLeft
                (Grid (Rows 1 1) (Cols 0)
                    MoveUp
                    MoveDown
                )
                MoveRight
            )
        )
    )
)

(Layout lay_preview
    (Components
        (PushButton                     Preview)
    )

    (Resources
        (Preview.Bitmap                 "empty20x20")
        (Preview.ButtonStyle            2)
        (Preview.AttachLeft             True)
        (Preview.KeyboardInput          True)
        (.Label                         "Preview")
        (.Decorated                     True)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.AttachTop                     True)
        (.AttachBottom                  True)
        (.TopOffset                     2)
        (.LeftOffset                    2)
        (.Layout
            (Grid (Rows 1) (Cols 1)
                Preview
            )
        )
    )
)