diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp index afa8ebb412..2b90e3d6a0 100644 --- a/components/synedit/synedit.pp +++ b/components/synedit/synedit.pp @@ -891,7 +891,13 @@ type property IsBackwardSel: Boolean read GetIsBackwardSel; property SelText: string read GetSelText write SetSelTextExternal; - // Text + // Text Raw (not undo-able) + procedure Clear; + procedure Append(const Value: String); + property LineText: string read GetLineText write SetLineText; // textline at CaretY + property Text: string read SynGetText write SynSetText; // No uncommited (trailing/trimmable) spaces + + // Text (unho-able) procedure ClearAll; procedure InsertTextAtCaret(aText: String; aCaretMode : TSynCaretAdjustMode = scamEnd); @@ -907,8 +913,6 @@ type aSelectionMode: TSynSelectionMode = smNormal ); - property LineText: string read GetLineText write SetLineText; - property Text: string read SynGetText write SynSetText; // No uncommited (trailing/trimmable) spaces function GetLineState(ALine: Integer): TSynLineState; procedure MarkTextAsSaved; @@ -4140,6 +4144,16 @@ begin SetParagraphBlock(CaretXY); end; +procedure TCustomSynEdit.Clear; +begin + FTheLinesView.Clear; +end; + +procedure TCustomSynEdit.Append(const Value: String); +begin + FTheLinesView.Append(Value); +end; + procedure TCustomSynEdit.DoBlockSelectionChanged(Sender : TObject); begin StatusChanged([scSelection]); diff --git a/components/synedit/synmemo.pas b/components/synedit/synmemo.pas index f6785e7b3f..9d9c06076e 100644 --- a/components/synedit/synmemo.pas +++ b/components/synedit/synmemo.pas @@ -113,12 +113,15 @@ type property InsertMode; property Keystrokes; property MouseActions; + property MouseTextActions; property MouseSelActions; property Lines; property MaxLeftChar; property MaxUndo; property Options; property Options2; + property MouseOptions; + property VisibleSpecialChars; property OverwriteCaret; property ReadOnly; property RightEdge;