paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 09:40:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynMemo: published a few missing properties. Issue #0026324

Browse Source 
SynEdit: added Clear and Append

git-svn-id: trunk@47510 -
This commit is contained in:
martin 2015-01-24 21:30:47 +00:00
parent 652c828a0a
commit 36b209522b
2 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/synedit/synedit.pp
View File

@ -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]);

3
components/synedit/synmemo.pas
View File

@ -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;