paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 07:37:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

Corrections for spelling errors in LCL and Components. Issue #38986, patch by Don Siders.

Browse Source 
git-svn-id: trunk@65216 -
This commit is contained in:
juha 2021-06-11 07:11:44 +00:00
parent dadb9c7e8d
commit d9c207b72b
6 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/datetimectrls/datetimepicker.pas
View File

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

2
components/fpvectorial/epsvectorialreader.pas
View File

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

2
components/synedit/synbeautifier.pas
View File

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

8
components/synedit/synbeautifierpascal.pas
View File

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

2
lcl/lazdeviceapis.pas
View File

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

2
lcl/shellctrls.pas
View File

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