diff --git a/packages/rtl-console/src/go32v2/video.pp b/packages/rtl-console/src/go32v2/video.pp index 66476fa12a..8733a162a0 100644 --- a/packages/rtl-console/src/go32v2/video.pp +++ b/packages/rtl-console/src/go32v2/video.pp @@ -194,12 +194,8 @@ begin end; procedure SysUpdateScreen(Force: Boolean); -var - Is_Mouse_Vis: boolean; begin - Is_Mouse_Vis := MouseIsVisible; {MouseIsVisible is from Mouse unit} - if Is_Mouse_Vis then - HideMouse; + HideMouse; if not force then begin asm @@ -221,8 +217,7 @@ begin dosmemput(videoseg,0,videobuf^,VideoBufSize); move(videobuf^,oldvideobuf^,VideoBufSize); end; - if Is_Mouse_Vis then - ShowMouse; + ShowMouse; end; Procedure DoSetVideoMode(Params: Longint);