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

SynEdit: persistent block: QH, QB work if block is hidden / notify is called if block gets hidden

Browse Source 
git-svn-id: trunk@20974 -
This commit is contained in:
martin 2009-07-27 12:24:04 +00:00
parent 084169277d
commit e480675e27
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synedit.pp
View File

@ -5921,13 +5921,11 @@ begin
end;
ecBlockGotoBegin:
begin
if SelAvail then
FCaret.LineBytePos := FBlockSelection.FirstLineBytePos;
FCaret.LineBytePos := FBlockSelection.FirstLineBytePos;
end;
ecBlockGotoEnd:
begin
if SelAvail then
FCaret.LineBytePos := FBlockSelection.LastLineBytePos;
FCaret.LineBytePos := FBlockSelection.LastLineBytePos;
end;
ecBlockIndent:

1
components/synedit/syneditpointclasses.pas
View File

@ -1230,6 +1230,7 @@ begin
FHide := AValue;
FInvalidateLinesMethod(Min(FStartLinePos, FEndLinePos),
Max(FStartLinePos, FEndLinePos) );
FOnChangeList.CallNotifyEvents(self);
end;
procedure TSynEditSelection.SetPersistent(const AValue: Boolean);