paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 16:20:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Make IsBackwardSel public. Issue: #0026724

Browse Source 
git-svn-id: trunk@46368 -
This commit is contained in:
martin 2014-09-30 13:06:49 +00:00
parent b5f3b57aa7
commit e2c258b984
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/synedit.pp
View File

@ -642,6 +642,7 @@ type
procedure SetBeautifier(NewBeautifier: TSynCustomBeautifier);
function GetMaxUndo: Integer;
function GetSelAvail: Boolean;
function GetIsBackwardSel: Boolean;
function GetSelText: string;
procedure SetTrimSpaceType(const AValue: TSynEditStringTrimmingType);
function SynGetText: string;
@ -883,6 +884,7 @@ type
property SelStart: Integer read GetSelStart write SetSelStart;
property SelEnd: Integer read GetSelEnd write SetSelEnd;
property SelAvail: Boolean read GetSelAvail;
property IsBackwardSel: Boolean read GetIsBackwardSel;
property SelText: string read GetSelText write SetSelTextExternal;
// Text
@ -2560,6 +2562,11 @@ begin
Result := FBlockSelection.SelAvail;
end;
function TCustomSynEdit.GetIsBackwardSel: Boolean;
begin
Result := FBlockSelection.SelAvail and FBlockSelection.IsBackwardSel;
end;
function TCustomSynEdit.GetSelText: string;
begin
Result := FBlockSelection.SelText;