Clarify a bit.

jrsoftware · Jun 13, 2024 · 470f595 · 470f595
1 parent a2e773c
commit 470f595
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/Projects/Src/CompForm.pas b/Projects/Src/CompForm.pas
@@ -3437,7 +3437,7 @@ procedure TCompileForm.UpdateMemoMarkerColumns;
 begin
   var Width := ToCurrentPPI(20);
   for var Memo in FMemos do
-    Memo.UpdateMemoMarkerColumnWidth(Width);
+    Memo.UpdateIconMarkersColumnWidth(Width);
 
   var ImageList := ThemedMarkersVirtualImageList;
 

diff --git a/Projects/Src/CompScintEdit.pas b/Projects/Src/CompScintEdit.pas
@@ -63,7 +63,7 @@   TCompScintEdit = class(TScintEdit)
     property Used: Boolean read FUsed write FUsed;
     procedure UpdateIndicators(const Ranges: TScintRangeList;
       const IndicatorNumber: TCompScintIndicatorNumber);
-    procedure UpdateMemoMarkerColumnWidth(const AWidth: Integer);
+    procedure UpdateIconMarkersColumnWidth(const AWidth: Integer);
     procedure UpdateThemeColorsAndStyleAttributes;
   end;
 
@@ -269,7 +269,7 @@ procedure TCompScintEdit.UpdateIndicators(const Ranges: TScintRangeList;
   end;
 end;
 
-procedure TCompScintEdit.UpdateMemoMarkerColumnWidth(const AWidth: Integer);
+procedure TCompScintEdit.UpdateIconMarkersColumnWidth(const AWidth: Integer);
 begin
   Call(SCI_SETMARGINWIDTHN, 1, AWidth);
 end;