User Tools

Site Tools


set3dlook_set_3d_window_look_.htm
Navigation:  Language Reference > 13 - Built-in Functions >====== SET3DLOOK (set 3D window look) ====== Previous pageReturn to chapter overviewNext page

NewC7.jpg

SET3DLOOK( switch )

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)

set3dlook_set_3d_window_look_.htm.txt · Last modified: 2021/04/15 15:57 (external edit)