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

SynEdit: fixed typos related to 'occur' word

Browse Source 
git-svn-id: trunk@65201 -
This commit is contained in:
maxim 2021-06-10 22:13:34 +00:00
parent b7edc055af
commit c1a767e4ce
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/synedit.pp
View File

@ -3671,26 +3671,26 @@ begin
exit; exit;
if FLeftGutter.Visible and (X < FLeftGutter.Width) then begin if FLeftGutter.Visible and (X < FLeftGutter.Width) then begin
// mouse event occured in Gutter ? // mouse event occurred in Gutter ?
if FLeftGutter.MaybeHandleMouseAction(Info, @DoHandleMouseAction) then if FLeftGutter.MaybeHandleMouseAction(Info, @DoHandleMouseAction) then
exit; exit;
end end
else else
if FRightGutter.Visible and (X > ClientWidth - FRightGutter.Width) then begin if FRightGutter.Visible and (X > ClientWidth - FRightGutter.Width) then begin
// mouse event occured in Gutter ? // mouse event occurred in Gutter ?
if FRightGutter.MaybeHandleMouseAction(Info, @DoHandleMouseAction) then if FRightGutter.MaybeHandleMouseAction(Info, @DoHandleMouseAction) then
exit; exit;
end end
else else
begin begin
// mouse event occured in selected block ? // mouse event occurred in selected block ?
if SelAvail and (X >= FTextArea.Bounds.Left) and (X < FTextArea.Bounds.Right) and if SelAvail and (X >= FTextArea.Bounds.Left) and (X < FTextArea.Bounds.Right) and
(Y >= FTextArea.Bounds.Top) and (Y < FTextArea.Bounds.Bottom) and (Y >= FTextArea.Bounds.Top) and (Y < FTextArea.Bounds.Bottom) and
IsPointInSelection(FInternalCaret.LineBytePos) IsPointInSelection(FInternalCaret.LineBytePos)
then then
if DoHandleMouseAction(FMouseSelActions.GetActionsForOptions(MouseOptions), Info) then if DoHandleMouseAction(FMouseSelActions.GetActionsForOptions(MouseOptions), Info) then
exit; exit;
// mouse event occured in text? // mouse event occurred in text?
if DoHandleMouseAction(FMouseTextActions.GetActionsForOptions(MouseOptions), Info) then if DoHandleMouseAction(FMouseTextActions.GetActionsForOptions(MouseOptions), Info) then
exit; exit;
end; end;

2
components/synedit/syneditexport.pas
View File

@ -58,7 +58,7 @@ uses
type type
PSynReplaceCharsArray = ^TSynReplaceCharsArray; PSynReplaceCharsArray = ^TSynReplaceCharsArray;
{ Array to hold the replacements strings for chars that are invalid for the { Array to hold the replacements strings for chars that are invalid for the
output format, occurences of the chars that have a corresponding entry in output format, occurrences of the chars that have a corresponding entry in
this array are replaced with the string the entry points to. Descendant this array are replaced with the string the entry points to. Descendant
classes have to fill it accordingly. } classes have to fill it accordingly. }
TSynReplaceCharsArray = array[char] of PChar; TSynReplaceCharsArray = array[char] of PChar;