Mass typo fix for FreeVision.

packages/fv/examples/testapp.pas

@@ -27,7 +27,7 @@ PROGRAM testapp;
 {                                                                       }
 {                                                                       }
 {  Comments:                                                            }
-{    There is alot that may seem more complex than it needs to but      }
+{    There is a lot that may seem more complex than it needs to but     }
 {    I have much more elaborate objects operating such as bitmaps,      }
 {    bitmap buttons, percentage bars etc and they need these hooks.     }
 {    Basically the intention is to be able to port existing TV apps     }
@@ -70,7 +70,7 @@ CONST
 {$endif DEBUG}
 
 {---------------------------------------------------------------------------}
-{          TTestAppp OBJECT - STANDARD APPLICATION WITH MENU                }
+{          TTvDemo OBJECT - STANDARD APPLICATION WITH MENU                  }
 {---------------------------------------------------------------------------}
 TYPE
    PTVDemo = ^TTVDemo;

packages/fv/src/app.inc

@@ -743,7 +743,7 @@ BEGIN
    Application := PApplication(@Self);                { Set application ptr }
    InitScreen;                                        { Initialize screen }
    State := sfVisible + sfSelected + sfFocused +
-      sfModal + sfExposed;                            { Deafult states }
+      sfModal + sfExposed;                            { Default states }
    Options := 0;                                      { No options set }
    Size.X := Min(ScreenWidth,MaxViewWidth);           { Set x size value }
    Size.Y := ScreenHeight;                            { Set y size value }
@@ -804,7 +804,7 @@ BEGIN
    ValidView := Nil;                                  { Preset failure }
    If (P <> Nil) Then Begin
 (*
-     If LowMemory Then Begin                          { Check memroy }
+     If LowMemory Then Begin                          { Check memory }
        Dispose(P, Done);                              { Dispose view }
        OutOfMemory;                                   { Call out of memory }
        Exit;                                          { Now exit }
@@ -878,10 +878,10 @@ END;
 PROCEDURE TProgram.InitScreen;
 
 {Initscreen is passive only, i.e. it detects the video size and capabilities
- after initalization. Active video initalization is the task of Tapplication.}
+ after initialization. Active video initialization is the task of Tapplication.}
 
 BEGIN
