paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 10:39:18 +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; end;
{$ifdef UNIX}
const
MouseUsesVideoBuf = true;
{$else not UNIX}
const
MouseUsesVideoBuf = false;
{$endif not UNIX}
procedure DrawScreenBuf; procedure DrawScreenBuf;
begin begin
{$ifdef USE_VIDEO_API} {$ifdef USE_VIDEO_API}
if (GetLockScreenCount=0) then if (GetLockScreenCount=0) then
begin begin
HideMouse; If MouseUsesVideoBuf then
begin
LockScreenUpdate;
HideMouse;
ShowMouse;
UnlockScreenUpdate;
end
else
HideMouse;
if TextModeGFV then if TextModeGFV then
UpdateScreen(false) UpdateScreen(false)
{$IFDEF GRAPH_API} {$IFDEF GRAPH_API}
@ -924,7 +940,8 @@ begin
GraphUpdateScreen(false) GraphUpdateScreen(false)
{$ENDIF GRAPH_API} {$ENDIF GRAPH_API}
; ;
ShowMouse; If not MouseUsesVideoBuf then
ShowMouse;
end; end;
{$endif USE_VIDEO_API} {$endif USE_VIDEO_API}
end; end;
@ -5783,7 +5800,10 @@ END.
{ {
$Log$ $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 * remove other warnings
Revision 1.36 2002/09/09 08:04:06 pierre Revision 1.36 2002/09/09 08:04:06 pierre

26
fvision/views.pas
View File

@ -911,12 +911,28 @@ CONST
end; end;
{$ifdef UNIX}
const
MouseUsesVideoBuf = true;
{$else not UNIX}
const
MouseUsesVideoBuf = false;
{$endif not UNIX}
procedure DrawScreenBuf; procedure DrawScreenBuf;
begin begin
{$ifdef USE_VIDEO_API} {$ifdef USE_VIDEO_API}
if (GetLockScreenCount=0) then if (GetLockScreenCount=0) then
begin begin
HideMouse; If MouseUsesVideoBuf then
begin
LockScreenUpdate;
HideMouse;
ShowMouse;
UnlockScreenUpdate;
end
else
HideMouse;
if TextModeGFV then if TextModeGFV then
UpdateScreen(false) UpdateScreen(false)
{$IFDEF GRAPH_API} {$IFDEF GRAPH_API}
@ -924,7 +940,8 @@ begin
GraphUpdateScreen(false) GraphUpdateScreen(false)
{$ENDIF GRAPH_API} {$ENDIF GRAPH_API}
; ;
ShowMouse; If not MouseUsesVideoBuf then
ShowMouse;
end; end;
{$endif USE_VIDEO_API} {$endif USE_VIDEO_API}
end; end;
@ -5783,7 +5800,10 @@ END.
{ {
$Log$ $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 * remove other warnings
Revision 1.36 2002/09/09 08:04:06 pierre Revision 1.36 2002/09/09 08:04:06 pierre