paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 11:00:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ confirmation box after video mode switch (bug 2933)

Browse Source
This commit is contained in:
Tomas Hajny 2004-12-19 20:38:35 +00:00
parent 7a97d2ff0a
commit 72e846735f
3 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/fpide.pas
View File

@ -167,7 +167,7 @@ uses
Video,Mouse,Keyboard, Video,Mouse,Keyboard,
Compiler,Version, Compiler,Version,
FVConsts, FVConsts,
Dos,Memory,Menus,Dialogs,StdDlg, Dos,Memory,Menus,Dialogs,StdDlg,timeddlg,
Systems, Systems,
WUtils,WHlpView,WViews,WHTMLHlp,WHelp,WConsole, WUtils,WHlpView,WViews,WHTMLHlp,WHelp,WConsole,
FPConst,FPVars,FPUtils,FPSwitch,FPIni,FPIntf,FPCompil,FPHelp, FPConst,FPVars,FPUtils,FPSwitch,FPIni,FPIntf,FPCompil,FPHelp,
@ -1241,7 +1241,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.33 2004-11-20 14:21:19 florian Revision 1.34 2004-12-19 20:38:35 hajny
+ confirmation box after video mode switch (bug 2933)
Revision 1.33 2004/11/20 14:21:19 florian
* implemented reload menu item * implemented reload menu item
* increased file history to 9 files * increased file history to 9 files

16
ide/fpmopts.inc
View File

@ -889,7 +889,16 @@ begin
ScreenModeInfo[3]:=byte(VM.color); ScreenModeInfo[3]:=byte(VM.color);
ErrorBox(msg_cantsetscreenmode,@ScreenModeInfo); ErrorBox(msg_cantsetscreenmode,@ScreenModeInfo);
end; end
else
if TimedMessageBox (msg_confirmnewscreenmode, nil,
mfConfirmation or mfOKCancel, 15) = cmCancel then
begin
SetScreenVideoMode (OldScreenMode);
ScreenModeInfo [1] := VM.Col;
ScreenModeInfo [2] := VM.Row;
ScreenModeInfo [3] := byte (VM.Color);
end;
End; End;
end; end;
AutoSaveOptions:=CB1^.Value; AutoSaveOptions:=CB1^.Value;
@ -1367,7 +1376,10 @@ end;
{ {
$Log$ $Log$
Revision 1.12 2004-11-08 20:28:26 peter Revision 1.13 2004-12-19 20:38:35 hajny
+ confirmation box after video mode switch (bug 2933)
Revision 1.12 2004/11/08 20:28:26 peter
* Breakpoints are now deleted when removed from source, disabling is * Breakpoints are now deleted when removed from source, disabling is
still possible from the breakpoint list still possible from the breakpoint list
* COMPILER_1_0, FVISION, GABOR defines removed, only support new * COMPILER_1_0, FVISION, GABOR defines removed, only support new

7
ide/fpstre.inc
View File

@ -605,6 +605,8 @@ const
msg_userscreennotavailable = 'Sorry, user screen not available.'; msg_userscreennotavailable = 'Sorry, user screen not available.';
msg_cantsetscreenmode = #3'Impossible to set'#13#3'%dx%d mode'; msg_cantsetscreenmode = #3'Impossible to set'#13#3'%dx%d mode';
msg_confirmnewscreenmode = 'Please, confirm that new mode'#13 +
'is displayed correctly';
{ Tools $PROMPT() dialog } { Tools $PROMPT() dialog }
dialog_programarguments = 'Program Arguments'; dialog_programarguments = 'Program Arguments';
label_enterprogramargument = '~E~nter program argument'; label_enterprogramargument = '~E~nter program argument';
@ -1058,7 +1060,10 @@ const
{ {
$Log$ $Log$
Revision 1.24 2004-11-21 20:53:26 peter Revision 1.25 2004-12-19 20:38:35 hajny
+ confirmation box after video mode switch (bug 2933)
Revision 1.24 2004/11/21 20:53:26 peter
* fixed breakpoint dialog * fixed breakpoint dialog
Revision 1.23 2004/11/20 14:21:19 florian Revision 1.23 2004/11/20 14:21:19 florian