From e3d18098b36fb31dd445032dc1bdcd5f40ade0d8 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Wed, 17 Apr 2013 10:31:18 +0100
Subject: Revert "Make special characters known by memo component"

This reverts commit d71020bc89474bb98aa49b62b769de2d6b20ca8d.
---
 src/gui/fpg_memo.pas | 38 --------------------------------------
 1 file changed, 38 deletions(-)

(limited to 'src/gui')

diff --git a/src/gui/fpg_memo.pas b/src/gui/fpg_memo.pas
index 71bcee56..df16367b 100644
--- a/src/gui/fpg_memo.pas
+++ b/src/gui/fpg_memo.pas
@@ -98,7 +98,6 @@ type
     function    GetSelectionText: TfpgString;
     procedure   SetSelectionText(const AText: TfpgString);
   protected
-    FSpecialChar: integer;
     procedure   HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: boolean); override;
     procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
     procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
@@ -480,7 +479,6 @@ begin
   FReadOnly   := False;
   FUpdateCount := 0;
   FBorderStyle := ebsDefault;
-  FSpecialChar := -1;
 
   FLines      := TfpgMemoStrings.Create(self);
   FFirstLine  := 0;
@@ -1062,38 +1060,6 @@ var
 begin
   inherited;
   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
@@ -1141,10 +1107,6 @@ begin
   fpgApplication.HideHint;
   Consumed := True;
   hasChanged := False;
-
-  if (keycode= 58536) or (keycode= 58462) then
-    FSpecialChar:= keycode;
-
   case CheckClipBoardKey(keycode, shiftstate) of
     ckCopy:
         begin
-- 
cgit v1.2.3-70-g09d2