From 650d40ce24063e2844721ae882cd6f9655bfee74 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 18 Nov 2009 03:33:29 +0000
Subject: [PATCH] SynMemo: missing properties/methods

git-svn-id: trunk@22665 -
---
 components/synedit/synmemo.pas | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/components/synedit/synmemo.pas b/components/synedit/synmemo.pas
index 15cbaf5d6e..846db21085 100644
--- a/components/synedit/synmemo.pas
+++ b/components/synedit/synmemo.pas
@@ -60,10 +60,15 @@ uses
 //SelStart and SelEnd are now in TCustomSynEdit                                 //DDH Addition
 
 type
+
+  { TCustomSynMemo }
+
   TCustomSynMemo = class(TCustomSynEdit)
   public
     function CharIndexToRowCol(Index: integer): TPoint;                         //as 2000-11-09
     function RowColToCharIndex(RowCol: TPoint): integer;                        //as 2000-11-09
+    procedure Append(const Value: String);
+    procedure Clear;
   end;
 
   TSynMemo = class(TCustomSynMemo)
@@ -151,6 +156,7 @@ type
     property MaxLeftChar;
     property MaxUndo;
     property Options;
+    property Options2;
     property OverwriteCaret;
     property ReadOnly;
     property RightEdge;
@@ -234,5 +240,15 @@ begin
   Result := Result + RowCol.x;
 end;
 
+procedure TCustomSynMemo.Append(const Value: String);
+begin
+  Lines.Append(Value);
+end;
+
+procedure TCustomSynMemo.Clear;
+begin
+  Lines.Clear;
+end;
+
 end.