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

LCL: fixed typos related to 'occur' word

Browse Source 
git-svn-id: trunk@65207 -
This commit is contained in:
maxim 2021-06-10 22:21:45 +00:00
parent 171338a8db
commit b8d0d9366b
12 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/treeview.inc
View File

@ -5717,11 +5717,11 @@ begin
(CursorNode <> nil) then
begin
if FMouseDownOnFoldingSign then
// mousedown occured on expand sign -> expand/collapse
// mousedown occurred on expand sign -> expand/collapse
CursorNode.Expanded := not CursorNode.Expanded
else if (LogicalX >= CursorNode.DisplayStateIconLeft) or (tvoRowSelect in Options) then
begin
// mousedown occured in text or icon -> select node and begin drag operation
// mousedown occurred in text or icon -> select node and begin drag operation
{$IFDEF VerboseDrag}
DebugLn(['TCustomTreeView.MouseDown In Text ',DbgSName(Self),' MouseCapture=',MouseCapture]);
{$ENDIF}

2
lcl/include/wincontrol.inc
View File

@ -7604,7 +7604,7 @@ begin
AdjustSize;
finally
//DebugLn(['TWinControl.CreateWnd created ',DbgSName(Self),' enable autosizing ...']);
(* If an error occured and FHandle was not created,
(* If an error occurred and FHandle was not created,
then EnableAutoSizing must not be called.
EnableAutoSizing will need the Handle, and trigger another attempt to create it.
This leads to an endless loop/recursion.

2
lcl/interfaces/carbon/carbontrayicon.inc
View File

@ -111,7 +111,7 @@ begin
Result := objc_getClass({Str_TPrivateCocoaCarbonTrayIcon} Str_NSObject);
end;
{Removes/replaces all occurences of a character from a string}
{Removes/replaces all occurrences of a character from a string}
function TPrivateCocoaCarbonTrayIcon.TrimAllChar(const S: string; const ch: Char): string;
var
buf: string;

2
lcl/interfaces/customdrawn/customdrawnobject_x11.inc
View File

@ -744,7 +744,7 @@ begin
begin
lTimer := GetTimer(i);
// if selectresult = 0 then a timeout occured, in other cases guess how
// if selectresult = 0 then a timeout occurred, in other cases guess how
// much time passed
if selectresult = 0 then Inc(lTimer.NativeHandle, lTimeoutInterval)
else Inc(lTimer.NativeHandle, 10);

2
lcl/interfaces/customdrawn/customdrawntrayicon_cocoa.inc
View File

@ -108,7 +108,7 @@ begin
Result := objc_getClass({Str_TPrivateCocoaCarbonTrayIcon} Str_NSObject);
end;
{Removes/replaces all occurences of a character from a string}
{Removes/replaces all occurrences of a character from a string}
function TPrivateCocoaCarbonTrayIcon.TrimAllChar(const S: string; const ch: Char): string;
var
buf: string;

2
lcl/interfaces/customdrawn/customdrawnwsforms_x11.inc
View File

@ -819,7 +819,7 @@ begin
end;
{$endif}
// if overflow occured, then previous SetLength() would have fixed the buffer
// if overflow occurred, then previous SetLength() would have fixed the buffer
// size, so run Xutf8LookupString again to read correct value.
if CDWidgetset.ComposeStatus = XBufferOverflow then
Xutf8LookupString(CDWidgetset.InputContext, @Event, @CDWidgetset.ComposeBuffer[1],

2
lcl/interfaces/gtk/gtkproc.inc
View File

@ -277,7 +277,7 @@ begin
{$IFDEF VerboseGtkToDos}{$note TODO: enable standard error_log handling}{$ENDIF}
{$IfDef REPORT_GDK_ERRORS}
If (Xerror<>0) then
RaiseGDBException('A GDK/X Error occured, this is normally fatal. The error code was : ' + IntToStr(Xerror));
RaiseGDBException('A GDK/X Error occurred, this is normally fatal. The error code was: ' + IntToStr(Xerror));
{$EndIf}
end;

6
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -835,7 +835,7 @@ var
try
if not gdk_pixbuf_loader_write(Loader, TGdkPixBufBuffer(@Header), MIN_LOADER_HEADER_SIZE {$ifdef gtk2},nil{$endif})
then begin
DebugLn('WARNING: [TGtkWidgetSet.CreateBitmap] Error occured loading Bitmap Header!');
DebugLn('WARNING: [TGtkWidgetSet.CreateBitmap] Error loading Bitmap Header!');
Exit;
end;
@ -862,14 +862,14 @@ var
if not res
then begin
DebugLn('WARNING: [TGtkWidgetSet.CreateBitmap] Error occured loading Image!');
DebugLn('WARNING: [TGtkWidgetSet.CreateBitmap] Error loading Image!');
Exit;
end;
Src := gdk_pixbuf_loader_get_pixbuf(loader);
if Src = nil
then begin
DebugLn('WARNING: [TGtkWidgetSet.CreateBitmap] Error occured loading Pixbuf!');
DebugLn('WARNING: [TGtkWidgetSet.CreateBitmap] Error loading Pixbuf!');
Exit;
end;

2
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -250,7 +250,7 @@ begin
{$IFDEF VerboseGtkToDos}{$note TODO: enable standard error_log handling}{$ENDIF}
{$IfDef REPORT_GDK_ERRORS}
If (Xerror<>0) then
RaiseGDBException('A GDK/X Error occured, this is normally fatal. The error code was : ' + IntToStr(Xerror));
RaiseGDBException('A GDK/X Error occurred, this is normally fatal. The error code was: ' + IntToStr(Xerror));
{$EndIf}
end;

6
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -812,7 +812,7 @@ var
try
if not gdk_pixbuf_loader_write(Loader, TGdkPixBufBuffer(@Header), MIN_LOADER_HEADER_SIZE,nil)
then begin
DebugLn('WARNING: [TGtk2WidgetSet.CreateBitmap] Error occured loading Bitmap Header!');
DebugLn('WARNING: [TGtk2WidgetSet.CreateBitmap] Error loading Bitmap Header!');
Exit;
end;
@ -839,14 +839,14 @@ var
if not res
then begin
DebugLn('WARNING: [TGtk2WidgetSet.CreateBitmap] Error occured loading Image!');
DebugLn('WARNING: [TGtk2WidgetSet.CreateBitmap] Error loading Image!');
Exit;
end;
Src := gdk_pixbuf_loader_get_pixbuf(loader);
if Src = nil
then begin
DebugLn('WARNING: [TGtk2WidgetSet.CreateBitmap] Error occured loading Pixbuf!');
DebugLn('WARNING: [TGtk2WidgetSet.CreateBitmap] Error loading Pixbuf!');
Exit;
end;

4
lcl/interfaces/gtk2/gtk2wsforms.pp
View File

@ -237,12 +237,12 @@ begin
begin
WInfo^.FormWindowState := Event^.window_state;
// needed to lock recursions, normally send_event can be 0 or 1
// we add 2 to know if recursion occured.
// we add 2 to know if recursion occurred.
WInfo^.FormWindowState.send_event := 2;
g_idle_add(@gtk2WSDelayedWindowStateChange, Data);
end else
begin
// our send_event flag is 2, mean recursion occured
// our send_event flag is 2, mean recursion occurred
// so we have to normalize things first.
while WInfo^.FormWindowState.send_event = 2 do
begin

2
lcl/maskedit.pp
View File

@ -1157,7 +1157,7 @@ begin
end;
if HasCommaAndPeriod then
begin
//When mask has both period and comma only the first occurence is jumpable
//When mask has both period and comma only the first occurrence is jumpable
if P2 < P then HasNextDot := False;
end;
CanJump := HasNextDot and (P < FMaskLength) and (not IsLiteral(P+1));