Module: _vidmode Library: Clipper 5.3
This module contains the following functions and procedures:
Note: Because this is raw decompiler output, the code is closer
to that seen in a .PPO file, rather than a .PRG file. In other
words, you must allow for the preprocessor conversions normally
performed based on the contents of STD.CH and other .CH files
#include "common.ch"
#include "inkey.ch"
//---------------------------------------------------[top]-
// _GETNUMCOL( Arg1 )
//
function _GETNUMCOL( Arg1 )
local Local1, Local2 := At("/", Arg1)
if ( Local2 > 1 )
Arg1 := SubStr(Arg1, 1, Local2 - 1)
elseif ( Local2 == 1 )
Arg1 := ""
endif
do case
case Arg1 == "N+"
Local1 := 8
case Arg1 == "B+"
Local1 := 9
case Arg1 == "G+"
Local1 := 10
case Arg1 == "BG+"
Local1 := 11
case Arg1 == "R+"
Local1 := 12
case Arg1 == "RB+"
Local1 := 13
case Arg1 == "GR+"
Local1 := 14
case Arg1 == "W+"
Local1 := 15
case Arg1 == "BG"
Local1 := 3
case Arg1 == "RB"
Local1 := 5
case Arg1 == "GR"
Local1 := 6
case Arg1 == "B"
Local1 := 1
case Arg1 == "G"
Local1 := 2
case Arg1 == "R"
Local1 := 4
case Arg1 == "W"
Local1 := 7
otherwise
Local1 := 0
endcase
return Local1
//---------------------------------------------------[top]-
// _ISGRAPHIC
//
function _ISGRAPHIC
if ( ISNIL( Set(40) ) )
return .F.
endif
if ( Set(40) == 3 )
return .F.
endif
return .T.
//---------------------------------------------------[top]-
// _SETVIDEOM( Arg1 )
//
function _SETVIDEOM( Arg1 )
local Local1 := gmode(Arg1)
if ( ISNIL( Local1 ) )
return 0
endif
return 1
//---EOF
Use your Browser's BACK button to return to Function Listings