fpsymbols web friendly

packages/ide/fpsymbol.pas

@@ -1472,7 +1472,7 @@ begin
 end;
 begin
   NormColor:=GetColor(1); SelColor:=GetColor(2);
-  MoveChar(B,'Ä',SelColor,Size.X);
+  MoveChar(B,#196{-},SelColor,Size.X);
   CurX:=0; Count:=0;
   for I:=0 to GetItemCount-1 do
     if (Flags and (1 shl I))<>0 then
@@ -1480,13 +1480,13 @@ begin
       Inc(Count);
       if Current=I then C:=SelColor
                    else C:=NormColor;
-      if Count=1 then MoveChar(B[CurX],'´',SelColor,1)
-                 else MoveChar(B[CurX],'³',SelColor,1);
+      if Count=1 then MoveChar(B[CurX],#180,SelColor,1)
+                 else MoveChar(B[CurX],#179,SelColor,1);
       MoveCStr(B[CurX+1],' '+Names(I)+' ',C);
       Inc(CurX,4);
     end;
   if Count>0 then
-    MoveChar(B[CurX],'Ã',SelColor,1);
+    MoveChar(B[CurX],#195,SelColor,1);
   WriteLine(0,0,Size.X,Size.Y,B);
 end;
 
@@ -1690,7 +1690,7 @@ begin
       if Assigned(UsedUnits) then
       begin
         Inc(R2.A.Y,R2.B.Y-R2.A.Y); R2.B.Y:=R2.A.Y+1;
-        New(CST, Init(R2,'´ Used units Ã'+CharStr('Ä',255),ColorIndex(12),false));
+        New(CST, Init(R2,#180' Used units '#195+CharStr(#196,255),ColorIndex(12),false));
         CST^.GrowMode:=gfGrowHiX;
         UnitInfo^.Insert(CST);
 
@@ -1710,7 +1710,7 @@ begin
       if Assigned(DependentUnits) then
       begin
         Inc(R2.A.Y,R2.B.Y-R2.A.Y); R2.B.Y:=R2.A.Y+1;
-        New(CST, Init(R2,'´ Dependent units Ã'+CharStr('Ä',255),ColorIndex(12),false));
+        New(CST, Init(R2,#180' Dependent units '#195+CharStr(#196,255),ColorIndex(12),false));
         CST^.GrowMode:=gfGrowLoY+gfGrowHiX+gfGrowHiY;
         UnitInfo^.Insert(CST);