diff options
Diffstat (limited to 'rtl/os2/tests/modeinfo.pas')
| -rw-r--r-- | rtl/os2/tests/modeinfo.pas | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/rtl/os2/tests/modeinfo.pas b/rtl/os2/tests/modeinfo.pas new file mode 100644 index 0000000000..0832b6deee --- /dev/null +++ b/rtl/os2/tests/modeinfo.pas @@ -0,0 +1,42 @@ +program modeinfo; + +type viomodeinfo=record + cb:word; { length of the entire data structure } + fbType, { bit mask of mode being set } + color: byte; { number of colors (power of 2) } + col, { number of text columns } + row, { number of text rows } + hres, { horizontal resolution } + vres: word; { vertical resolution } + fmt_ID, { attribute format } + attrib: byte; { number of attributes } + buf_addr, + buf_length, + full_length, + partial_length:longint; + ext_data_addr:pointer; + end; + Pviomodeinfo=^viomodeinfo; + +function _VioGetMode (var Amodeinfo:viomodeinfo;viohandle:word):word;[C]; +function _VioSetMode (var Amodeinfo:viomodeinfo;viohandle:word):word;[C]; + +var mode:viomodeinfo; + +begin + mode.cb:=sizeof(mode); + writeln('getmode= ',_viogetmode(mode,0)); + writeln('cb= ',mode.cb); + writeln('fbtype= ',mode.fbtype); + writeln('color= ',mode.color); + writeln('col= ',mode.col); + writeln('row= ',mode.row); + writeln('hres= ',mode.hres); + writeln('vres= ',mode.vres); + writeln('fmt_ID= ',mode.fmt_ID); + writeln('attrib= ',mode.attrib); + writeln('buf_addr= ',mode.buf_addr); + writeln('buf_length= ',mode.buf_length); + writeln('full_length= ',mode.full_length); + writeln('partial_length= ',mode.partial_length); +end. |