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

* Remove useless Unix specific hack.

Browse Source 
git-svn-id: trunk@3777 -
This commit is contained in:
daniel 2006-06-03 18:53:00 +00:00
parent 5835891a89
commit 18c6d4f4de
3 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fv/app.pas
View File

@ -885,11 +885,12 @@ procedure TProgram.SetScreenVideoMode(const Mode: TVideoMode);
var
R: TRect;
begin
DoneMouse;
{ DoneMemory;}
hidemouse;
{ DoneMouse;
DoneMemory;}
ScreenMode:=Mode;
InitMouse;
{ InitMemory;}
{ InitMouse;
InitMemory;}
InitScreen;
Video.SetVideoMode(Mode);
ScreenWidth:=Video.ScreenWidth;

6
fv/drivers.pas
View File

@ -828,12 +828,12 @@ VAR
{ PRIVATE INTERNAL ROUTINES }
{***************************************************************************}
PROCEDURE ShowMouseCursor;
PROCEDURE ShowMouseCursor;inline;
BEGIN
ShowMouse;
END;
PROCEDURE HideMouseCursor;
PROCEDURE HideMouseCursor;inline;
BEGIN
HideMouse;
END;
@ -870,7 +870,7 @@ end;
{---------------------------------------------------------------------------}
{ DetectMouse -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 19May98 LdB }
FUNCTION DetectMouse: Byte;
FUNCTION DetectMouse: Byte;inline;
begin
DetectMouse:=Mouse.DetectMouse;
end;

8
fv/views.pas
View File

@ -859,7 +859,7 @@ procedure DrawScreenBuf(force:boolean);
begin
if (GetLockScreenCount=0) then
begin
If MouseUsesVideoBuf then
{ If MouseUsesVideoBuf then
begin
LockScreenUpdate;
HideMouse;
@ -867,10 +867,10 @@ begin
UnlockScreenUpdate;
end
else
HideMouse;
HideMouse;}
UpdateScreen(force);
If not MouseUsesVideoBuf then
ShowMouse;
{ If not MouseUsesVideoBuf then
ShowMouse;}
end;
end;