paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-29 12:50:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* cursor probs fixed

Browse Source
This commit is contained in:
peter 2004-11-03 10:37:24 +00:00
parent 741f42c3b0
commit ca32f082f4
4 changed files with 34 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fv/dialogs.pas
View File

@ -3318,7 +3318,7 @@ END;
PROCEDURE THistory.Draw;
VAR B: TDrawBuffer;
BEGIN
MoveCStr(B, #222'~'#25'~'#221, GetColor($0102)); { Set buffer data }
MoveCStr(B,#222'~v~'#221, GetColor($0102)); { Set buffer data }
WriteLine(0, 0, Size.X, Size.Y, B); { Write buffer }
END;
@ -4229,7 +4229,10 @@ END;
END.
{
$Log$
Revision 1.23 2004-11-02 23:53:19 peter
Revision 1.24 2004-11-03 10:37:24 peter
* cursor probs fixed
Revision 1.23 2004/11/02 23:53:19 peter
* fixed crashes with ide and 1.9.x
Revision 1.22 2002/10/17 13:27:53 pierre

13
fv/views.pas
View File

@ -508,6 +508,7 @@ TYPE
PROCEDURE DrawBackGround; Virtual;
PROCEDURE Lock;
PROCEDURE UnLock;
PROCEDURE ResetCursor; Virtual;
PROCEDURE Awaken; Virtual;
PROCEDURE ReDraw;
PROCEDURE ReDrawArea (X1, Y1, X2, Y2: Sw_Integer); Virtual;
@ -2699,6 +2700,13 @@ BEGIN
END;
PROCEDURE TGroup.ResetCursor;
BEGIN
if (Current<>nil) then
Current^.ResetCursor;
END;
{--TGroup-------------------------------------------------------------------}
{ Awaken -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 15Sep97 LdB }
{---------------------------------------------------------------------------}
@ -5852,7 +5860,10 @@ END.
{
$Log$
Revision 1.41 2004-11-02 23:53:19 peter
Revision 1.42 2004-11-03 10:37:24 peter
* cursor probs fixed
Revision 1.41 2004/11/02 23:53:19 peter
* fixed crashes with ide and 1.9.x
Revision 1.40 2002/10/17 11:24:17 pierre

7
fvision/dialogs.pas
View File

@ -3318,7 +3318,7 @@ END;
PROCEDURE THistory.Draw;
VAR B: TDrawBuffer;
BEGIN
MoveCStr(B, #222'~'#25'~'#221, GetColor($0102)); { Set buffer data }
MoveCStr(B,#222'~v~'#221, GetColor($0102)); { Set buffer data }
WriteLine(0, 0, Size.X, Size.Y, B); { Write buffer }
END;
@ -4229,7 +4229,10 @@ END;
END.
{
$Log$
Revision 1.23 2004-11-02 23:53:19 peter
Revision 1.24 2004-11-03 10:37:24 peter
* cursor probs fixed
Revision 1.23 2004/11/02 23:53:19 peter
* fixed crashes with ide and 1.9.x
Revision 1.22 2002/10/17 13:27:53 pierre

13
fvision/views.pas
View File

@ -508,6 +508,7 @@ TYPE
PROCEDURE DrawBackGround; Virtual;
PROCEDURE Lock;
PROCEDURE UnLock;
PROCEDURE ResetCursor; Virtual;
PROCEDURE Awaken; Virtual;
PROCEDURE ReDraw;
PROCEDURE ReDrawArea (X1, Y1, X2, Y2: Sw_Integer); Virtual;
@ -2699,6 +2700,13 @@ BEGIN
END;
PROCEDURE TGroup.ResetCursor;
BEGIN
if (Current<>nil) then
Current^.ResetCursor;
END;
{--TGroup-------------------------------------------------------------------}
{ Awaken -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 15Sep97 LdB }
{---------------------------------------------------------------------------}
@ -5852,7 +5860,10 @@ END.
{
$Log$
Revision 1.41 2004-11-02 23:53:19 peter
Revision 1.42 2004-11-03 10:37:24 peter
* cursor probs fixed
Revision 1.41 2004/11/02 23:53:19 peter
* fixed crashes with ide and 1.9.x
Revision 1.40 2002/10/17 11:24:17 pierre