pgl_render_room.res

来自「proe5.0野火版下载(中文版免费下载)」· RES 代码 · 共 845 行 · 第 1/3 页

!* 17-Apr-00 j-01-06  mgs   %%1  Split from render_room
!* 06-Jun-00 j-03-01  mgs   $$1  Make non resizable, remove texture label
!* 21-Jul-00          mgs        Remove graphics window
!* 26-Jul-00          mgs        Remove display panel and texture info
!* 02-May-01          mgs        Add scale thumbwheel
!* 11-May-01          rmi        Fixed revision history
!* 09-Jul-01 J-03-03  mgs   $$2  Correct names and labels of tab
!* 20-Sep-01 J-03-08  bay   $$3  Correct checkbox label for wall2 
!* 05-Nov-01 J-03-BSS dac   $$4  remove File->New
!* 07-Feb-02 J-03-19  mgs   $$5  Always displayed, wireframe/shaded options
!*                    dac        Close should be centered
!*                    mgs   $$6  Cleanups
!* 27-Feb-02 J-03-20  mgs   $$7  Add default orientation/size menu buttons
!* 28-Mar-02 J-03-22  mgs   $$8  Remove Always visible
!* 10-May-02 J-03-25  bay   $$9  Add "New" option 
!* 14-Aug-02 J-03-33  mgs   $$10 Change label to Walls displayed
!* 09-Dec-02 J-03-39  ssko  $$11 Updated Tool Tips
!* 12-Dec-02 J-03-39+ mgs   $$12 Fix typo
!* 20-Feb-06 L-01-04  aamm  $$13 Add PushButtons for Move...to Model
!* 21-Mar-06 L-01-05  aamm  $$14 Add LockToModelCB RotateReset
!* 19-Apr-06 L-01-07  aamm  $$15 Remove period(.) from Tooltips
!* 21-Apr-06 L-01-08  aamm  $$16 Change against model to against shaded model
!* 16-Jan-07 L-01-24  SMM   $$17 Updated helptexts to remove periods
!* 24-Apr-07 L-01-31  GHJ   $$18 Changed Room Textures to Room Appearances

(Dialog pgl_render_room
    (Components
        (SubLayout                      RoomTextures)
        (CheckButton                    LockToModelCB)
        (Tab                            TPosition
                                        Position
                                        Rotate
                                        Display)
        (MenuBar                        MenuBar
                                        FileMenu
                                        RoomMenu)
        (PushButton                     StdClose)
    )

    (Resources
        (LockToModelCB.Label            "Lock Room to Model")
        (LockToModelCB.HelpText         "Lock room to model geometry.")
        (LockToModelCB.AttachLeft       True)
        (LockToModelCB.LeftOffset       8)
        (TPosition.Decorated            True)
        (TPosition.TopOffset            3)
        (TPosition.BottomOffset         3)
        (TPosition.LeftOffset           3)
        (TPosition.RightOffset          3)
        (StdClose.Label                 "Close")
        (StdClose.HelpText              "Close this dialog with changes")
        (StdClose.TruncateLabel         False)
        (.Bitmap                        "room.bif")
        (.Label                         "Room Editor")
        (.StartLocation                 1)
        (.MinimizeButton                True)
        (.TopOffset                     5)
        (.BottomOffset                  5)
        (.LeftOffset                    0)
        (.RightOffset                   0)
        (.DefaultButton                 "StdClose")
        (.MinOverlayDepth               8)
        (.Layout
            (Grid (Rows 1 1 1 1) (Cols 1)
                RoomTextures
                LockToModelCB
                TPosition
                StdClose
            )
        )
    )
)

(Layout RoomTextures
    (Components
        (SubLayout                      RoomSamples)
    )

    (Resources
        (.Label                         "Room Appearances")
        (.Decorated                     True)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.AttachTop                     True)
        (.AttachBottom                  True)
        (.TopOffset                     3)
        (.BottomOffset                  3)
        (.LeftOffset                    3)
        (.RightOffset                   3)
        (.Layout
            (Grid (Rows 1) (Cols 1)
                RoomSamples
            )
        )
    )
)

(Layout RoomSamples
    (Components
        (CheckButton                    CBWall2)
        (CheckButton                    CBCeiling)
        (CheckButton                    CBFloor)
        (SubLayout                      Wall1Layout)
        (SubLayout                      Wall4Layout)
    )

    (Resources
        (CBWall2.Bitmap                 "60x60blank")
        (CBWall2.HelpText               "Wall2 Appearance, Click to Modify")
        (CBWall2.ButtonStyle            2)
        (CBWall2.KeyboardInput          True)
        (CBWall2.TopOffset              1)
        (CBWall2.BottomOffset           1)
        (CBWall2.LeftOffset             1)
        (CBWall2.RightOffset            1)
        (CBCeiling.Bitmap               "60x60blank")
        (CBCeiling.HelpText             "Ceiling Appearance, Click to Modify")
        (CBCeiling.ButtonStyle          2)
        (CBCeiling.KeyboardInput        True)
        (CBCeiling.TopOffset            1)
        (CBCeiling.BottomOffset         1)
        (CBFloor.Bitmap                 "60x60blank")
        (CBFloor.HelpText               "Floor Appearance, Click to Modify")
        (CBFloor.ButtonStyle            2)
        (CBFloor.KeyboardInput          True)
        (CBFloor.TopOffset              1)
        (CBFloor.BottomOffset           1)
        (.TopOffset                     0)
        (.BottomOffset                  0)
        (.LeftOffset                    0)
        (.RightOffset                   0)
        (.Layout
            (Grid (Rows 1) (Cols 1 1 1)
                Wall1Layout
                (Grid (Rows 1 1 1) (Cols 1)
                    CBCeiling
                    CBWall2
                    CBFloor
                )
                Wall4Layout
            )
        )
    )
)

