paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:29:14 +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); crHidden: Attr := word (-1);
crUnderline: crUnderline:
begin begin
Attr := 0;
yStart := word (-90); yStart := word (-90);
cEnd := word (-100); cEnd := word (-100);
end; end;
crHalfBlock: crHalfBlock:
begin begin
Attr := 0;
yStart := word (-50); yStart := word (-50);
cEnd := word (-100); cEnd := word (-100);
end; end;
crBlock: crBlock:
begin begin
Attr := 0;
yStart := 0; yStart := 0;
cEnd := word (-100); cEnd := word (-100);
end; end;
@ -405,7 +408,10 @@ end;
{ {
$Log$ $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 * ClearScreen correction, screen restored on exit
Revision 1.5 2000/10/04 11:53:31 pierre Revision 1.5 2000/10/04 11:53:31 pierre