03ac58b17b
* bin/commit.hb
* config/detect.mk
* config/detfun.mk
* config/detplat.mk
* config/dir.mk
* config/dirsh.mk
* config/global.mk
* config/globsh.mk
* config/instsh.mk
* config/lang.hb
* config/lang2po.hb
* config/po2lang.hb
* config/postinst.hb
* contrib/hbexpat/tests/tohash.prg
* contrib/hbformat/utils/hbformat.ini
* contrib/hbmisc/hbedit.prg
* contrib/hbmxml/tests/testmxml.prg
* contrib/hbnetio/utils/hbnetio/_console.prg
* contrib/hbnetio/utils/hbnetio/_winsvc.prg
* contrib/hbnetio/utils/hbnetio/hbnetio.prg
* contrib/hbnetio/utils/hbnetio/netiomgm.hb
* contrib/hbwin/tests/ole.prg
* contrib/hbwin/tests/oletst2.js
* contrib/hbwin/tests/oletst2.vbs
* contrib/hbxpp/doc/en/binnumx.txt
* contrib/hbxpp/doc/en/dbcmdx.txt
* contrib/xhb/htmutil.prg
* contrib/xhb/tfile.prg
* contrib/xhb/tframe.prg
* contrib/xhb/thtm.prg
* ChangeLog.txt
* debian/copyright
* doc/class_tp.txt
* doc/hdr_tpl.txt
* doc/xhb-diff.txt
* LICENSE.txt
* package/harbour-wce.spec.in
* package/harbour-win.spec.in
* package/harbour.spec
* package/mpkg_rpm_wce.sh
* package/mpkg_rpm_win.sh
* package/mpkg_rpm.sh
* package/mpkg_src.sh
* package/mpkg_ver.sh
* src/rtl/achoice.prg
* src/rtl/getsys53.prg
* src/rtl/tgetlist.prg
* src/rtl/tlabel.prg
* src/rtl/tmenusys.prg
* tests/hbdoc.prg
* tests/langmsg.prg
* tests/rto_get.prg
* tests/rto_tb.prg
+ doc/en/ati.txt
+ doc/en/dirdrive.txt
+ doc/en/hashfunc.txt
+ doc/en/hbtoken.txt
+ doc/en/left.txt
+ doc/en/proc.txt
+ doc/en/strtran.txt
+ doc/en/transfrm.txt
+ doc/en/typefile.txt
* doc/en/*
* more partial sync with 3.4 fork
74 lines
2.2 KiB
Plaintext
74 lines
2.2 KiB
Plaintext
/* $DOC$
|
|
$AUTHOR$
|
|
Copyright 2000 Alejandro de Garate <alex_degarate@hotmail.com>
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
SetMode()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Environment
|
|
$ONELINER$
|
|
Change the video mode to a specified number of rows and columns
|
|
$SYNTAX$
|
|
SetMode( <nRows>, <nCols> ) --> lSuccess
|
|
$ARGUMENTS$
|
|
<nRows> is the number of rows for the video mode to set.
|
|
|
|
<nCols> is the number of columns for the video mode to set.
|
|
$RETURNS$
|
|
SetMode() returns true if the video mode change was successful;
|
|
otherwise, it returns false.
|
|
$DESCRIPTION$
|
|
SetMode() is a function that change the video mode depend on the
|
|
video card and monitor combination, to match the number of rows and
|
|
columns specified.
|
|
Note that there are only a real few combination or rows/cols pairs
|
|
that produce the video mode change.
|
|
The followings are available for GTDOS:
|
|
|
|
<table-noheader>
|
|
12 rows x 40 columns 12 rows x 80 columns
|
|
25 rows x 40 columns 25 rows x 80 columns
|
|
28 rows x 40 columns 28 rows x 80 columns
|
|
50 rows x 40 columns 43 rows x 80 columns
|
|
50 rows x 80 columns
|
|
</table>
|
|
|
|
The follow modes are available to Windows
|
|
|
|
<table-noheader>
|
|
25 rows x 40 columns 25 rows x 80 columns
|
|
50 rows x 40 columns 43 rows x 80 columns
|
|
50 rows x 80 columns
|
|
</table>
|
|
|
|
Some modes only are available for color and/or VGA monitors.
|
|
Any change produced on the screen size is updated in the values
|
|
returned by MaxRow() and MaxCol().
|
|
$EXAMPLES$
|
|
// The first example change to a 12 lines of display mode:
|
|
IF SetMode( 12, 40 )
|
|
? "Hey man are you blind?"
|
|
ELSE
|
|
? "Mom, bring me my glasses!"
|
|
ENDIF
|
|
|
|
// Next example change to a 50 lines mode:
|
|
IF SetMode( 50, 80 )
|
|
? "This wonderful mode was successfully set"
|
|
ELSE
|
|
? "Wait. this monitor is not made of rubber!"
|
|
ENDIF
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
Some of these modes are not available in CA-Cl*pper
|
|
$PLATFORMS$
|
|
All
|
|
$SEEALSO$
|
|
MaxCol(), MaxRow()
|
|
$END$
|
|
*/
|