-  { the orginal code can't be used here because of the limited
+  { the original code can't be used here because of the limited
     video unit capabilities, the mono modus can't be handled
   }
 {$ifdef FV_UNICODE}
@@ -1054,7 +1054,7 @@ BEGIN
            If (Event.What = evNothing) Then
              begin
 {$IFNDEF HASAMIGA}
-               { due to isses with the event handling in FV itself,
+               { due to issues with the event handling in FV itself,
                  we skip this here, and let the IDE to handle it
                  directly on Amiga-like systems. The FV itself cannot
                  handle the System Events anyway. (KB) }
@@ -1195,7 +1195,7 @@ var PrevHeight,PrevWidth : Sw_Word;
 var s:string;
 {$endif}
 
-BEGIN                                                 { Compatability only }
+BEGIN                                                 { Compatibility only }
   {$ifdef unix}DoneClip;{$endif}
   DoneSysError;
   DoneEvents;

packages/fv/src/colorsel.inc

@@ -690,7 +690,7 @@ begin
       S.Write(R^.Index,Sizeof(R^.Index));
       R := R^.Next;
     end;
-    {write gropu}
+    {write group}
 {$ifdef FV_UNICODE}
     S.WriteUnicodeString(x^.Name);
 {$else FV_UNICODE}
@@ -800,7 +800,7 @@ begin
   x := Groups;
   inherited Done;
   Groups:=nil;
-  {Disopse PColorGroup linked list}
+  {Dispose PColorGroup linked list}
   while Assigned(x) do begin
     R:=x^.Items;
     while Assigned(R) do begin

packages/fv/src/dialogs.inc

@@ -1422,7 +1422,7 @@ BEGIN
    If (Validator <> Nil) Then
      DSize := Validator^.Transfer(Data, Nil,
        vtDataSize);                                   { Add validator size }
-   If (DSize <> 0) Then DataSize := DSize             { Use validtor size }
+   If (DSize <> 0) Then DataSize := DSize             { Use validator size }
      Else DataSize := SizeOf(Sw_String);              { DataSize return the
                                                         actual size of the field
                                                         in record. Unlike
@@ -1436,7 +1436,7 @@ BEGIN
    If (Validator <> Nil) AND (Data <> Nil) Then
      DSize := Validator^.Transfer(Data^, Nil,
        vtDataSize);                                   { Add validator size }
-   If (DSize <> 0) Then DataSize := DSize             { Use validtor size }
+   If (DSize <> 0) Then DataSize := DSize             { Use validator size }
      Else DataSize := MaxLen + 1;                     { No validator use size }
 {$endif FV_UNICODE}
 END;
@@ -1679,7 +1679,7 @@ END;
 PROCEDURE TInputLine.Store (Var S: TStream);
 VAR w: Word;
 BEGIN
-   TView.Store(S);                                    { Implict TView.Store }
+   TView.Store(S);                                    { Implicit TView.Store }
    w:=MaxLen;S.Write(w, SizeOf(w));                   { Read max length }
    w:=CurPos;S.Write(w, SizeOf(w));                   { Read cursor position }
    w:=FirstPos;S.Write(w, SizeOf(w));                 { Read first position }
@@ -2353,7 +2353,7 @@ END;
 {---------------------------------------------------------------------------}
 PROCEDURE TButton.Store (Var S: TStream);
 BEGIN
-   TView.Store(S);                                    { Implict TView.Store }
+   TView.Store(S);                                    { Implicit TView.Store }
 {$ifdef FV_UNICODE}
    S.WriteUnicodeString(Title);                       { Store title string }
 {$else FV_UNICODE}
@@ -2675,7 +2675,7 @@ BEGIN
          Options := Options OR ofSelectable;          { Set selectable option }
          Exit;                                        { Now exit }
        End;
-       M := M SHL 1;                                  { Create newbit mask }
+       M := M SHL 1;                                  { Create new bit mask }
      End;
      Options := Options AND NOT ofSelectable;         { Make not selectable }
    End;

packages/fv/src/drivers.inc

@@ -327,7 +327,7 @@ CONST
 {***************************************************************************}
 
 { ******************************* REMARK ****************************** }
-{    The TEvent definition is completely compatable with all existing   }
+{    The TEvent definition is completely compatible with all existing   }
 {  code but adds two new fields ID and Data into the message record     }
 {  which helps with WIN/NT and OS2 message processing.                  }
 { ****************************** END REMARK *** Leon de Boer, 11Sep97 * }
@@ -615,13 +615,13 @@ Called automatically by TApplication.Done.
 PROCEDURE DoneVideo;
 
 {-ClearScreen--------------------------------------------------------
-Does nothing provided for compatability purposes only.
+Does nothing provided for compatibility purposes only.
 04Jan97 LdB
 ---------------------------------------------------------------------}
 PROCEDURE ClearScreen;
 
 {-SetVideoMode-------------------------------------------------------
-Does nothing provided for compatability purposes only.
+Does nothing provided for compatibility purposes only.
 04Jan97 LdB
 ---------------------------------------------------------------------}
 PROCEDURE SetVideoMode (Mode: Sw_Word);
@@ -655,7 +655,7 @@ FUNCTION SystemError (ErrorCode: Sw_Integer; Drive: Byte): Sw_Integer;
 {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
 
 {-PrintStr-----------------------------------------------------------
-Does nothing provided for compatability purposes only.
+Does nothing provided for compatibility purposes only.
 30Jun98 LdB
 ---------------------------------------------------------------------}
 PROCEDURE PrintStr (CONST S: String);
@@ -698,14 +698,14 @@ PROCEDURE ShowMouseCursor;
 {                INITIALIZED DOS/DPMI/WIN/NT/OS2 VARIABLES                  }
 {---------------------------------------------------------------------------}
 CONST
-   CheckSnow    : Boolean = False;                    { Compatability only }
+   CheckSnow    : Boolean = False;                    { Compatibility only }
    MouseEvents  : Boolean = False;                    { Mouse event state }
    MouseReverse : Boolean = False;                    { Mouse reversed }
-   HiResScreen  : Boolean = False;                    { Compatability only }
-   CtrlBreakHit : Boolean = False;                    { Compatability only }
-   SaveCtrlBreak: Boolean = False;                    { Compatability only }
-   SysErrActive : Boolean = False;                    { Compatability only }
-   FailSysErrors: Boolean = False;                    { Compatability only }
+   HiResScreen  : Boolean = False;                    { Compatibility only }
+   CtrlBreakHit : Boolean = False;                    { Compatibility only }
+   SaveCtrlBreak: Boolean = False;                    { Compatibility only }
+   SysErrActive : Boolean = False;                    { Compatibility only }
+   FailSysErrors: Boolean = False;                    { Compatibility only }
    ButtonCount  : Byte = 0;                           { Mouse button count }
    DoubleDelay  : Sw_Word = 8;                           { Double click delay }
    RepeatDelay  : Sw_Word = 8;                           { Auto mouse delay }
@@ -713,8 +713,8 @@ CONST
    SysMonoAttr  : Sw_Word = $7070;                       { System mono attr }
    StartupMode  : Sw_Word = $FFFF;                       { Compatability only }
    CursorLines  : Sw_Word = $FFFF;                       { Compatability only }
-   ScreenBuffer : Pointer = Nil;                      { Compatability only }
-   SaveInt09    : Pointer = Nil;                      { Compatability only }
+   ScreenBuffer : Pointer = Nil;                      { Compatibility only }
+   SaveInt09    : Pointer = Nil;                      { Compatibility only }
    SysErrorFunc : TSysErrorFunc = {$ifdef FPC}@{$endif}SystemError; { System error ptr }
 
 
@@ -983,7 +983,7 @@ END;
 {---------------------------------------------------------------------------}
 PROCEDURE ExitDrivers; {$IFNDEF PPC_FPC}{$IFNDEF OS_UNIX} FAR; {$ENDIF}{$ENDIF}
 BEGIN
-   DoneSysError;                                      { Relase error trap }
+   DoneSysError;                                      { Release error trap }
    DoneEvents;                                        { Close event driver }
 {   DoneKeyboard;}
    DoneVideo;

packages/fv/src/editors.inc

@@ -305,7 +305,7 @@ type
     Length : Sw_Word;
 {$ifdef FV_UNICODE}
     Buffer : Sw_String;  { In Unicode version use UnicodeString for data transfer }
-                         { even thou internaly we use TEditBuffer as utf8 data buffer }
+                         { even thou internally we use TEditBuffer as utf8 data buffer }
 {$else}
     Buffer : TEditBuffer;
 {$endif}
@@ -519,7 +519,7 @@ resourcestring  sClipboard='Clipboard';
                 sReformatNotPossible='Paragraph reformat not possible while trying to wrap current line with current margins.';
                 sReformattingTheDocument='Reformatting the document:';
                 sReplaceNotPossible='Wordwrap on:  Replace not possible in current margins when at end of line.';
-                sReplaceThisOccurence='Replace this occurrence?';
+                sReplaceThisOccurrence='Replace this occurrence?';
                 sRightMargin='Right Margin';
                 sSearchStringNotFound='Search string not found.';
                 sSelectWhereToBegin='Please select where to begin.';
@@ -1023,7 +1023,7 @@ begin
         Inc(T.Y);
         if PPoint(Info)^.Y <= T.Y then
           R.Move(0, Desktop^.Size.Y - R.B.Y - 2);
-        StdEditorDialog := MessageBoxRect(R, sReplaceThisOccurence,
+        StdEditorDialog := MessageBoxRect(R, sReplaceThisOccurrence,
           nil, mfYesNoCancel + mfInformation);
       end;
     edJumpToLine:
@@ -2137,9 +2137,9 @@ begin
 end; { TEditor.Find }
 
 
-{ Functon have functionality only in unicode version of fv. }
+{ Function have functionality only in unicode version of fv. }
 { It mimic FormatLine but instead of drawing line gather }
-{ information on character posisionings }
+{ information on character positioning }
 const
   DelimiterChars: SET OF AnsiChar =
     [' ', '.', ',', ';', ':', '!', '?', '-', '_', '/', '\',
@@ -2207,7 +2207,7 @@ var idxpos : sw_word;
              if (len8=0) and  IsValidUtf8ContinuationByte(p^) and (utf8innerindex>0)  then
              begin    { into utf8 char }
                dec(utf8innerindex);
-               if utf8innerindex = 0 then    { we have complite utf8 char }
+               if utf8innerindex = 0 then    { we have complete utf8 char }
                begin
                  uLen:=Utf8ToUnicode(nil,15,@bStr[iUtf8Char],savLen8);
                  if uLen =3 then   {encoded as unicode pair}
@@ -2336,7 +2336,7 @@ begin
   fillchar(lookUpCharToPosX^,sizeof(lookUpCharToPosX^),0);
   fillchar(lookUpPosXToChar^,sizeof(lookUpPosXToChar^),0);
 {$endif FV_UNICODE}
-  SetLength(bStr,MaxLineLength*4); {  utf8 can have 4 bytes per charater... }
+  SetLength(bStr,MaxLineLength*4); {  utf8 can have 4 bytes per character... }
   bStr[1]:=#0;
   iB:=0;
   iU:=0;
@@ -2410,14 +2410,14 @@ var
     p:=PAnsiChar(Buffer)+idxpos;
 {$ifdef FV_UNICODE}
     { prepare string for drawing }
-    SetLength(bStr,MaxLineLength*4); {  utf8 can have 4 bytes per charater... }
+    SetLength(bStr,MaxLineLength*4); {  utf8 can have 4 bytes per character... }
     iB:=0;
     while endpos>idxpos do
      begin
        inc(iB);
        if p^ in [#10,#13] then
          begin
-           bStr[iB]:=#13; { line ending is line endig }
+           bStr[iB]:=#13; { line ending is line ending }
            break;
          end
        else
@@ -2425,9 +2425,9 @@ var
        inc(p);
        inc(idxpos);
      end;
-     if iB = 0 then exit; { no charatcters, leave early }
+     if iB = 0 then exit; { no characters, leave early }
      SetLength(bStr,iB);
-     if bStr = #13 then { empyt line }
+     if bStr = #13 then { empty line }
      begin
        FillSpace(Width-OutCnt+0);
        FormatUntil:=true;
@@ -3005,7 +3005,7 @@ VAR
 begin
   if EditorDialog (edJumpToLine, @Line_Number) <> cmCancel then
     begin
-      { Convert the Line_Number string to an interger. }
+      { Convert the Line_Number string to an integer.  }
       { Put it into Temp_Value.  If the number is not  }
       { in the range 1..9999 abort.  If the number is  }
       { our current Y position, abort.  Otherwise,     }
@@ -3412,7 +3412,7 @@ VAR
 begin
   { Check if Word_Wrap is toggled on.  If NOT on, check if programmer }
   { allows reformatting of document and if not show user dialog that  }
-  { says reformatting is not permissable.                             }
+  { says reformatting is not permissible.                             }
   if not Word_Wrap then
     begin
       if not Allow_Reformat then
@@ -3448,7 +3448,7 @@ end; { TEditor.Reformat_Document }
 function TEditor.Reformat_Paragraph (Select_Mode   : Byte;
                                      Center_Cursor : Boolean) : Boolean;
 { This procedure will do a reformat of the current paragraph if ^B pressed. }
-{ The feature works regardless if wordrap is on or off.  It also supports   }
+{ The feature works regardless if word wrap is on or off.  It also supports }
 { the AutoIndent feature.  Reformat is not possible if the CurPos exceeds   }
 { the Right_Margin.  Right_Margin is where the EOL is considered to be.     }
 CONST
@@ -3461,7 +3461,7 @@ begin
   Reformat_Paragraph := False;
   { Check if Word_Wrap is toggled on.  If NOT on, check if programmer }
   { allows reformatting of paragraph and if not show user dialog that }
-  { says reformatting is not permissable.                             }
+  { says reformatting is not permissible.                             }
   if not Word_Wrap then
     begin
       if not Allow_Reformat then
@@ -3515,7 +3515,7 @@ begin
           InsertText (@Space, 1, False);
         end;
         { Reset CurPtr to EOL.  While line length is > Right_Margin }
-        { go Do_Word_Wrap.  If wordrap failed, exit routine.        }
+        { go Do_Word_Wrap.  If word wrap failed, exit routine.      }
         SetCurPtr (LineEnd (CurPtr), Select_Mode);
         while LineEnd (CurPtr) - LineStart (CurPtr) > Right_Margin do
           if not Do_Word_Wrap (Select_Mode, Center_Cursor) then
@@ -3977,8 +3977,8 @@ end; { Editor.Store }
 
 
 procedure TEditor.Tab_Key (Select_Mode : Byte);
-{ This function determines if we are in overstrike or insert mode,   }
-{ and then moves the cursor if overstrike, or adds spaces if insert. }
+{ This function determines if we are in over strike or insert mode,   }
+{ and then moves the cursor if over strike, or adds spaces if insert. }
 VAR
   E        : Sw_Word;                { End of current line.                }
   Index    : Sw_Integer;             { Loop counter.                       }

packages/fv/src/fvclip.inc

@@ -54,7 +54,7 @@ procedure DoneClip;
 {Actual clipboard content will be returned via event system, if terminal supports OSC 52}
 procedure GetGlobalClipboardData;
 
-{ Set clipboard content, if terminal supports OSC 52. Return true allways }
+{ Set clipboard content, if terminal supports OSC 52. Return true always }
 function SetGlobalClipboardData(P: PAnsiChar; ASize: longint): boolean;
 
 implementation
@@ -86,7 +86,7 @@ var cProgram : PProgram;
   PText : PAnsiChar;
 
 {Could not use unit base64 because of Sysutils and reasons }
-{Speed or reuseability here is not a concern               }
+{Speed or reusability here is not a concern                }
 const
   EncodingTable: PAnsiChar =
     'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
@@ -225,7 +225,7 @@ begin
     begin
       inc(countemptines);
       if countemptines = 30 then break;
-      {we might be ahead for a shortwhile, wait a little bit longer}
+      {we might be ahead for a short while, wait a little bit longer}
       timewait.tv_sec := 0;
       timewait.tv_nsec := 2000000;
       ree:=fpNanoSleep(@timewait,@finalparsec);
@@ -233,7 +233,7 @@ begin
     end;
     countemptines:=0;
     if ch = ';' then
-      continue; {ment to eat very first ';', there shoud not be any other}
+      continue; {eat very first ';', there should not be any other}
     if inEsc then
       begin
         escSeq:=escSeq+ch;
@@ -287,7 +287,7 @@ begin
     begin
       inc(countemptines);
       if countemptines = 30 then break;
-      {we might be ahead for a shortwhile, wait a little bit longer}
+      {we might be ahead for a short while, wait a little bit longer}
       timewait.tv_sec := 0;
       timewait.tv_nsec := 2000000;
       ree:=fpNanoSleep(@timewait,@finalparsec);

packages/fv/src/fvcommon.inc

@@ -239,7 +239,7 @@ Given two SmallInt values returns the lowest SmallInt of the two.
 ---------------------------------------------------------------------}
 FUNCTION MinIntegerOf (A, B: SmallInt): SmallInt;
 
-{-MaxIntegerof-------------------------------------------------------
+{-MaxIntegerOf-------------------------------------------------------
 Given two SmallInt values returns the biggest SmallInt of the two.
 04Oct99 LdB
 ---------------------------------------------------------------------}
@@ -263,7 +263,7 @@ FUNCTION MaxLongIntOf (A, B: LongInt): LongInt;
 
 { ******************************* REMARK ****************************** }
 {  Delphi 3+ does not define these standard routines so I have made     }
-{  some public functions here to complete compatability.                }
+{  some public functions here to complete compatibility.                }
 { ****************************** END REMARK *** Leon de Boer, 14Aug98 * }
 
 {-MemAvail-----------------------------------------------------------

packages/fv/src/fvconsts.pas

@@ -180,7 +180,7 @@ const
 {
  The FVConsts unit contains all command constants used in the FreeVision
  library. They have been extracted from their original units and placed here
- for easier maintainence and modification to remove conflicts, such as Borland
+ for easier maintenance and modification to remove conflicts, such as Borland
  created with the cmChangeDir constant in the StdDlg and App units.
 }
 

packages/fv/src/inplong.inc

@@ -23,7 +23,7 @@ Unit InpLong;
 {$ENDIF FPC_DOTTEDUNITS}
 
 (*--
-TInputLong is a derivitave of TInputline designed to accept LongInt
+TInputLong is a derivative of TInputline designed to accept LongInt
 numeric input.  Since both the upper and lower limit of acceptable numeric
 input can be set, TInputLong may be used for SmallInt, Word, or Byte input
 as well.  Option flag bits allow optional hex input and display.  A blank

packages/fv/src/memory.pas

@@ -171,14 +171,14 @@ PROCEDURE NewBuffer (Var P: Pointer; Size: Word);
 
 {-InitDosMem---------------------------------------------------------
 Initialize memory manager routine for a shell to launch a DOS window.
-Interface for compatability only under DPMI/WIN/NT/OS2 platforms.
+Interface for compatibility only under DPMI/WIN/NT/OS2 platforms.
 01Oct99 LdB
 ---------------------------------------------------------------------}
 PROCEDURE InitDosMem;
 
 {-DoneDosMem---------------------------------------------------------
 Finished shell to a DOS window so reset memory manager again.
-Interface for compatability only under DPMI/WIN/NT/OS2 platforms.
+Interface for compatibility only under DPMI/WIN/NT/OS2 platforms.
 01Oct99 LdB
 ---------------------------------------------------------------------}
 PROCEDURE DoneDosMem;
@@ -611,12 +611,12 @@ PROCEDURE NewCache (Var P: Pointer; Size: Word);
 {$IFDEF PROC_REAL}                                    { REAL MODE DOS CODE }
 ASSEMBLER;
 ASM
-   LES DI, P;                                         { Addres of var P }
+   LES DI, P;                                         { Address of var P }
    MOV AX, Size;
    ADD AX, (TYPE TCache)+15;                          { Add offset }
    MOV CL, 4;
    SHR AX, CL;
-   MOV DX, CachePtr.Word[2];                          { Reteive cache ptr }
+   MOV DX, CachePtr.Word[2];                          { Retrieve cache ptr }
    SUB DX, AX;
    JC @@1;
    CMP DX, HeapPtr.Word[2];                           { Heap ptr end }
@@ -810,7 +810,7 @@ PROCEDURE DisposeBuffer (P: Pointer);
 BEGIN
    If (P <> Nil) Then Begin
      {$IFDEF PROC_REAL}                               { REAL MODE DOS CODE }
-     Dec(PtrRec(P).Seg);                              { Prior segement }
+     Dec(PtrRec(P).Seg);                              { Prior segment }
      SetBufSize(P, 0);                                { Release memory }
      {$ELSE}                                          { DPMI/WIN/NT/OS2 CODE }
 {$ifdef fpc}
@@ -842,7 +842,7 @@ VAR BufSize: Word; Buffer: PBuffer;
 BEGIN
    {$IFDEF PROC_REAL}                                 { REAL MODE DOS CODE }
    BufSize := (Size + 15) SHR 4 + 1;                  { Paragraphs to alloc }
-   If (BufHeapPtr+BufSize > BufHeapEnd) Then P := Nil { Exceeeds heap }
+   If (BufHeapPtr+BufSize > BufHeapEnd) Then P := Nil { Exceeds heap }
    Else Begin
      Buffer := Ptr(BufHeapPtr, 0);                    { Current position }
      Buffer^.Size := Size;                            { Set size }

packages/fv/src/menus.inc

@@ -1166,10 +1166,10 @@ BEGIN
    W := 5 + W;                        { Longest text width }
    R.Copy(Bounds);                                    { Copy the bounds }
    If (R.A.X + W < R.B.X) Then R.B.X := R.A.X + W     { Shorten if possible }
-     Else R.A.X := R.B.X - W;                         { Insufficent space }
+     Else R.A.X := R.B.X - W;                         { Insufficient space }
    R.B.X := R.A.X + W;
    If (R.A.Y + H < R.B.Y) Then R.B.Y := R.A.Y + H     { Shorten if possible }
-     Else R.A.Y := R.B.Y - H;                         { Insufficent height }
+     Else R.A.Y := R.B.Y - H;                         { Insufficient height }
    Inherited Init(R);                                 { Call ancestor }
    State := State OR sfShadow;                        { Set shadow state }
    Options := Options OR ofFramed or ofPreProcess;                { View pre processes }
@@ -1397,7 +1397,7 @@ CONSTRUCTOR TStatusLine.Load (Var S: TStream);
 
 BEGIN
    Inherited Load(S);                                 { Call ancestor }
-   Defs := DoLoadStatusDefs;                          { Retreive items }
+   Defs := DoLoadStatusDefs;                          { Retrieve items }
    FindItems;                                         { Find the items }
 END;
 

packages/fv/src/msgbox.inc

@@ -113,7 +113,7 @@ USES objects,                                 { Standard GFV units }
 {---------------------------------------------------------------------------}
 CONST
    mfWarning      = $0000;                            { Display a Warning box }
-   mfError        = $0001;                            { Dispaly a Error box }
+   mfError        = $0001;                            { Display a Error box }
    mfInformation  = $0002;                            { Display an Information Box }
    mfConfirmation = $0003;                            { Display a Confirmation Box }
 

packages/fv/src/outline.inc

@@ -317,7 +317,7 @@ var position:sw_integer;
       begin
         if not lastchild then
           lines:=lines or (1 shl level);
-        {Iterate all childs.}
+        {Iterate all children}
         childcount:=getnumchildren(cur);
         for i:=0 to childcount-1 do
           begin

packages/fv/src/resource.pas

@@ -127,7 +127,7 @@ type
       will work without problems.
 
       When using a string list in the same program as it is created, a
-      resource file is not required.  This allows language independant coding
+      resource file is not required.  This allows language independent coding
       of units without the need for conditional defines and recompiling. }
     constructor Init;
       { Creates an empty, in-memory string list that is not associated with a
@@ -218,7 +218,7 @@ var
       displayed at run-time using MessageBox or the status line hints.
 
       Using the Labels variable when creating views allows language
-      independant coding of views such as the MessageBox, StdDlg and Editors
+      independent coding of views such as the MessageBox, StdDlg and Editors
       units. }
 
   RezFile: PResourceFile;

packages/fv/src/statuses.inc

@@ -285,7 +285,7 @@ type
   TStatusDlg = Object(TDialog)
     { A TStatusDlg displays a status view and optional buttons.  It may be
       used to display any status message and optionally provide end user
-      cancelation or pausing of an ongoing operation, such as printing.
+      cancellation or pausing of an ongoing operation, such as printing.
 
       All status views that are to be inserted into a window or dialog should
       descend from #TStatus# for proper color mapping. }
@@ -320,7 +320,7 @@ type
       { All evStatus events are accepted by the dialog and sent to each
         subview in Z-order until cleared.
 
-        If the dialog recieves an evCommand or evBroadcast event with the
+        If the dialog receives an evCommand or evBroadcast event with the
         Command parameter set to cmCancel, HandleEvent sends an #evStatus#
         message to the Application variable with Event.Command set to the
         cmStatusCancel and Event.InfoPtr set to the #Status#.Command and
@@ -329,7 +329,7 @@ type
         When a pause button is included, a cmStatusPause broadcast event is
         associated with the button.  When the button is pressed a call to
         #TStatus.Pause# results.  The status view is inactivated until it
-        receives an evStatus event with a commond of cmStatusResume and
+        receives an evStatus event with a command of cmStatusResume and
         Event.InfoPtr set to the status view's Command value.  When a pause
         button is used, the application should respond to the evStatus event
         (with Event.Command of cmStatusPause) appropriately, then dispatch a
@@ -361,7 +361,7 @@ type
 
         The size of the dialog is determined by the size of the AStatus.  The
         dialog is anchored at AStatus^.Origin and is of at least
-        AStatus^.Size + 2 in heighth and width.  The exact width and heighth
+        AStatus^.Size + 2 in heighth and width.  The exact width and height
         are determined by AOptions.
 
         AFlags contains flags which determine the buttons to be displayed

packages/fv/src/stddlg.inc

@@ -343,7 +343,7 @@ type
       action on the file named AFile.  If the user elects to perform the
       function FileConfirmFunc's return True, otherwise they return False.
 
-      Using FileConfirmFunc's allows routines to be coded independant of the
+      Using FileConfirmFunc's allows routines to be coded independent of the
       user interface implemented.  OWL and TurboVision are supported through
       conditional defines.  If you do not use either user interface you must
       compile this unit with the conditional define cdNoMessages and set all
@@ -405,7 +405,7 @@ function FileExists (AFile : FNameStr) : Boolean;
     other directories may be searched by prefacing a file name with a valid
     directory path.
 
-    There is no check for a vaild file name or drive.  Errrors are handled
+    There is no check for a valid file name or drive.  Errors are handled
     internally and not reported in DosError.  Critical errors are left to
     the system's critical error handler. }
   {#X OpenFile }
@@ -420,7 +420,7 @@ function GetCurDrive: AnsiChar;
     operating system. }
 
 function IsWild(const S: String): Boolean;
-  { IsWild returns True if S contains a question mark (?) or asterix (*). }
+  { IsWild returns True if S contains a question mark (?) or asterisk (*). }
 
 function IsList(const S: String): Boolean;
   { IsList returns True if S contains list separator (;) AnsiChar }
@@ -475,10 +475,10 @@ function SaveAs (var AFile : FNameStr; HistoryID : Word) : Boolean;
 function SelectDir (var ADir : DirStr; HistoryID : Byte) : Boolean;
   { SelectDir prompts the user to select a directory using ADir as the
     starting directory.  If a directory is selected, SelectDir returns True.
-    The directory returned is gauranteed to exist. }
+    The directory returned is guaranteed to exist. }
 
 function ShrinkPath (AFile : FNameStr; MaxLen : Byte) : FNameStr;
-  { ShrinkPath returns a file name with a maximu length of MaxLen.
+  { ShrinkPath returns a file name with a maximum length of MaxLen.
     Internal directories are removed and replaced with elipses as needed to
     make the file name fit in MaxLen.
 
@@ -1238,7 +1238,7 @@ begin
     begin
       if IsSelectedInner then
         Result := GetColor(3)
-      else 
+      else
         Result := GetColor(6);
       Exit;
     end;

packages/fv/src/str.inc

@@ -85,7 +85,7 @@ sReformattingTheDocument = 66; { Reformatting the document: }
 sReplace = 67; { Replace }
 sReplaceFile = 68; { Replace file?#13#10#13#3%s }
 sReplaceNotPossible = 69; { Wordwrap on:  Replace not possible in current margins when at end of line. }
-sReplaceThisOccurence = 70; { Replace this occurence? }
+sReplaceThisOccurrence = 70; { Replace this occurrence? }
 sRightMargin = 71; { Right Margin }
 sSaveAs = 72; { Save As }
 sScrollbarIcons = 73; { Scroll bar icons }

packages/fv/src/strtxt.inc

@@ -91,7 +91,7 @@ const standard_string_count=107;
           (nr:sReplace;text:'Replace'),
           (nr:sReplaceFile;text:'Replace file?'#13#10#13#3'%s'),
           (nr:sReplaceNotPossible;text:'Wordwrap on:  Replace not possible in current margins when at end of line.'),
-          (nr:sReplaceThisOccurence;text:'Replace this occurrence?'),
+          (nr:sReplaceThisOccurrence;text:'Replace this occurrence?'),
           (nr:sRightMargin;text:'Right Margin'),
           (nr:sSaveAs;text:'Save As'),
           (nr:sScrollbarIcons;text:'Scroll bar icons'),

packages/fv/src/time.pas

@@ -36,7 +36,7 @@
 {  Version  Date        Fix                                }
 {  -------  ---------   ---------------------------------  }
 {  1.00     06 Dec 96   First multi platform release.      }
-{  1.10     06 Jul 97   New functiions added.              }
+{  1.10     06 Jul 97   New functions added.               }
 {  1.20     22 Jul 97   FPC pascal compiler added.         }
 {  1.30     29 Aug 97   Platform.inc sort added.           }
 {  1.40     13 Oct 97   Delphi 2/3 32 bit code added.      }
@@ -274,7 +274,7 @@ END;
 {---------------------------------------------------------------------------}
 PROCEDURE SetTime (Hour, Minute, Second, Sec100: Word);
 {$IFDEF OS_DOS}                                       { DOS/DPMI CODE }
-   {$IFDEF ASM_BP}                                    { BP COMPATABLE ASM }
+   {$IFDEF ASM_BP}                                    { BP COMPATIBLE ASM }
    ASSEMBLER;
    ASM
      MOV CH, BYTE PTR Hour;                           { Fetch hour }
@@ -287,7 +287,7 @@ PROCEDURE SetTime (Hour, Minute, Second, Sec100: Word);
      POP BP;                                          { Restore register }
    END;
    {$ENDIF}
-   {$IFDEF ASM_FPC}                                   { FPC COMPATABLE ASM }
+   {$IFDEF ASM_FPC}                                   { FPC COMPATIBLE ASM }
      {$IFDEF BIT_16}
      ASSEMBLER;
      ASM
@@ -354,8 +354,8 @@ PROCEDURE SetTime (Hour, Minute, Second, Sec100: Word);
      DT.wHour := Hour;                                { Transfer hour }
      DT.wMinute := Minute;                            { Transfer minute }
      DT.wSecond := Second;                            { Transfer seconds }
-     DT.wMilliseconds := Sec100 * 10;                 { Transfer millisecs }
-     SetLocalTime(DT);                               { Set the date/time }
+     DT.wMilliseconds := Sec100 * 10;                 { Transfer milliseconds }
+     SetLocalTime(DT);                                { Set the date/time }
    END;
    {$ENDIF}
 {$ENDIF}
@@ -392,7 +392,7 @@ END;
 {---------------------------------------------------------------------------}
 PROCEDURE GetTime (Var Hour, Minute, Second, Sec100: Word);
 {$IFDEF OS_DOS}                                       { DOS/DPMI CODE }
-   {$IFDEF ASM_BP}                                    { BP COMPATABLE ASM }
+   {$IFDEF ASM_BP}                                    { BP COMPATIBLE ASM }
    ASSEMBLER;
    ASM
      MOV AX, $2C00;                                   { Set function id }
@@ -415,7 +415,7 @@ PROCEDURE GetTime (Var Hour, Minute, Second, Sec100: Word);
      STOSW;                                           { Return hours }
    END;
    {$ENDIF}
-   {$IFDEF ASM_FPC}                                   { FPC COMPATABLE ASM }
+   {$IFDEF ASM_FPC}                                   { FPC COMPATIBLE ASM }
      {$IFDEF BIT_16}
        {$IFDEF FPC_X86_DATA_NEAR}
        ASSEMBLER;

packages/fv/src/validate.inc

@@ -106,7 +106,7 @@ USES
 {---------------------------------------------------------------------------}
 CONST
    vsOk     = 0;                                      { Validator ok }
-   vsSyntax = 1;                                      { Validator sytax err }
+   vsSyntax = 1;                                      { Validator syntax err }
 
 {---------------------------------------------------------------------------}
 {                           VALIDATOR OPTION MASKS                          }
@@ -933,7 +933,7 @@ END;
 FUNCTION TRangeValidator.Transfer (Var S: Sw_String; Buffer: Pointer; Flag: TVTransfer): Word;
 VAR Value: LongInt; Code: Sw_Integer;
 BEGIN
-   If (Options AND voTransfer <> 0) Then Begin        { Tranfer mask set }
+   If (Options AND voTransfer <> 0) Then Begin        { Transfer mask set }
      Transfer := SizeOf(Value);                       { Transfer a longint }
      Case Flag Of
        vtGetData: Begin
@@ -1007,7 +1007,7 @@ END;
 CONSTRUCTOR TStringLookUpValidator.Load (Var S: TStream);
 BEGIN
    Inherited Load(S);                                 { Call ancestor }
-   Strings := PStringCollection(S.Get);               { Fecth string list }
+   Strings := PStringCollection(S.Get);               { Fetch string list }
 END;
 
 {--TStringLookUpValidator---------------------------------------------------}
@@ -1015,7 +1015,7 @@ END;
 {---------------------------------------------------------------------------}
 DESTRUCTOR TStringLookUpValidator.Done;
 BEGIN
-   NewStringList(Nil);                                { Dispsoe string list }
+   NewStringList(Nil);                                { Dispose string list }
    Inherited Done;                                    { Call ancestor }
 END;
 

packages/fv/src/views.inc

@@ -63,7 +63,7 @@ USES
      OS2Api.os2def, OS2Api.doscalls, OS2Api.pmwin,
    {$ENDIF}
 
-   System.Objects, 
+   System.Objects,
    {$ifdef FV_UNICODE}
    FreeVision.Ufvcommon,FreeVision.Udrivers,
    System.Unicode.Graphemebreakproperty,
@@ -71,7 +71,7 @@ USES
    FreeVision.Fvcommon,
    FreeVision.Drivers,
    {$endif}
-   FreeVision.Fvconsts, 
+   FreeVision.Fvconsts,
    { GFV standard units }
    System.Console.Video;
 {$ELSE FPC_DOTTEDUNITS}
@@ -170,7 +170,7 @@ CONST
 {                        >> NEW << VIEW DRAW MASKS                          }
 {---------------------------------------------------------------------------}
 CONST
-   vdBackGnd = $01;                                   { Draw backgound }
+   vdBackGnd = $01;                                   { Draw background }
    vdInner   = $02;                                   { Draw inner detail }
    vdCursor  = $04;                                   { Draw cursor }
    vdBorder  = $08;                                   { Draw view border }
@@ -2390,7 +2390,7 @@ END;
 PROCEDURE TGroup.EndModal (Command: Word);
 BEGIN
    If (State AND sfModal <> 0) Then                   { This view is modal }
-     EndState := Command Else                         { Set endstate }
+     EndState := Command Else                         { Set end state }
      Inherited EndModal(Command);                     { Call ancestor }
 END;
 
@@ -3230,7 +3230,7 @@ END;
 {--TScrollBar---------------------------------------------------------------}
 {  Store -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 22May98 LdB             }
 {---------------------------------------------------------------------------}
-{  You can save data to the stream compatable with the old original TV by   }
+{  You can save data to the stream compatible with the old original TV by   }
 {  temporarily turning off the ofGrafVersion making the call to this store  }
 {  routine and resetting the ofGrafVersion flag after the call.             }
 {---------------------------------------------------------------------------}
@@ -3525,7 +3525,7 @@ END;
 {--TScroller----------------------------------------------------------------}
 {  Store -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 26Jul99 LdB             }
 {---------------------------------------------------------------------------}
-{  The scroller is saved to the stream compatable with the old TV object.   }
+{  The scroller is saved to the stream compatible with the old TV object.   }
 {---------------------------------------------------------------------------}
 PROCEDURE TScroller.Store (Var S: TStream);
 VAR i: SmallInt;
@@ -3742,7 +3742,7 @@ END;
 {---------------------------------------------------------------------------}
 PROCEDURE TListViewer.SetTopItem (Item: Sw_Integer);
 BEGIN
-   if Size.Y<> LastY then SetRange(Range);{ Reset range to ajdust to Size.Y}
+   if Size.Y<> LastY then SetRange(Range);{ Reset range to adjust to Size.Y}
    If (VScrollBar <> Nil) and (Item> VScrollBar^.Max) Then
        Item:=VScrollBar^.Max;           { Don't let overrun scrollbar limit }
    if Item>=Range then Item:=Range-1;             { Item has to be in range }
@@ -3998,7 +3998,7 @@ BEGIN
    Inherited Init(Bounds);                            { Call ancestor }
    State := State OR sfShadow;                        { View is shadowed }
    Options := Options OR (ofSelectable+ofTopSelect);  { Select options set }
-   GrowMode := gfGrowAll + gfGrowRel;                 { Set growmodes }
+   GrowMode := gfGrowAll + gfGrowRel;                 { Set growmode }
    Flags := wfMove + wfGrow + wfClose + wfZoom;       { Set flags }
 {$ifdef FV_UNICODE}
    Title := ATitle;                                   { Hold title }
@@ -4016,7 +4016,7 @@ END;
 {  Load -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 15Sep97 LdB              }
 {---------------------------------------------------------------------------}
 {   This load method will read old original TV data from a stream however   }
-{   although a frame view is read for compatability it is disposed of.      }
+{   although a frame view is read for compatibility it is disposed of.      }
 {---------------------------------------------------------------------------}
 CONSTRUCTOR TWindow.Load (Var S: TStream);
 VAR I: SmallInt;
@@ -4156,7 +4156,7 @@ END;
 {--TWindow------------------------------------------------------------------}
 {  Store -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 30Mar98 LdB             }
 {---------------------------------------------------------------------------}
-{  You can save data to the stream compatable with the old original TV by   }
+{  You can save data to the stream compatible with the old original TV by   }
 {  temporarily turning off the ofGrafVersion making the call to this store  }
 {  routine and resetting the ofGrafVersion flag after the call.             }
 {---------------------------------------------------------------------------}