| **Navigation:**  [[introduction.htm|Language Reference]] > 13 - Built-in Functions >====== SET3DLOOK (set 3D window look) ====== | [[set  initiate sequential file processing .htm|{{btn_prev_n.gif|Previous page}}]][[introduction.htm|{{btn_home_n.gif|Return to chapter overview}}]][[setclipboard  set windows clipboard contents .htm|{{btn_next_n.gif|Next page}}]] |
|  ||

{{newc7.jpg|NewC7.jpg}}

**SET3DLOOK(** //switch// **)**

{{blk2blue.jpg|blk2blue.jpg}}

| **SET3DLOOK** | Toggles three-dimensional look and feel. |
| //switch// | An integer constant switching the 3D look off (0) and on (1). |

The **SET3DLOOK** procedure sets up the program to display a three-dimensional look and feel. The default program setting is 3D enabled. On a WINDOW, the GRAY attribute causes the controls to display with a three-dimensional appearance. Controls in the TOOLBAR are always displayed with the three-dimensional look, unless disabled by SET3DLOOK. When three-dimensional look is disabled by SET3DLOOK, the GRAY attribute has no effect.

SET3DLOOK(0) turns off the three-dimensional look and feel. SET3DLOOK(1) turns on the three-dimensional look and feel. Values other than zero or one are reserved for future use.

**Example:**

**MainWin APPLICATION('My Application'),SYSTEM,MAX,ICON('MyIcon.ICO'),STATUS,HVSCROLL,RESIZE**

**     MENUBAR**

**      MENU('&File'),USE(?FileMenu)**

**       ITEM('&Open...'),USE(?OpenFile)**

**       ITEM('&Close'),USE(?CloseFile),DISABLE**

**       ITEM('Turn off 3D Look'),USE(?Toggle3D),CHECK**

**       ITEM('E&xit'),USE(?MainExit)**

**      END**

**     END**

**    END**

** CODE**

** OPEN(MainWin)**

** ACCEPT **

**  CASE ACCEPTED()**

**  OF ?Toggle3D**

**   IF MainWin$?Toggle3D{PROP:text} = 'Turn off 3D Look'   !If on**

**   ****SET3DLOOK****(0)                                          !Turn off**

**    MainWin$?Toggle3D{PROP:text} = 'Turn on 3D Look'      !and change text**

**   ELSE                                                   !Else**

**   ****SET3DLOOK****(1)                                          !Turn on**

**    MainWin$?Toggle3D{PROP:text} = 'Turn off 3D Look'     ! and change text**

**   END**

**  OF ?OpenFile**

**   START(OpenFileProc)**

**  OF ?MainExit **

**   BREAK **

**  END**

** END**

** CLOSE(MainWin)**