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

+ AltF12 to force Redraw of Application

Browse Source
This commit is contained in:
pierre 2001-05-31 21:39:11 +00:00
parent 5edf896c71
commit 0de451dba1
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fv/app.pas
View File

@ -880,6 +880,8 @@ BEGIN
Begin
if Event.keyCode = kbAltF11 then
WriteDebugInfo := not WriteDebugInfo;
if Event.keyCode = kbAltF12 then
ReDraw;
End;
{$endif DEBUG}
If (Event.What = evNothing) Then Begin { No mouse event }
@ -1086,7 +1088,10 @@ END;
END.
{
$Log$
Revision 1.10 2001-05-31 12:15:24 pierre
Revision 1.11 2001-05-31 21:39:11 pierre
+ AltF12 to force Redraw of Application
Revision 1.10 2001/05/31 12:15:24 pierre
+ some debug stuff added
Revision 1.9 2001/05/10 16:46:26 pierre

7
fvision/app.pas
View File

@ -880,6 +880,8 @@ BEGIN
Begin
if Event.keyCode = kbAltF11 then
WriteDebugInfo := not WriteDebugInfo;
if Event.keyCode = kbAltF12 then
ReDraw;
End;
{$endif DEBUG}
If (Event.What = evNothing) Then Begin { No mouse event }
@ -1086,7 +1088,10 @@ END;
END.
{
$Log$
Revision 1.10 2001-05-31 12:15:24 pierre
Revision 1.11 2001-05-31 21:39:11 pierre
+ AltF12 to force Redraw of Application
Revision 1.10 2001/05/31 12:15:24 pierre
+ some debug stuff added
Revision 1.9 2001/05/10 16:46:26 pierre