From d71020bc89474bb98aa49b62b769de2d6b20ca8d Mon Sep 17 00:00:00 2001
From: Jean-Marc Levecque <jean-marc.levecque@jmlesite.fr>
Date: Sat, 2 Mar 2013 23:31:39 +0100
Subject: Make special characters known by memo component

---
 src/gui/fpg_memo.pas | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)

diff --git a/src/gui/fpg_memo.pas b/src/gui/fpg_memo.pas
index df16367b..71bcee56 100644
--- a/src/gui/fpg_memo.pas
+++ b/src/gui/fpg_memo.pas
@@ -98,6 +98,7 @@ 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;
@@ -479,6 +480,7 @@ begin
   FReadOnly   := False;
   FUpdateCount := 0;
   FBorderStyle := ebsDefault;
+  FSpecialChar := -1;
 
   FLines      := TfpgMemoStrings.Create(self);
   FFirstLine  := 0;
@@ -1060,6 +1062,38 @@ 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
@@ -1107,6 +1141,10 @@ 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