LCL: fixed typos related to 'occur' word

git-svn-id: trunk@65207 -

lcl/include/treeview.inc

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

lcl/include/wincontrol.inc

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

lcl/interfaces/carbon/carbontrayicon.inc

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

lcl/interfaces/customdrawn/customdrawnobject_x11.inc

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

lcl/interfaces/customdrawn/customdrawntrayicon_cocoa.inc

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

lcl/interfaces/customdrawn/customdrawnwsforms_x11.inc

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

lcl/interfaces/gtk/gtkproc.inc

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

lcl/interfaces/gtk/gtkwinapi.inc

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

lcl/interfaces/gtk2/gtk2proc.inc

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

lcl/interfaces/gtk2/gtk2winapi.inc

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

lcl/interfaces/gtk2/gtk2wsforms.pp

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

lcl/maskedit.pp

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