From 69d6ecc34e051e067ba8da953507c3f444999e26 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 5 Jun 2009 15:00:38 +0000
Subject: [PATCH] adding RichMemo for carbon

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@821 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/richmemo/carbon/carbonrichmemo.pas | 61 +++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 components/richmemo/carbon/carbonrichmemo.pas

diff --git a/components/richmemo/carbon/carbonrichmemo.pas b/components/richmemo/carbon/carbonrichmemo.pas
new file mode 100644
index 000000000..2a5fc0eac
--- /dev/null
+++ b/components/richmemo/carbon/carbonrichmemo.pas
@@ -0,0 +1,61 @@
+unit carbonrichmemo; 
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  LCLType, Classes, SysUtils,
+
+  Controls,
+
+  RichMemoTypes, WSRichMemo,
+
+  CarbonEdits;
+
+type
+  { TCarbonWSCustomRichMemo }
+
+  TCarbonWSCustomRichMemo = class(TWSCustomRichMemo)
+    class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override;
+    class function GetTextAttributes(const AWinControl: TWinControl; TextStart: Integer;
+      var Params: TFontParams): Boolean; override;
+    class procedure SetTextAttributes(const AWinControl: TWinControl; TextStart, TextLen: Integer;
+      Mask: TTextStyleMask; const Params: TFontParams); override;
+    class procedure SetHideSelection(const AWinControl: TWinControl; AHideSelection: Boolean); override;
+  end;
+
+implementation
+
+{ TCarbonWSCustomRichMemo }
+
+class function TCarbonWSCustomRichMemo.CreateHandle(const AWinControl: TWinControl;
+  const AParams: TCreateParams): HWND;
+begin
+  Result := TLCLIntfHandle(TCarbonMemo.Create(AWinControl, AParams));
+end;
+
+class function TCarbonWSCustomRichMemo.GetTextAttributes(const AWinControl: TWinControl;
+  TextStart: Integer; var Params: TFontParams): Boolean;
+begin
+  Result:=false;
+end;
+
+class procedure TCarbonWSCustomRichMemo.SetTextAttributes(const AWinControl: TWinControl;
+  TextStart, TextLen: Integer;
+  Mask: TTextStyleMask; const Params: TFontParams);
+var
+  memo  : TCarbonMemo;
+begin
+  if not Assigned(AWinControl) or not Assigned(AWinControl.Handle) then Exit;
+  memo := TCarbonMemo.Create(AWinControl.Handle);
+end;
+
+class procedure TCarbonWSCustomRichMemo.SetHideSelection(
+  const AWinControl: TWinControl; AHideSelection: Boolean);
+begin
+
+end;
+
+end.
+