paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 22:41:42 +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 { Used by DateDisplayOrder property to determine the order to display date
parts -- d-m-y, m-d-y or y-m-d. parts -- d-m-y, m-d-y or y-m-d.
When ddoTryDefault is set, the actual order is determined from When ddoTryDefault is set, the actual order is determined from
ShortDateFormat global variable -- see coments above ShortDateFormat global variable -- see comments above
AdjustEffectiveDateDisplayOrder procedure } AdjustEffectiveDateDisplayOrder procedure }
TDateDisplayOrder = (ddoDMY, ddoMDY, ddoYMD, ddoTryDefault); TDateDisplayOrder = (ddoDMY, ddoMDY, ddoYMD, ddoTryDefault);
@ -3673,7 +3673,7 @@ end;
{ TDTSpeedButton } { TDTSpeedButton }
{ See the coment above TDTUpDown.CalculatePreferredSize } { See the comment above TDTUpDown.CalculatePreferredSize }
procedure TDTSpeedButton.CalculatePreferredSize(var PreferredWidth, procedure TDTSpeedButton.CalculatePreferredSize(var PreferredWidth,
PreferredHeight: integer; WithThemeSpace: Boolean); PreferredHeight: integer; WithThemeSpace: Boolean);
begin begin

2
components/fpvectorial/epsvectorialreader.pas
View File

@ -489,7 +489,7 @@ end;
{@@ Rules for parsing PostScript files: {@@ 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 * The only accepted characters are printable ASCII ones, plus spacing ASCII chars
See IsValidPostScriptChar about that 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; function UnIndentLine(const ACaret: TSynEditCaret; out CaretNewX: Integer): Boolean;
public public
procedure Assign(Src: TPersistent); override; 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; function GetIndentForLine(Editor: TSynEditBase; const Line: string;
Physical: boolean): Integer; Physical: boolean): Integer;
function GetDesiredIndentForLine function GetDesiredIndentForLine

8
components/synedit/synbeautifierpascal.pas
View File

@ -99,9 +99,9 @@ type
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure Assign(Src: TPersistent); 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 published
// *** coments with (* *) // *** comments with (* *)
(* AnsiIndentFirstLineMax: (* AnsiIndentFirstLineMax:
* For comments that use any sciAlignOpen... * For comments that use any sciAlignOpen...
@ -145,7 +145,7 @@ type
property AnsiEolSkipLongerLine: Boolean read FEolSkipLongerLine[sctAnsi] property AnsiEolSkipLongerLine: Boolean read FEolSkipLongerLine[sctAnsi]
write FEolSkipLongerLine[sctAnsi]; write FEolSkipLongerLine[sctAnsi];
// *** coments with { } // *** comments with { }
property BorIndentMode: TSynCommentIndentFlags read FIndentMode[sctBor] property BorIndentMode: TSynCommentIndentFlags read FIndentMode[sctBor]
write FIndentMode[sctBor]; write FIndentMode[sctBor];
@ -176,7 +176,7 @@ type
property BorEolSkipLongerLine: Boolean read FEolSkipLongerLine[sctBor] property BorEolSkipLongerLine: Boolean read FEolSkipLongerLine[sctBor]
write FEolSkipLongerLine[sctBor]; write FEolSkipLongerLine[sctBor];
// *** coments with // // *** comments with //
// Continue only, if Extended // Continue only, if Extended
property ExtendSlashCommentMode: TSynCommentExtendMode read FExtendSlashCommentMode property ExtendSlashCommentMode: TSynCommentExtendMode read FExtendSlashCommentMode

2
lcl/lazdeviceapis.pas
View File

@ -57,7 +57,7 @@ type
TLazDeviceMessage = class TLazDeviceMessage = class
public public
// The coments indicate in which message kind each // The comments indicate in which message kind each
// field is available. SMS MMS EMail // field is available. SMS MMS EMail
bccAddress: TStringList; // N N Y bccAddress: TStringList; // N N Y
Body: string; // Y Y 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 if (not IsRelpath) or ((RelPath <> '') and ((Length(RelPath) > 1) and (RelPath[1] = '.') and (RelPath[2] = '.'))) then
begin begin
// CreateRelativePath retruns a string beginning with .. // CreateRelativePath returns a string beginning with ..
// so AValue is not a subdirectory of FRoot // so AValue is not a subdirectory of FRoot
Raise EInvalidPath.CreateFmt(sShellCtrlsInvalidPathRelative,[AValue, FQRootPath]); Raise EInvalidPath.CreateFmt(sShellCtrlsInvalidPathRelative,[AValue, FQRootPath]);
end; end;