add and remove comments

- added a unit header comment
- removed old code comments not needed any more
- removed old debug lines

2 files changed, 18 insertions, 12 deletions

diff --git a/docview/components/richtext/RichTextLayoutUnit.pas b/docview/components/richtext/RichTextLayoutUnit.pas
index d6b86a69..491c6f11 100644
--- a/docview/components/richtext/RichTextLayoutUnit.pas
+++ b/docview/components/richtext/RichTextLayoutUnit.pas
@@ -187,22 +187,18 @@ ProfileEvent('DEBUG:  TRichTextLayout.Create >>>>');
   FRichTextSettings := RichTextSettings;
   FImages := Images;
   FText := Text;
-ProfileEvent('DEBUG:  TRichTextLayout.Create   1 of 4');
   FLines := TLayoutLineList.Create;
   FNumLines := 0;
   FLinks := TStringList.Create;
   FLinks.Duplicates := dupIgnore;
   FFontManager := FontManager;
   FLayoutWidth := AWidth;
-ProfileEvent('DEBUG:  TRichTextLayout.Create   2');
   FHorizontalImageScale := 1;
   FVerticalImageScale := 1;
   //FHorizontalImageScale :=   FFontManager.Canvas.HorizontalResolution
   //                         / Screen.Canvas.HorizontalResolution;
   //FVerticalImageScale   :=   FFontManager.Canvas.VerticalResolution
   //                         / Screen.Canvas.VerticalResolution;
-
-ProfileEvent('DEBUG:  TRichTextLayout.Create   3');
   Layout;
 ProfileEvent('DEBUG:  TRichTextLayout.Create <<<<');
 end;
diff --git a/docview/components/richtext/RichTextView.pas b/docview/components/richtext/RichTextView.pas
index f65d22fb..03d7a7e3 100644
--- a/docview/components/richtext/RichTextView.pas
+++ b/docview/components/richtext/RichTextView.pas
@@ -1,3 +1,21 @@
+{
+    fpGUI  -  Free Pascal GUI Toolkit
+
+    Copyright (C) 2006 - 2011 See the file AUTHORS.txt, included in this
+    distribution, for details of the copyright.
+
+    See the file COPYING.modifiedLGPL, included in this distribution,
+    for details about redistributing fpGUI.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+    Description:
+      This unit contains the class declaration for the RichView text
+      component that is used in DocView to display the help contents.
+}
+
 Unit RichTextView;
 
 {$mode objfpc}{$H+}
@@ -16,14 +34,6 @@ Uses
   RichTextLayoutUnit,
   CanvasFontManager;
 
-{
-Remaining keyboard support
-- cursor down to go to end of line (this is tricky)
-  I don't understand what I mean here!
-- If scrolllock is on, then scroll the screen, not move cursor.
-  Really? So few things obey it...
-}
-
 const
   // for dragtext support, primarily.
   RT_QUERYTEXT    = FPGM_USER + 500;