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

rtl-console/amicommon: comment improvements in video unit

Browse Source 
git-svn-id: trunk@31141 -
This commit is contained in:
marcus 2015-06-21 18:20:33 +00:00
parent df0ac8cb02
commit 5f5b1ed607
1 changed files with 11 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,13 +21,8 @@ unit Video;
{
Date: 2013-01-09
What: Adjusted FPC video unit for AROS (/AmigaOS?)
goal:
---------------------------------------------------------------------------
Attempt to add user-on-demand support for AROS Fullscreen to the FPC video
unit.
History
2013-01-09 Add on demand support for full-screen video
}
@ -69,8 +64,8 @@ const
VIDEOSCREENNAME = 'FPC Video Screen Output';
var
OS_Screen : PScreen = nil; // To hold our screen, when necessary
FPC_VIDEO_FULLSCREEN : Boolean = False; // Global that defines when we need to attempt opening on own scren
OS_Screen : PScreen = nil; // Holds optional screen pointer
FPC_VIDEO_FULLSCREEN : Boolean = False; // Global that defines when we need to attempt opening on own screen
var
VideoColorMap : PColorMap;
@ -252,19 +247,19 @@ begin
VideoWindow := GetWindow;
// nice hardcode values are probably going to screw up things
// so wee neeed a way to detrmined how many chars could be on
// the screen in both directions. And a bit accurate.
// nice hardcode values are probably going to mess things up
// so we need a way to determine how many characters would fit
// the screen in both directions. Try to be as accurate as possible.
if FPC_VIDEO_FULLSCREEN then
begin
// just to make sure that we are going to use the window width
// and height instead of the one from the screen.
// and height instead of the screen dimensions.
// This is to circumvent that the window (or virtual window from
// vision based on characters pixels * characters in both
// dimensions) is actually smaller then the window it resides on.
//
// Can happen for instance when the window does not hide it's
// borders or title as intended.
// Can happen for instance when the window does not hide its
// borders or titlebar as intended.
ScreenWidth := VideoWindow^.GZZWidth div 8;
ScreenHeight := VideoWindow^.GZZHeight div 16;
ScreenColor := False;
@ -773,4 +768,4 @@ finalization
FreeBitmap(BufRp^.Bitmap);
FreeRastPort(BufRp);
{$endif}
end.
end.