paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 01:10:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl-console: use videoDefaultFlags variable on Amiga for WA_Flags. disable smartrefresh in full screen, also respect the FPC_VIDEO_SIMPLEREFRESH env var

Browse Source
This commit is contained in:
Karoly Balogh 2021-12-26 22:25:28 +01:00
parent c01c13c29a
commit db39d1a4e4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/rtl-console/src/amicommon/video.pp
View File

@ -178,7 +178,8 @@ var
videoDefaultFlags: PtrUInt; videoDefaultFlags: PtrUInt;
begin begin
videoDefaultFlags:=VIDEO_WFLG_DEFAULTS; videoDefaultFlags:=VIDEO_WFLG_DEFAULTS;
if GetVar('FPC_VIDEO_SIMPLEREFRESH',@envBuf,sizeof(envBuf),0) > -1 then if (GetVar('FPC_VIDEO_SIMPLEREFRESH',@envBuf,sizeof(envBuf),0) > -1) or
FPC_VIDEO_FULLSCREEN then
videoDefaultFlags:=videoDefaultFlags and not WFLG_SMART_REFRESH; videoDefaultFlags:=videoDefaultFlags and not WFLG_SMART_REFRESH;
if FPC_VIDEO_FULLSCREEN then if FPC_VIDEO_FULLSCREEN then
begin begin
@ -199,7 +200,7 @@ begin
WA_Activate , 1, WA_Activate , 1,
WA_Borderless , 1, WA_Borderless , 1,
WA_BackDrop , 1, WA_BackDrop , 1,
WA_FLAGS , VIDEO_WFLG_DEFAULTS or WFLG_BORDERLESS, WA_FLAGS , videoDefaultFlags,
WA_IDCMP , VIDEO_IDCMP_DEFAULTS, WA_IDCMP , VIDEO_IDCMP_DEFAULTS,
TAG_END, TAG_END TAG_END, TAG_END
]); ]);
@ -216,7 +217,7 @@ begin
WA_MaxHeight , 32768, WA_MaxHeight , 32768,
WA_Title , PtrUInt(PChar('FPC Video Window Output')), WA_Title , PtrUInt(PChar('FPC Video Window Output')),
WA_Activate , 1, WA_Activate , 1,
WA_FLAGS , (VIDEO_WFLG_DEFAULTS or WA_FLAGS , (videoDefaultFlags or
WFLG_DRAGBAR or WFLG_DEPTHGADGET or WFLG_SIZEGADGET or WFLG_DRAGBAR or WFLG_DEPTHGADGET or WFLG_SIZEGADGET or
WFLG_SIZEBBOTTOM or WFLG_CLOSEGADGET), WFLG_SIZEBBOTTOM or WFLG_CLOSEGADGET),
WA_IDCMP , VIDEO_IDCMP_DEFAULTS, WA_IDCMP , VIDEO_IDCMP_DEFAULTS,