Revert "Make special characters known by edit components"

This reverts commit bff6c8c3b5071ae28ba3c10cf612c55e893926b4.

1 files changed, 0 insertions, 37 deletions

diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas
index c462f06e..f164ef76 100644
--- a/src/gui/fpg_edit.pas
+++ b/src/gui/fpg_edit.pas
@@ -94,7 +94,6 @@ type
     FVisibleText: TfpgString;
     FVisSelStartPx: integer;
     FVisSelEndPx: integer;
-    FSpecialChar: integer;
     function    GetMarginAdjustment: integer; virtual;
     procedure   DrawSelection; virtual;
     procedure   DoOnChange; virtual;
@@ -756,38 +755,6 @@ var
   prevval: string;
 begin
   prevval   := Text;
-  if FSpecialChar> -1 then
-  begin
-    case FSpecialChar of
-      58536:
-        case AText of
-          'a':
-            AText:= 'â';
-          'e':
-            AText:= 'ë';
-          'i':
-            AText:= 'ï';
-          'o':
-            AText:= 'ö';
-          'u':
-            AText:= 'ü';
-        end;
-      58462:
-        case AText of
-          'a':
-            AText:= 'â';
-          'e':
-            AText:= 'ê';
-          'i':
-            AText:= 'î';
-          'o':
-            AText:= 'ô';
-          'u':
-            AText:= 'û';
-        end;
-    end;
-    FSpecialChar:= -1;
-  end;
   s         := AText;
 
   if (not consumed) and (not ReadOnly) then
@@ -831,9 +798,6 @@ begin
   hasChanged := False;
   fpgApplication.HideHint;
 
-  if (keycode= 58536) or (keycode= 58462) then
-    FSpecialChar:= keycode;
-
   Consumed := True;
   case CheckClipBoardKey(keycode, shiftstate) of
     ckCopy:
@@ -1106,7 +1070,6 @@ begin
   FPopupMenu          := nil;
   FDefaultPopupMenu   := nil;
   FOnChange           := nil;
-  FSpecialChar        := -1;
 end;
 
 destructor TfpgBaseEdit.Destroy;