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

+ show error if switch to new screen mode failed

Browse Source
This commit is contained in:
pierre 2001-10-12 14:21:47 +00:00
parent 746679aac6
commit 835ddcb765
2 changed files with 24 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/fpmopts.inc
View File

@ -711,7 +711,8 @@ var R,R2: TRect;
D: PCenterDialog;
C: PVideoModeCollection;
VMLB: PVideoModeListBox;
VM: TVideoMode;
OldScreenMode,VM: TVideoMode;
ScreenModeInfo : array[1..3] of longint;
CurVP,VP: PVideoMode;
RB1: PPlainRadioButtons;
CB1,CB2: PPlainCheckBoxes;
@ -796,7 +797,19 @@ begin
VM.Color:=Color;
end;
if (VM.Col<>ScreenMode.Col) or (VM.Row<>ScreenMode.Row) or (VM.Color<>ScreenMode.Color) then
SetScreenVideoMode(VM);
Begin
OldScreenMode:=ScreenMode;
SetScreenVideoMode(VM);
if (VM.Col<>ScreenMode.Col) or (VM.Row<>ScreenMode.Row) or (VM.Color<>ScreenMode.Color) then
begin
SetScreenVideoMode(OldScreenMode);
ScreenModeInfo[1]:=VM.col;
ScreenModeInfo[2]:=VM.row;
ScreenModeInfo[3]:=byte(VM.color);
ErrorBox(msg_cantsetscreenmode,@ScreenModeInfo);
end;
End;
end;
AutoSaveOptions:=CB1^.Value;
MiscOptions:=CB2^.Value;
@ -1273,7 +1286,10 @@ end;
{
$Log$
Revision 1.3 2001-10-11 11:35:53 pierre
Revision 1.4 2001-10-12 14:21:47 pierre
+ show error if switch to new screen mode failed
Revision 1.3 2001/10/11 11:35:53 pierre
* adapt to new video unit layout
Revision 1.2 2001/08/05 12:23:00 peter

7
ide/fpstre.inc
View File

@ -587,7 +587,7 @@ const
msg_windowlist_hidden = 'hidden';
msg_userscreennotavailable = 'Sorry, user screen not available.';
msg_cantsetscreenmode = #3'Impossible to set'#13#3'%dx%d mode';
{ Tools $PROMPT() dialog }
dialog_programarguments = 'Program Arguments';
label_enterprogramargument = '~E~nter program argument';
@ -1007,7 +1007,10 @@ const
{
$Log$
Revision 1.2 2001-08-29 23:31:27 pierre
Revision 1.3 2001-10-12 14:21:47 pierre
+ show error if switch to new screen mode failed
Revision 1.2 2001/08/29 23:31:27 pierre
* fix some m68k specific options
Revision 1.1 2001/08/04 11:30:23 peter