From 1bdb92bd6e62d4999ad09c23c8aef0602a54b229 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 27 Oct 2016 13:05:30 +0000
Subject: [PATCH] richmemo: removing TWinLangOptions from the unit interface,
 due to issues with x64 compilation. The type has not been used by anyone yet.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5295 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/richmemo/win32/win32richmemo.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/components/richmemo/win32/win32richmemo.pas b/components/richmemo/win32/win32richmemo.pas
index 2e1587593..a2a9095f0 100644
--- a/components/richmemo/win32/win32richmemo.pas
+++ b/components/richmemo/win32/win32richmemo.pas
@@ -178,7 +178,7 @@ function GetOleObject(ole: IRichEditOle; SelStart: Integer; out res: TREOBJECT):
 function SetOleObjectSize(ARichMemo: TCustomRichMemo; SelStart: Integer; const ASize: TSize): Boolean;
 function GetOleObjectSize(ARichMemo: TCustomRichMemo; SelStart: Integer; var ASize: TSize): Boolean;
 
-type
+(*type
   TWinLangOptions = set of (
      wloAutokeyboard             // IMF_AUTOKEYBOARD        = $0001
      , wloAutoFont               // IMF_AUTOFONT            = $0002
@@ -193,7 +193,7 @@ function GetLangOptions(hnd: THandle):  TWinLangOptions; overload;
 function GetLangOptions(rm: TCustomRichMemo):  TWinLangOptions; overload;
 procedure SetLangOptions(hnd: THandle; const opts: TWinLangOptions); overload;
 procedure SetLangOptions(rm: TCustomRichMemo; const opts: TWinLangOptions); overload;
-
+*)
 implementation
 
 const
@@ -1660,7 +1660,7 @@ begin
   ASize.cx:=round(res.sizel.cx*RevSizeFactor);
   ASize.cy:=round(res.sizel.cy*RevSizeFactor);
 end;
-
+(*
 function GetLangOptions(hnd: THandle): TWinLangOptions;
 var
   r: LRESULT;
@@ -1696,7 +1696,7 @@ begin
       SetLangOptions(rm.Handle, opts);
   end;
 end;
-
+*)
 initialization
   NCPaint := @ThemedNCPaint;
   AllocOLEObject := @DefAllocOleObject;