From ae5685248041258c54193b94bab2bb598b77c556 Mon Sep 17 00:00:00 2001
From: Alexey <support@uvviewsoft.com>
Date: Tue, 14 Mar 2023 13:23:31 +0300
Subject: [PATCH] arrange 'uses'

---
 atsynedit_cmp/atsynedit_cmp_form.pas | 32 ++++++++++++++++------------
 1 file changed, 18 insertions(+), 14 deletions(-)

diff --git a/atsynedit_cmp/atsynedit_cmp_form.pas b/atsynedit_cmp/atsynedit_cmp_form.pas
index cb3789a..73127e4 100644
--- a/atsynedit_cmp/atsynedit_cmp_form.pas
+++ b/atsynedit_cmp/atsynedit_cmp_form.pas
@@ -11,17 +11,9 @@ interface
 uses
   Classes, SysUtils, Forms, Controls, Graphics,
   Dialogs, ExtCtrls,
-  LclProc, LclType,
+  LCLProc, LCLType,
   ATSynEdit,
-  ATSynEdit_Carets,
-  ATSynEdit_Commands,
-  ATSynEdit_Cmp_RenderHTML,
-  ATStrings,
-  ATStringProc,
-  ATStringProc_Separator,
-  ATListbox,
-  ATFlatThemes,
-  Math;
+  ATListbox;
 
 type
   TATCompletionPropEvent = procedure (Sender: TObject;
@@ -52,8 +44,9 @@ procedure EditorShowCompletionListbox(AEd: TATSynEdit;
 
 procedure EditorGetCurrentWord(Ed: TATSynEdit;
   APosX, APosY: integer;
-  const ANonWordChars: atString;
-  out AWord: atString; out ACharsLeft, ACharsRight: integer);
+  const ANonWordChars: UnicodeString;
+  out AWord: UnicodeString;
+  out ACharsLeft, ACharsRight: integer);
 
 type
   { TFormATSynEditComplete }
@@ -171,6 +164,16 @@ function IsAutocompletionFormVisible: boolean;
 
 implementation
 
+uses
+  ATStrings,
+  ATStringProc,
+  ATStringProc_Separator,
+  ATSynEdit_Carets,
+  ATSynEdit_Commands,
+  ATSynEdit_Cmp_RenderHTML,
+  ATFlatThemes,
+  Math;
+
 {$R *.lfm}
 
 var
@@ -819,8 +822,9 @@ procedure TFormATSynEditComplete.DoUpdate;
 
 procedure EditorGetCurrentWord(Ed: TATSynEdit;
   APosX, APosY: integer;
-  const ANonWordChars: atString;
-  out AWord: atString; out ACharsLeft, ACharsRight: integer);
+  const ANonWordChars: UnicodeString;
+  out AWord: UnicodeString;
+  out ACharsLeft, ACharsRight: integer);
 var
   str: atString;
   n: integer;