gr_gettc.gml

来自「开放源码的编译器open watcom 1.6.0版的源代码」· GML 代码 · 共 30 行

.gfunc gettextcolor
.if '&lang' eq 'C' .do begin
short _FAR _gettextcolor( void );
.do end
.el .do begin
integer*2 function _gettextcolor()
.do end
.gfuncend
.desc begin
The &func &routine returns the pixel value of the current text color.
This is the color used for displaying text with the
.kw _outtext
and
.kw _outmem
&routines..
The default text color value is set to 7 whenever a new video mode is selected.
.* .pp
.* .im gr_txtco
.desc end
.return begin
The &func &routine returns the pixel value of the current text color.
.return end
.see begin
.seelist &function. _settextcolor _setcolor _outtext _outmem
.see end
.grexam begin eg_gettc.&langsuff
.grexam end
.class &grfun
.system