arrange 'uses'

Alexey-T · Mar 14, 2023 · ae56852 · ae56852
1 parent d3af8c5
commit ae56852
Showing 1 changed file with 18 additions and 14 deletions.
diff --git 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;