| Navigation: Language Reference > 13 - Built-in Functions >====== SET3DLOOK (set 3D window look) ====== |    |
SET3DLOOK( switch )
| 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)