paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 13:50:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* SetCursorType corrected

Browse Source
This commit is contained in:
Tomas Hajny 2000-10-08 18:40:58 +00:00
parent 72892f1918
commit f4ab5d7753
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
api/os2/video.inc
View File

@ -250,16 +250,19 @@ begin
crHidden: Attr := word (-1);
crUnderline:
begin
Attr := 0;
yStart := word (-90);
cEnd := word (-100);
end;
crHalfBlock:
begin
Attr := 0;
yStart := word (-50);
cEnd := word (-100);
end;
crBlock:
begin
Attr := 0;
yStart := 0;
cEnd := word (-100);
end;
@ -405,7 +408,10 @@ end;
{
$Log$
Revision 1.6 2000-10-08 14:13:19 hajny
Revision 1.7 2000-10-08 18:40:58 hajny
* SetCursorType corrected
Revision 1.6 2000/10/08 14:13:19 hajny
* ClearScreen correction, screen restored on exit
Revision 1.5 2000/10/04 11:53:31 pierre