refactor: convert remaining latin1 unit to utf-8

Refs #2474

Author: ansgarbecker

source/apphelpers.pas

@@ -535,10 +535,10 @@ function StrEllipsis(const S: String; MaxLen: Integer; FromLeft: Boolean=True):
     Exit;
   if FromLeft then begin
     SetLength(Result, MaxLen);
-    Result[MaxLen] := '…';
+    Result[MaxLen] := '…';
   end else begin
     Result := Copy(Result, Length(Result)-MaxLen, Length(Result));
-    Result := '…' + Result;
+    Result := '…' + Result;
   end;
 end;
 
@@ -848,7 +848,7 @@ function MakeFloat(Str: String): Extended;
 
 function RoundCommercial(e: Extended): Int64;
 begin
-  // "Kaufmännisch runden"
+  // "Kaufmännisch runden"
   // In contrast to Delphi's Round() which rounds *.5 to the next even number
   Result := Trunc(e);
   if Frac(e) >= 0.5 then
@@ -1528,7 +1528,7 @@ function GetTextHeight(Font: TFont): Integer;
   Bmp := Graphics.TBitmap.Create;
   Bmp.Canvas.Font.Name := Font.Name;
   Bmp.Canvas.Font.Size := Font.Size;
-  Result := Bmp.Canvas.TextHeight('Äy');
+  Result := Bmp.Canvas.TextHeight('Äy');
   Bmp.Free;
 end;