(Layout Wall1Layout
    (Components
        (CheckButton                    CBWall1)
    )

    (Resources
        (CBWall1.Bitmap                 "60x60blank")
        (CBWall1.HelpText               "Wall1 Appearance, Click to Modify")
        (CBWall1.ButtonStyle            2)
        (CBWall1.KeyboardInput          True)
        (CBWall1.LeftOffset             1)
        (CBWall1.RightOffset            1)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.AttachTop                     True)
        (.AttachBottom                  True)
        (.Layout
            (Grid (Rows 1) (Cols 1)
                CBWall1
            )
        )
    )
)

(Layout Wall4Layout
    (Components
        (CheckButton                    CBWall3)
        (CheckButton                    CBWall4)
    )

    (Resources
        (CBWall3.Bitmap                 "60x60blank")
        (CBWall3.HelpText               "Wall3 Appearance, Click to Modify")
        (CBWall3.ButtonStyle            2)
        (CBWall3.KeyboardInput          True)
        (CBWall3.LeftOffset             1)
        (CBWall3.RightOffset            1)
        (CBWall4.Bitmap                 "60x60blank")
        (CBWall4.HelpText               "Wall4 Appearance, Click to Modify")
        (CBWall4.ButtonStyle            2)
        (CBWall4.KeyboardInput          True)
        (CBWall4.LeftOffset             1)
        (CBWall4.RightOffset            1)
        (.AttachLeft                    True)
        (.AttachRight                   True)
        (.AttachTop                     True)
        (.AttachBottom                  True)
        (.Layout
            (Grid (Rows 1) (Cols 1 1)
                CBWall3
                CBWall4
            )
        )
    )
)

(Layout Position
    (Components
        (SubLayout                      Size)
        (SubLayout                      Scale)
    )

    (Resources
        (.Label                         "&Position")
        (.Layout
            (Grid (Rows 1 1 1) (Cols 1)
                Size
                (Pos 3 1)
                Scale
            )
        )
    )
)

(Layout Size
    (Components
        (Label                          LCeiling)
        (ThumbWheel                     SCeiling)
        (InputPanel                     ICeiling)
        (PushButton                     BCeiling)
        (Label                          LFloor)
        (ThumbWheel                     SFloor)
        (InputPanel                     IFloor)
        (PushButton                     BFloor)
        (Label                          LWall1)
        (ThumbWheel                     SWall1)
        (InputPanel                     IWall1)
        (PushButton                     BWall1)
        (Label                          LWall2)
        (ThumbWheel                     SWall2)
        (InputPanel                     IWall2)
        (PushButton                     BWall2)
        (Label                          LWall3)
        (ThumbWheel                     SWall3)
        (InputPanel                     IWall3)
        (PushButton                     BWall3)
        (Label                          LWall4)
        (ThumbWheel                     SWall4)
        (InputPanel                     IWall4)
        (PushButton                     BWall4)
    )

    (Resources
        (LCeiling.Label                 "Ceiling")
        (LCeiling.HelpText              "Modify ceiling position")
        (LCeiling.AttachLeft            True)
        (LCeiling.Alignment             0)
        (LCeiling.TopOffset             8)
        (LCeiling.BottomOffset          0)
        (LCeiling.LeftOffset            4)
        (LCeiling.RightOffset           4)
        (SCeiling.HelpText              "Modify ceiling position")
        (SCeiling.Decorated             False)
        (SCeiling.AttachLeft            True)
        (SCeiling.AttachRight           True)
        (SCeiling.TopOffset             8)
        (SCeiling.BottomOffset          0)
        (SCeiling.LeftOffset            4)
        (SCeiling.RightOffset           4)
        (ICeiling.Columns               5)
        (ICeiling.HelpText              "Modify ceiling position")
        (ICeiling.TopOffset             8)
        (ICeiling.BottomOffset          0)
        (ICeiling.LeftOffset            2)
        (ICeiling.RightOffset           4)
        (BCeiling.Bitmap                "move_to.bif")
        (BCeiling.HelpText              "Align Ceiling against shaded model")
        (BCeiling.AttachLeft            True)
        (BCeiling.TopOffset             8)
        (LFloor.Label                   "Floor")
        (LFloor.HelpText                "Modify floor position")
        (LFloor.AttachLeft              True)
        (LFloor.Alignment               0)
        (LFloor.TopOffset               2)
        (LFloor.BottomOffset            0)
        (LFloor.LeftOffset              4)
        (LFloor.RightOffset             4)