GetCapabilities function

Declaration

function GetCapabilities: Word

Description

GetCapabilities returns the capabilities of the current driver. It is an or-ed combination of the following constants:

cpUnderLine

Video driver supports underline attribute.

cpBlink

Video driver supports blink attribute.

cpColor

Video driver supports color.

cpChangeFont

Video driver supports changing screen font.

cpChangeMode

Video driver supports changing mode.

cpChangeCursor

Video driver supports changing cursor shape.

Note that the video driver should not yet be initialized to use this function. It is a property of the driver.

Errors

None.

See also

• GetCursorType
• GetVideoDriver

Example: ex4

Program Example4;

{ Program to demonstrate the GetCapabilities function. }

Uses video;

Var
  W: Word;

  Procedure TestCap(Cap: Word; Msg : String);

  begin
    Write(Msg,' : ');
    If (W and Cap=Cap) then
      Writeln('Yes')
    else
      Writeln('No');
  end;

begin
  W:=GetCapabilities;
  Writeln('Video driver supports following functionality');
  TestCap(cpUnderLine,'Underlined characters');
  TestCap(cpBlink,'Blinking characters');
  TestCap(cpColor,'Color characters');
  TestCap(cpChangeFont,'Changing font');
  TestCap(cpChangeMode,'Changing video mode');
  TestCap(cpChangeCursor,'Changing cursor shape');
end.