paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 19:29:27 +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 Begin
if Event.keyCode = kbAltF11 then if Event.keyCode = kbAltF11 then
WriteDebugInfo := not WriteDebugInfo; WriteDebugInfo := not WriteDebugInfo;
if Event.keyCode = kbAltF12 then
ReDraw;
End; End;
{$endif DEBUG} {$endif DEBUG}
If (Event.What = evNothing) Then Begin { No mouse event } If (Event.What = evNothing) Then Begin { No mouse event }
@ -1086,7 +1088,10 @@ END;
END. END.
{ {
$Log$ $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 + some debug stuff added
Revision 1.9 2001/05/10 16:46:26 pierre Revision 1.9 2001/05/10 16:46:26 pierre

7
fvision/app.pas
View File

@ -880,6 +880,8 @@ BEGIN
Begin Begin
if Event.keyCode = kbAltF11 then if Event.keyCode = kbAltF11 then
WriteDebugInfo := not WriteDebugInfo; WriteDebugInfo := not WriteDebugInfo;
if Event.keyCode = kbAltF12 then
ReDraw;
End; End;
{$endif DEBUG} {$endif DEBUG}
If (Event.What = evNothing) Then Begin { No mouse event } If (Event.What = evNothing) Then Begin { No mouse event }
@ -1086,7 +1088,10 @@ END;
END. END.
{ {
$Log$ $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 + some debug stuff added
Revision 1.9 2001/05/10 16:46:26 pierre Revision 1.9 2001/05/10 16:46:26 pierre