rtl-console/amicommon: comment improvements in video unit

git-svn-id: trunk@31141 -

packages/rtl-console/src/amicommon/video.pp

@@ -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.