GetVideoModeCount
Get the number of video modes supported by the driver.
Declaration
Source position: videoh.inc line 148
function GetVideoModeCount : Word;
Description
GetVideoModeCount returns the number of video modes that the current driver supports. If the driver does not support switching of modes, then 1 is returned.
This function can be used in conjunction with the GetVideoModeData function to retrieve data for the supported video modes.
Errors
None.
See also
| Name | Description |
|---|---|
| GetVideoMode | Return current video mode |
| GetVideoModeData | Get the specifications for a video mode |
Example
Program Example8;
{ Program to demonstrate the GetVideoModeCount function. }
Uses video,keyboard,vidutil;
Procedure DumpMode (M : TVideoMode; Index : Integer);
Var
S : String;
begin
Str(Index:2,S);
inc(Index);
TextOut(1,Index,'Data for mode '+S+': ');
if M.Color then
TextOut(19,Index,' color,')
else
TextOut(19,Index,'No color,');
Str(M.Row:3,S);
TextOut(28,Index,S+' rows');
Str(M.Col:3,S);
TextOut(36,index,S+' columns');
end;
Var
i,Count : Integer;
m : TVideoMode;
begin
InitVideo;
InitKeyboard;
Count:=GetVideoModeCount;
For I:=1 to Count do
begin
GetVideoModeData(I-1,M);
DumpMode(M,I-1);
end;
TextOut(1,Count+1,'Press any key to exit');
UpdateScreen(False);
GetKeyEvent;
DoneKeyboard;
DoneVideo;
end.