rename const

Alexey-T · May 14, 2020 · 70183d0 · 70183d0
1 parent c8227eb
commit 70183d0
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/atsynedit/atsynedit.pas b/atsynedit/atsynedit.pas
@@ -327,14 +327,15 @@   TATCaretProps = class
   cHintBookmarkDx = 6;
   cHintBookmarkDy = 16;
   cUrlMarkerTag = -100;
-  cTextEditorLocked: string = 'Wait...';
-  cHintScrollPrefix: string = 'Line';
 
   cUrlRegex_Email = '\b\w[\w\-\.]*@\w[\w\-\.]*\.\w{2,}\b';
   cUrlRegex_WebBegin = 'https?://|ftp://|mailto:|magnet:\?|www\.|ftp\.';
   cUrlRegex_Web = '\b(' + cUrlRegex_WebBegin + ')\w[^<>''"\s]+';
   cUrlRegexInitial = cUrlRegex_Email + '|' + cUrlRegex_Web;
 
+  cTextEditorLocked: string = 'Wait...';
+  cTextHintScrollPrefix: string = 'Line';
+
   cStrMenuitemFoldAll: string = 'Fold all';
   cStrMenuitemUnfoldAll: string = 'Unfold all';
   cStrMenuitemFoldLevel: string = 'Fold level';
@@ -4406,7 +4407,7 @@ procedure TATSynEdit.DoHintShow;
   if FHintWnd=nil then
     FHintWnd:= THintWindow.Create(Self);
 
-  S:= cHintScrollPrefix+' '+IntToStr(LineTop+1);
+  S:= cTextHintScrollPrefix+' '+IntToStr(LineTop+1);
   R:= FHintWnd.CalcHintRect(500, S, nil);
 
   P:= ClientToScreen(Point(ClientWidth-R.Width, 0));

diff --git a/atsynedit/atsynedit_fold.inc b/atsynedit/atsynedit_fold.inc
@@ -344,7 +344,7 @@ begin
     mi.OnClick:= @MenuFoldPlusMinusClick;
 
     mi.Caption:=
-      cHintScrollPrefix+' '+Inttostr(Rng^.Y+1)+': '+
+      cTextHintScrollPrefix+' '+Inttostr(Rng^.Y+1)+': '+
       UTF8Encode(Strings.LineSub(Rng^.Y, 1, cFoldedLenOfEmptyHint));
 
     if Rng^.Folded then