Parcourir la source

Merge branch 'main' into isscint-update

Martijn Laan il y a 1 an
Parent
commit
796c10746d
1 fichiers modifiés avec 5 ajouts et 1 suppressions
  1. 5 1
      Projects/Src/CompForm.pas

+ 5 - 1
Projects/Src/CompForm.pas

@@ -3259,7 +3259,11 @@ procedure TCompileForm.UpdateOccurrenceIndicators(const AMemo: TCompScintEdit);
       if Markers * [mmLineError, mmLineBreakpointBad, mmLineStep] <> [] then
       if Markers * [mmLineError, mmLineBreakpointBad, mmLineStep] <> [] then
         Continue;
         Continue;
 
 
-      { Add indicator while making sure it does not overlap the regular selection styling }
+      { Add indicator while making sure it does not overlap the regular selection
+        styling (only looks at main selection and not any additional selections
+        atm - so if you ctrl drag to select a part of a word and then the same
+        on an occurrence somewhere else the additional selection becomes hidden
+        by the indicator except for the very top and bottom }
       if SelAvail and Range.Overlaps(Selection) then begin
       if SelAvail and Range.Overlaps(Selection) then begin
         if Range.StartPos < Selection.StartPos then
         if Range.StartPos < Selection.StartPos then
           ARangeList.Add(TScintRange.Create(Range.StartPos, Selection.StartPos));
           ARangeList.Add(TScintRange.Create(Range.StartPos, Selection.StartPos));