From d9c207b72be7a6942c64c88729e819d7ec46c9fe Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 11 Jun 2021 07:11:44 +0000
Subject: [PATCH] Corrections for spelling errors in LCL and Components. Issue
 #38986, patch by Don Siders.

git-svn-id: trunk@65216 -
---
 components/datetimectrls/datetimepicker.pas   | 4 ++--
 components/fpvectorial/epsvectorialreader.pas | 2 +-
 components/synedit/synbeautifier.pas          | 2 +-
 components/synedit/synbeautifierpascal.pas    | 8 ++++----
 lcl/lazdeviceapis.pas                         | 2 +-
 lcl/shellctrls.pas                            | 2 +-
 6 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/components/datetimectrls/datetimepicker.pas b/components/datetimectrls/datetimepicker.pas
index c1cc1880a0..7f2a8f775e 100644
--- a/components/datetimectrls/datetimepicker.pas
+++ b/components/datetimectrls/datetimepicker.pas
@@ -86,7 +86,7 @@ type
   { Used by DateDisplayOrder property to determine the order to display date
     parts -- d-m-y, m-d-y or y-m-d.
     When ddoTryDefault is set, the actual order is determined from
-    ShortDateFormat global variable -- see coments above
+    ShortDateFormat global variable -- see comments above
     AdjustEffectiveDateDisplayOrder procedure }
   TDateDisplayOrder = (ddoDMY, ddoMDY, ddoYMD, ddoTryDefault);
 
@@ -3673,7 +3673,7 @@ end;
 
 { TDTSpeedButton }
 
-{ See the coment above TDTUpDown.CalculatePreferredSize }
+{ See the comment above TDTUpDown.CalculatePreferredSize }
 procedure TDTSpeedButton.CalculatePreferredSize(var PreferredWidth,
   PreferredHeight: integer; WithThemeSpace: Boolean);
 begin
diff --git a/components/fpvectorial/epsvectorialreader.pas b/components/fpvectorial/epsvectorialreader.pas
index 03c261f1f2..024387968c 100644
--- a/components/fpvectorial/epsvectorialreader.pas
+++ b/components/fpvectorial/epsvectorialreader.pas
@@ -489,7 +489,7 @@ end;
 
 {@@ Rules for parsing PostScript files:
 
-* Coments go from the first occurrence of % outside a line to the next new line
+* Comments go from the first occurrence of % outside a line to the next new line
 * The only accepted characters are printable ASCII ones, plus spacing ASCII chars
   See IsValidPostScriptChar about that
 }
diff --git a/components/synedit/synbeautifier.pas b/components/synedit/synbeautifier.pas
index 6467c4d84f..884f263f3e 100644
--- a/components/synedit/synbeautifier.pas
+++ b/components/synedit/synbeautifier.pas
@@ -165,7 +165,7 @@ type
     function UnIndentLine(const ACaret: TSynEditCaret; out CaretNewX: Integer): Boolean;
   public
     procedure Assign(Src: TPersistent); override;
-    // Retruns a 0-based position (even 0-based physical)
+    // Returns a 0-based position (even 0-based physical)
     function GetIndentForLine(Editor: TSynEditBase; const Line: string;
                         Physical: boolean): Integer;
     function GetDesiredIndentForLine
diff --git a/components/synedit/synbeautifierpascal.pas b/components/synedit/synbeautifierpascal.pas
index ffde32bf05..ab56690dd5 100644
--- a/components/synedit/synbeautifierpascal.pas
+++ b/components/synedit/synbeautifierpascal.pas
@@ -99,9 +99,9 @@ type
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure Assign(Src: TPersistent); override;
-    // Retruns a 0-based position (even 0-based physical)
+    // Returns a 0-based position (even 0-based physical)
   published
-    // *** coments with (* *)
+    // *** comments with (* *)
 
     (* AnsiIndentFirstLineMax:
        * For comments that use any sciAlignOpen...
@@ -145,7 +145,7 @@ type
     property AnsiEolSkipLongerLine: Boolean      read FEolSkipLongerLine[sctAnsi]
                                                  write FEolSkipLongerLine[sctAnsi];
 
-    // *** coments with { }
+    // *** comments with { }
 
     property BorIndentMode: TSynCommentIndentFlags read FIndentMode[sctBor]
                                                   write FIndentMode[sctBor];
@@ -176,7 +176,7 @@ type
     property BorEolSkipLongerLine: Boolean      read FEolSkipLongerLine[sctBor]
                                                 write FEolSkipLongerLine[sctBor];
 
-    // *** coments with //
+    // *** comments with //
     // Continue only, if Extended
 
     property ExtendSlashCommentMode: TSynCommentExtendMode read FExtendSlashCommentMode
diff --git a/lcl/lazdeviceapis.pas b/lcl/lazdeviceapis.pas
index cd6681f991..0e75965df4 100644
--- a/lcl/lazdeviceapis.pas
+++ b/lcl/lazdeviceapis.pas
@@ -57,7 +57,7 @@ type
 
   TLazDeviceMessage = class
   public
-    // The coments indicate in which message kind each
+    // The comments indicate in which message kind each
     // field is available.             SMS   MMS  EMail
     bccAddress: TStringList;         // N     N    Y
     Body: string;                    // Y     Y	   Y
diff --git a/lcl/shellctrls.pas b/lcl/shellctrls.pas
index fbba4aea3b..cf8bc531b0 100644
--- a/lcl/shellctrls.pas
+++ b/lcl/shellctrls.pas
@@ -1252,7 +1252,7 @@ begin
 
   if (not IsRelpath) or ((RelPath <> '') and ((Length(RelPath) > 1) and (RelPath[1] = '.') and (RelPath[2] = '.'))) then
   begin
-    // CreateRelativePath retruns a string beginning with ..
+    // CreateRelativePath returns a string beginning with ..
     // so AValue is not a subdirectory of FRoot
     Raise EInvalidPath.CreateFmt(sShellCtrlsInvalidPathRelative,[AValue, FQRootPath]);
   end;