|
@@ -194,12 +194,8 @@ begin
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure SysUpdateScreen(Force: Boolean);
|
|
procedure SysUpdateScreen(Force: Boolean);
|
|
-var
|
|
|
|
- Is_Mouse_Vis: boolean;
|
|
|
|
begin
|
|
begin
|
|
- Is_Mouse_Vis := MouseIsVisible; {MouseIsVisible is from Mouse unit}
|
|
|
|
- if Is_Mouse_Vis then
|
|
|
|
- HideMouse;
|
|
|
|
|
|
+ HideMouse;
|
|
if not force then
|
|
if not force then
|
|
begin
|
|
begin
|
|
asm
|
|
asm
|
|
@@ -221,8 +217,7 @@ begin
|
|
dosmemput(videoseg,0,videobuf^,VideoBufSize);
|
|
dosmemput(videoseg,0,videobuf^,VideoBufSize);
|
|
move(videobuf^,oldvideobuf^,VideoBufSize);
|
|
move(videobuf^,oldvideobuf^,VideoBufSize);
|
|
end;
|
|
end;
|
|
- if Is_Mouse_Vis then
|
|
|
|
- ShowMouse;
|
|
|
|
|
|
+ ShowMouse;
|
|
end;
|
|
end;
|
|
|
|
|
|
Procedure DoSetVideoMode(Params: Longint);
|
|
Procedure DoSetVideoMode(Params: Longint);
|