paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed possible overflow when getting video mode

Browse Source 
git-svn-id: trunk@4456 -
This commit is contained in:
florian 2006-08-19 22:45:56 +00:00
parent 22146e2bcf
commit f8bdc64a96
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win/video.pp
View File

@ -245,7 +245,7 @@ end;
Function SysGetVideoModeData (Index : Word; Var Data : TVideoMode) : boolean; Function SysGetVideoModeData (Index : Word; Var Data : TVideoMode) : boolean;
begin begin
SysGetVideoModeData:=(Index<=SysVideoModeCount); SysGetVideoModeData:=(Index<=high(SysVMD));
If SysGetVideoModeData then If SysGetVideoModeData then
Data:=SysVMD[Index]; Data:=SysVMD[Index];
end; end;