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

* handle unix mouse differently as it uses video buffer

Browse Source
This commit is contained in:
pierre 2002-09-12 12:03:13 +00:00
parent 38670ef6e1
commit e7ba0c3866
2 changed files with 46 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
fv/views.pas
View File

@ -911,12 +911,28 @@ CONST
end;
{$ifdef UNIX}
const
MouseUsesVideoBuf = true;
{$else not UNIX}
const
MouseUsesVideoBuf = false;
{$endif not UNIX}
procedure DrawScreenBuf;
begin
{$ifdef USE_VIDEO_API}
if (GetLockScreenCount=0) then
begin
HideMouse;
If MouseUsesVideoBuf then
begin
LockScreenUpdate;
HideMouse;
ShowMouse;
UnlockScreenUpdate;
end
else
HideMouse;
if TextModeGFV then
UpdateScreen(false)
{$IFDEF GRAPH_API}
@ -924,7 +940,8 @@ begin
GraphUpdateScreen(false)
{$ENDIF GRAPH_API}
;
ShowMouse;
If not MouseUsesVideoBuf then
ShowMouse;
end;
{$endif USE_VIDEO_API}
end;
@ -5783,7 +5800,10 @@ END.
{
$Log$
Revision 1.37 2002-09-09 08:06:33 pierre
Revision 1.38 2002-09-12 12:03:13 pierre
* handle unix mouse differently as it uses video buffer
Revision 1.37 2002/09/09 08:06:33 pierre
* remove other warnings
Revision 1.36 2002/09/09 08:04:06 pierre

26
fvision/views.pas
View File

@ -911,12 +911,28 @@ CONST
end;
{$ifdef UNIX}
const
MouseUsesVideoBuf = true;
{$else not UNIX}
const
MouseUsesVideoBuf = false;
{$endif not UNIX}
procedure DrawScreenBuf;
begin
{$ifdef USE_VIDEO_API}
if (GetLockScreenCount=0) then
begin
HideMouse;
If MouseUsesVideoBuf then
begin
LockScreenUpdate;
HideMouse;
ShowMouse;
UnlockScreenUpdate;
end
else
HideMouse;
if TextModeGFV then
UpdateScreen(false)
{$IFDEF GRAPH_API}
@ -924,7 +940,8 @@ begin
GraphUpdateScreen(false)
{$ENDIF GRAPH_API}
;
ShowMouse;
If not MouseUsesVideoBuf then
ShowMouse;
end;
{$endif USE_VIDEO_API}
end;
@ -5783,7 +5800,10 @@ END.
{
$Log$
Revision 1.37 2002-09-09 08:06:33 pierre
Revision 1.38 2002-09-12 12:03:13 pierre
* handle unix mouse differently as it uses video buffer
Revision 1.37 2002/09/09 08:06:33 pierre
* remove other warnings
Revision 1.36 2002/09/09 08:04:06 pierre